Error en codigo copiar datos de una hoja a otra

[dorgelis]

Saludos apreciados;

Estoy realizando un codigo, donde tengo dos hojas 

En la Hoja "Relación", los datos que a partir del rango b4:c4 hasta abajo dentro de esas dos columnas (estos rangos varian, pueden ser 25 filas o 60 filas). se copien en la hoja denominada Bd_Bingo, en la ultima fila vacia, de la de la columna "A".

De antemano gracias

bingo ayuda 1.zip

[JasallBcn]

Buenas, te paso una solución

Sub CopiaDestination()
Dim RgIni As Range
Dim FilaDestino As Long

Set RgIni = Hoja1.Range("B4:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row)
FilaDestino = Hoja2.Range("A" & Rows.Count).End(xlUp).Row

With Hoja2.Range("A1")
 For Each RgIni In RgIni
  .Offset(FilaDestino, 0) = RgIni.Value
  .Offset(FilaDestino, 1) = RgIni.Offset(0, 1).Value
  FilaDestino = FilaDestino + 1
 Next RgIni
End With
End Sub

saludos

 

[Antoni]

Sub Copia()
Sheets("Relacion").Range("A3").CurrentRegion.Offset(1, 1).Copy
Sheets("Bd_Bingo").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
End Sub

 

[dorgelis]

En 29/12/2022 at 1:50 , JasallBcn dijo:

Buenas, te paso una solución

Sub CopiaDestination()
Dim RgIni As Range
Dim FilaDestino As Long

Set RgIni = Hoja1.Range("B4:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row)
FilaDestino = Hoja2.Range("A" & Rows.Count).End(xlUp).Row

With Hoja2.Range("A1")
 For Each RgIni In RgIni
  .Offset(FilaDestino, 0) = RgIni.Value
  .Offset(FilaDestino, 1) = RgIni.Offset(0, 1).Value
  FilaDestino = FilaDestino + 1
 Next RgIni
End With
End Sub

saludos

 

Excelente, con este Código me resulto Genial

[dorgelis]

En 29/12/2022 at 7:06 , Antoni dijo:

Sub Copia()
Sheets("Relacion").Range("A3").CurrentRegion.Offset(1, 1).Copy
Sheets("Bd_Bingo").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
End Sub

 

Gracias amigo, muy amable

hace 6 minutos , dorgelis dijo:

Excelente, con este Código me resulto Genial

 

[dorgelis]

Doy por Cerrado el Tema, Mil Gracias