Saltar al contenido

Antoni

Miembros
  • Contador de contenido

    9149
  • Unido

  • Última visita

  • Days Won

    407

Sobre Antoni

  • Rango
    Antoni

Información de perfil

  • Sexo Hombre
  • Localización: Galicia (UTC+1) Excel 2016

Configuraciones

  • Campo que utilizas como separador de argumentos ;

Visitantes recientes del perfil

El bloque de últimos visitantes está desactivado y no se puede mostrar a otros usuarios.

  1. A ver si es esto: Sub CopiarFilasHojas_GP() Application.ScreenUpdating = False Dim Copiadas As Long, Eliminadas As Long With Hoja1 For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row If .Range("F" & x) Or .Range("H" & x) Then .Rows(x).Copy Hoja2.Rows(Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1) .Rows(x).Copy Hoja3.Rows(Hoja3.Range("A" & Rows.Count).End(xlUp).Row + 1) Copiadas = Copiadas + 1 If .Range("F" & x) Then .Rows(x).Delete x = x - 1 Eliminadas = Eliminadas + 1 Else .Range("H" & x) = "" End If End If Next MsgBox "Total filas copiadas: " & Copiadas & Chr(10) & _ "Total filas eliminadas: " & Eliminadas, vbInformation, "AyudaExcel" End With End Sub
  2. Antoni

    Macro Ordenar

    Sube tu archivo con un ejemplo del antes y el después de ejecutar la macro.
  3. Prueba así: Sub CopiarFilasHojasGP() Application.ScreenUpdating = False Dim Filas As Long With Hoja1 For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row If .Range("F" & x) Or .Range("H" & x) Then .Rows(x).Copy Hoja2.Rows(Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1) .Rows(x).Copy Hoja3.Rows(Hoja3.Range("A" & Rows.Count).End(xlUp).Row + 1) .Rows(x).Delete x = x - 1 Filas = Filas + 1 End If Next MsgBox "Total filas copiadas: " & Filas, vbInformation, "AyudaExcel" End With End Sub
  4. Antoni

    Eliminar fila en tabla estructurada

    He reorganizado un poco el código. Revisa el adjunto. Ejemplo (8).xlsm
  5. El secreto consiste en seleccionar una celda fuera del rango que contiene de la taba dinámica después de copiarlo. Sub guardar() Application.ScreenUpdating = False Dim OutApp As Object, OutMail As Object '-- With Range("A1:M73") .CopyPicture Appearance:=xlScreen, Format:=xlPicture xWidth = .Width xHeight = .Height End With '-- Range("AA6").Select '<======== archivo = Selection.Value '-- With ActiveSheet .Paste .Shapes(ActiveSheet.Shapes.Count).Cut .ChartObjects.Add(1, 1, xWidth, xHeight).Select End With '-- With ActiveChart .ChartArea.Border.LineStyle = xlNone .Paste .Export Filename:=ThisWorkbook.Path & "\Planilla.jpg", FilterName:="JPG" .Parent.Delete End With '-- Set dam = CreateObject("outlook.application").CreateItem(0) dam.To = Range("AA1").Value dam.CC = Range("AA2").Value dam.BCC = Range("AA3").Value dam.Subject = Range("AA4").Value dam.Attachments.Add Range("AA5").Value dam.Attachments.Add ThisWorkbook.Path & "\Planilla.jpg" dam.BodyFormat = 2 'olFormatHTML dam.HTMLBody = "<br><B>Estimado Asociado/@</B><br>" & "<IMG SRC='Planilla.jpg'>" dam.Display 'dam.SaveAs "C:\Users\luis.arista\Desktop\Resultados Mensuales\Correos\" & archivo & " .oft", OlSaveAsType.olTemplate 'El correo se guarda dam.Close olSave MsgBox "Plantillas Guardadas", vbInformation, "AARCO" Application.ScreenUpdating = True End Sub
  6. Algo bruja si que es,....jajaja
  7. Antoni

    Eliminar fila en tabla estructurada

    Realmente, no le poneis la debida imaginación. Se trata de eliminar las celdas (o fila de la tabla) del rango N:W de la hoja Hoja2, correspondiente a la fila del cliente seleccionado. ¿Lo habeis 'pillao', porqué si no os hago un plano.
  8. Antoni

    Eliminar fila en tabla estructurada

    La proximidad de la final de la Champions ha minado tu capacidad de interpretación, son columnas y no filas.
  9. Antoni

    Eliminar fila en tabla estructurada

    Estoy en ello, pero no será hasta mañana o durante el fin de semana. .
  10. Revisa el adjunto. Plantilla En una semana lo elimino.
  11. Sub Ordenar() ActiveSheet.UsedRange.Sort _ Key1:=Columns("B"), Key2:=Columns("A"), Header:=xlGuess End Sub
  12. Da formato Texto a la columna A y listo.
  13. Pon estas macros en la hoja y selecciona una celda de la columna BH. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Columns("BH"), Target) Is Nothing Then If IsNumeric(Target(1, 1)) Then Colorear Target(1, 1) End If End Sub '-- Private Sub Colorear(Número As Integer): On Error Resume Next Range("E2:AV34").Interior.ColorIndex = xlNone For x = 2 To Range("E" & Rows.Count).End(xlUp).Row For y = 5 To 45 Step 5 If Cells(x, y) = "" Then Exit For n = CInt(Cells(x, y) & Cells(x, y + 1) & Cells(x, y + 2) & Cells(x, y + 3)) If n = Número Then With Range(Cells(x, y), Cells(x, y + 3)) .Select .Interior.Color = vbYellow End With Exit Sub End If Next Next MsgBox "No se ha encontrado el número " & Número End Sub
  14. Yo creo que esto te va a ir mejor que un InputBox. Habilitados.xlsm
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.