Skip to main content

Estoy tratando de copiar solo los datos filtrados de la columna B de una hoja de cálculo a otra, el inconveniente es que la macro con la que estoy trabajando esta situación pega todos los valores de la tabla comprendida en las columnas B: I desde la fila 3 en adelante, a continuación, muestro el código que estoy ajustando a este caso, si es posible espero su ayuda en este caso

    Sub ConditionalCopy()  
Set H1 = Sheets("VINCULACION_SV")  
Set H2 = Sheets("SEN_CONTENIDO_TABLERO")  
j = H2.Range("D" & Rows.Count).End(xlUp).Row + 1  
i = 3
    With H1
            If .Cells(i, "B").Value <> "" Then
                .AutoFilterMode = False
                .Range("B3:B3").AutoFilter
                .Range("B3:B3").AutoFilter , Field:=5, Criteria1:="<>"
                . UsedRange. SpecialCells(xlCellTypeVisible).Copy Destination:=Range(Cells(j, "D"), Cells(j, "D"))
                .AutoFilterMode = False
                Application.CutCopyMode = False
            End If 
    End With
    End Sub

Estoy tratando de copiar solo los datos filtrados de la columna B de una hoja de cálculo a otra, el inconveniente es que la macro con la que estoy trabajando esta situación pega todos los valores de la tabla comprendida en las columnas B: I desde la fila 3 en adelante, a continuación, muestro el código que estoy ajustando a este caso, si es posible espero su ayuda en este caso

Sub ConditionalCopy() Set H1 = Sheets("VINCULACION_SV") Set H2 = Sheets("SEN_CONTENIDO_TABLERO") j = H2.Range("D" & Rows.Count).End(xlUp).Row + 1 i = 3 With H1
    If .Cells(i, "B").Value <> "" Then
        .AutoFilterMode = False
        .Range("B3:B3").AutoFilter
        .Range("B3:B3").AutoFilter , Field:=5, Criteria1:="<>"
        . UsedRange. SpecialCells(xlCellTypeVisible).Copy Destination:=Range(Cells(j, "D"), Cells(j, "D"))
        .AutoFilterMode = False
        Application.CutCopyMode = False
    End If End With End Sub

Estoy tratando de copiar solo los datos filtrados de la columna B de una hoja de cálculo a otra, el inconveniente es que la macro con la que estoy trabajando esta situación pega todos los valores de la tabla comprendida en las columnas B: I desde la fila 3 en adelante, a continuación, muestro el código que estoy ajustando a este caso, si es posible espero su ayuda en este caso

    Sub ConditionalCopy() 
Set H1 = Sheets("VINCULACION_SV") 
Set H2 = Sheets("SEN_CONTENIDO_TABLERO") 
j = H2.Range("D" & Rows.Count).End(xlUp).Row + 1 
i = 3
    With H1
            If .Cells(i, "B").Value <> "" Then
                .AutoFilterMode = False
                .Range("B3:B3").AutoFilter
                .Range("B3:B3").AutoFilter , Field:=5, Criteria1:="<>"
                . UsedRange. SpecialCells(xlCellTypeVisible).Copy Destination:=Range(Cells(j, "D"), Cells(j, "D"))
                .AutoFilterMode = False
                Application.CutCopyMode = False
            End If 
    End With
    End Sub
Origen Enlace
Briam Ramon
  • 346
  • 1
  • 18

Copiar datos específicos con autofiltro

Estoy tratando de copiar solo los datos filtrados de la columna B de una hoja de cálculo a otra, el inconveniente es que la macro con la que estoy trabajando esta situación pega todos los valores de la tabla comprendida en las columnas B: I desde la fila 3 en adelante, a continuación, muestro el código que estoy ajustando a este caso, si es posible espero su ayuda en este caso

Sub ConditionalCopy() Set H1 = Sheets("VINCULACION_SV") Set H2 = Sheets("SEN_CONTENIDO_TABLERO") j = H2.Range("D" & Rows.Count).End(xlUp).Row + 1 i = 3 With H1
    If .Cells(i, "B").Value <> "" Then
        .AutoFilterMode = False
        .Range("B3:B3").AutoFilter
        .Range("B3:B3").AutoFilter , Field:=5, Criteria1:="<>"
        . UsedRange. SpecialCells(xlCellTypeVisible).Copy Destination:=Range(Cells(j, "D"), Cells(j, "D"))
        .AutoFilterMode = False
        Application.CutCopyMode = False
    End If End With End Sub