Anónimo
Macro para copiar datos de una hoja a otra de forma iterativa
Necesitaría que me ayudasen con una macro para copiar un rango de celdas (B4 a B8) de una hoja activa y se peguen en otra hoja (nombre: Ofertas) en la fila 22 de forma transpuesta, pero si hay datos en la fila que las pegue en la siguiente fila de forma iterativa.
2 respuestas
Respuesta de Darth Vader
1
Lo he probado y funciona correctamente.
Por cierto, una pregunta conceptual, en caso de querer copiar otras celdas no contiguas al rango indicado anteriormente, ¿sólo hay que volver a añadir el siguiente código verdad (con los nuevos números de celda)?:
Range("B4:B8"). Copy
Application.Goto Sheets("Estado ofertas 2017").Range("A22")
Respuesta de Victor Rodriguez
1
Este código te servirá:
Sub copiar()
Dim celda As Range
Set celda = Sheets("Ofertas").Range("A22")
Range("B4:B8").Copy
Application.Goto Sheets("Ofertas").Range("A22")
If ActiveCell.Value = "" Then
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Exit Sub
Else
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = ""
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End If
End Sub
Con esta modificación lo que harás será copiar los datos en la Hoja "Estado ofertas..." - Victor Rodriguez
Perfecto, pero si además de ese rango de celdas, quiero copiar el valor de otra celda no contigua, ¿hay alguna manera de poderlo copiar todo a la vez? Gracias por tu tiempo. - Darth Vader
¿Qué más quieres copiar? ¿Una celda? ¿Otro rango? ¿Otro rango discontinuo? ¿Y dónde lo quieres pegar? - Victor Rodriguez
Me gustaría copiar una celda discontinua al rango anterior y pegarla en la misma fila indicada anteriormente. - Darth Vader
Y donde esta esa celda? Es fija o variable? - Victor Rodriguez
Perdona por no haberlo dicho anteriormente, es una celda fija que contiene un valor numérico, en este caso es la H66. - Darth Vader
Tal y como te comenté, necesitaría copiar además del rango de celdas visto anteriormente, el valor de otras celdas no contiguas, como por ejemplo: el valor de la celda H67.¿Hay alguna manera de indicar que copie un rango & el valor de otra celda no contigua? - Darth Vader