Trasladar las casillas de una columna a una casilla fija de distintas hojas
hola,
Quisiera una subrutina, para añadir a una macro que me está dando problemas.
Esta subrutina debe asignar a una casilla fija de cada hoja el valor de una casilla de la primera hoja perteneciente a un listado (columna). Y repetir esta operación para todas las hojas del libro menos la primera hoja.
De forma que a la casilla A3 de la hoja 2 le de el valor de I3, a la casilla A3 de la hoja 3 le de el valor de I4, a la casilla A3 de la hoja 4 le de el valor de I5, etc...
Por si fuese de interés para la respuesta, o pudiese resolver otras dudas de quienes lean esta pregunta la macro a la que quiero añadir esta subrutina lo que hace es generar un listado de codificación a base de "ensamblar" las casillas de una fila, la pego:
Sub generacioncodificación()
Dim LPosition As Integer
Application.ScreenUpdating = False
idxRow = 3
idxRowOri = 1
For Each c In Worksheets(1).Range("G4:G28")
For i = 1 To c.Value
LPosition = InStr(Cells(idxRow, 3), "/")
Cells(idxRow, 9).Value = Cells(idxRow, 1) & "-" & Cells(idxRow, 2) & "-" & Cells(idxRow, 3) & "-" & Cells(idxRow, 4) & "-" & Cells(idxRow, 5) & "-" & Cells(idxRow, 6) & "-" & Cells(idxRow, 7)
Next i
idxRowOri = idxRowOri + 1
Next c
Application.ScreenUpdating = True
End Sub
1 Respuesta
Prueba esta:
sub secuencia()
dim i as integer
dim f as integer
'4c7569735f50
f=2
for i=2 to (sheets.count)
f=(f+1)
sheets(i).range("a3")=sheets(1).range("i" & f)
doevents
next
Hola Luis,
antes de nada pedirte perdón por la rudeza de mi pregunta inicial, realmente me caducó la sesión y al enviar el mensaje envió solo la versión guardada por la página, en la que no estaba incluida mi agradecimiento al final del mensaje.
He probado la subrutina y, cambiando el parámetro "i" por otro, me ha ido bien (i, ya estaba en uso)
seguiré investigando en esto del visual basic para ahorrar tiempo
muchas gracias por todo.
