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

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

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

 

Editado el el 5 de enero2 años por dorgelis

Doy por Cerrado el Tema, Mil Gracias