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.zipUnavailable

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

 

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

 

  En 29/12/2022 at 4: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

  En 29/12/2022 at 10: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

  En 5/1/2023 at 23:24 , dorgelis dijo:

Excelente, con este Código me resulto Genial

 

Doy por Cerrado el Tema, Mil Gracias