Skip to main content
se añadieron 9 caracteres en el cuerpo
Origen Enlace
Damian
  • 1.3k
  • 8
  • 10

Esto debería a ayudarte a entender como funciona, te recomiendo poner Option Explicit en tus módulos y declarar todas las variables:

Option Explicit
Sub ConditionalCopy()
    
    'Primer problema, al referenciar una hoja, dale también su libro.
    'He puesto ThisWorkbook, que es el mismo que el que tiene el código.
    'Si quisieras hacer referencia a otro libro que no es el que lo contiene,
    'cambia Thisworkbook por Workbooks("Nombre.Extensión") del libro.
    Dim H1 As Worksheet: Set H1 = ThisWorkbook.Sheets("VINCULACION_SV")
    Dim H2 As Worksheet: Set H2 = ThisWorkbook.Sheets("SEN_CONTENIDO_TABLERO")
    Dim j As Long: j = H2.Range("D" & H2.Rows.Count).End(xlUp).Row + 1
    Dim i As Long: i = 3
    Dim LastRow As Long
    With H1
        If .Cells(i, "B").Value <> "" Then
            .AutoFilterMode = False
            '.Range("B3:B3").AutoFilter esto te sobra
            .Range("B3:B3").AutoFilter , Field:=5, Criteria1:="<>"
            LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
            'Estabas pegando todos los datos en la hoja activa, si la hoja activa era H1
            'te los pegaría en la misma, al poner la referencia de H2 delante, te los pegará
            'donde tú querías sin importar la hoja activa.
            'Al poner el rango de B4 a B y la última fila con datos te pegará el dato que
            'deseas, ya que usedrange coge literal, el rango utilizado, que puede ser toda la hoja.
            .Range("B4:B" & LastRow).SpecialCells(xlCellTypeVisible).Copy H2.Range("D" & j)
            .AutoFilterMode = False
            Application.CutCopyMode = False
        End If
    End With
    
End Sub

Esto debería a ayudarte como funciona, te recomiendo poner Option Explicit en tus módulos y declarar todas las variables:

Option Explicit
Sub ConditionalCopy()
    
    'Primer problema, al referenciar una hoja, dale también su libro.
    'He puesto ThisWorkbook, que es el mismo que el que tiene el código.
    'Si quisieras hacer referencia a otro libro que no es el que lo contiene,
    'cambia Thisworkbook por Workbooks("Nombre.Extensión") del libro.
    Dim H1 As Worksheet: Set H1 = ThisWorkbook.Sheets("VINCULACION_SV")
    Dim H2 As Worksheet: Set H2 = ThisWorkbook.Sheets("SEN_CONTENIDO_TABLERO")
    Dim j As Long: j = H2.Range("D" & H2.Rows.Count).End(xlUp).Row + 1
    Dim i As Long: i = 3
    Dim LastRow As Long
    With H1
        If .Cells(i, "B").Value <> "" Then
            .AutoFilterMode = False
            '.Range("B3:B3").AutoFilter esto te sobra
            .Range("B3:B3").AutoFilter , Field:=5, Criteria1:="<>"
            LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
            'Estabas pegando todos los datos en la hoja activa, si la hoja activa era H1
            'te los pegaría en la misma, al poner la referencia de H2 delante, te los pegará
            'donde tú querías sin importar la hoja activa.
            'Al poner el rango de B4 a B y la última fila con datos te pegará el dato que
            'deseas, ya que usedrange coge literal, el rango utilizado, que puede ser toda la hoja.
            .Range("B4:B" & LastRow).SpecialCells(xlCellTypeVisible).Copy H2.Range("D" & j)
            .AutoFilterMode = False
            Application.CutCopyMode = False
        End If
    End With
    
End Sub

Esto debería ayudarte a entender como funciona, te recomiendo poner Option Explicit en tus módulos y declarar todas las variables:

Option Explicit
Sub ConditionalCopy()
    
    'Primer problema, al referenciar una hoja, dale también su libro.
    'He puesto ThisWorkbook, que es el mismo que el que tiene el código.
    'Si quisieras hacer referencia a otro libro que no es el que lo contiene,
    'cambia Thisworkbook por Workbooks("Nombre.Extensión") del libro.
    Dim H1 As Worksheet: Set H1 = ThisWorkbook.Sheets("VINCULACION_SV")
    Dim H2 As Worksheet: Set H2 = ThisWorkbook.Sheets("SEN_CONTENIDO_TABLERO")
    Dim j As Long: j = H2.Range("D" & H2.Rows.Count).End(xlUp).Row + 1
    Dim i As Long: i = 3
    Dim LastRow As Long
    With H1
        If .Cells(i, "B").Value <> "" Then
            .AutoFilterMode = False
            '.Range("B3:B3").AutoFilter esto te sobra
            .Range("B3:B3").AutoFilter , Field:=5, Criteria1:="<>"
            LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
            'Estabas pegando todos los datos en la hoja activa, si la hoja activa era H1
            'te los pegaría en la misma, al poner la referencia de H2 delante, te los pegará
            'donde tú querías sin importar la hoja activa.
            'Al poner el rango de B4 a B y la última fila con datos te pegará el dato que
            'deseas, ya que usedrange coge literal, el rango utilizado, que puede ser toda la hoja.
            .Range("B4:B" & LastRow).SpecialCells(xlCellTypeVisible).Copy H2.Range("D" & j)
            .AutoFilterMode = False
            Application.CutCopyMode = False
        End If
    End With
    
End Sub
Origen Enlace
Damian
  • 1.3k
  • 8
  • 10

Esto debería a ayudarte como funciona, te recomiendo poner Option Explicit en tus módulos y declarar todas las variables:

Option Explicit
Sub ConditionalCopy()
    
    'Primer problema, al referenciar una hoja, dale también su libro.
    'He puesto ThisWorkbook, que es el mismo que el que tiene el código.
    'Si quisieras hacer referencia a otro libro que no es el que lo contiene,
    'cambia Thisworkbook por Workbooks("Nombre.Extensión") del libro.
    Dim H1 As Worksheet: Set H1 = ThisWorkbook.Sheets("VINCULACION_SV")
    Dim H2 As Worksheet: Set H2 = ThisWorkbook.Sheets("SEN_CONTENIDO_TABLERO")
    Dim j As Long: j = H2.Range("D" & H2.Rows.Count).End(xlUp).Row + 1
    Dim i As Long: i = 3
    Dim LastRow As Long
    With H1
        If .Cells(i, "B").Value <> "" Then
            .AutoFilterMode = False
            '.Range("B3:B3").AutoFilter esto te sobra
            .Range("B3:B3").AutoFilter , Field:=5, Criteria1:="<>"
            LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
            'Estabas pegando todos los datos en la hoja activa, si la hoja activa era H1
            'te los pegaría en la misma, al poner la referencia de H2 delante, te los pegará
            'donde tú querías sin importar la hoja activa.
            'Al poner el rango de B4 a B y la última fila con datos te pegará el dato que
            'deseas, ya que usedrange coge literal, el rango utilizado, que puede ser toda la hoja.
            .Range("B4:B" & LastRow).SpecialCells(xlCellTypeVisible).Copy H2.Range("D" & j)
            .AutoFilterMode = False
            Application.CutCopyMode = False
        End If
    End With
    
End Sub