copiar celda de otra hoja
Publicado por NicoMAFE (1 intervención) el 26/10/2009 14:40:51
Necesito hacer un bucle para copiar las celdas de una hoja en otra hoja. La primera hoja tiene el siguiente formato:
Trabajador 1 1 2 5 6 9 10 15 3 4 7 8 11 12
la otra hoja tiene este otro formato:
Miercoles 01-jul 1 2 3 4
Jueves 02-jul 5 6 7 8
Viernes 03-jul 9 10 11 12
Sabado 04-jul 13 14 15 16
El problema viene porque no se copia el valor de la celda C6 con mi instruccion, sino que se copia el valor de otra celda.
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 26/10/2009
'
Dim fila, col As Integer
fila = 7
col = 3
Cells(fila, col).Select
ActiveCell.FormulaR1C1 = "=Turnos!c6" ' necesito que copie el valor de la celda C6
Cells(fila, col + 1).Select
ActiveCell.FormulaR1C1 = "=Turnos!d6"
Cells(fila, col + 2).Select
ActiveCell.FormulaR1C1 = "Turnos!c7"
Cells(fila, col + 3).Select
ActiveCell.FormulaR1C1 = "Turnos!d7"
End Sub
Trabajador 1 1 2 5 6 9 10 15 3 4 7 8 11 12
la otra hoja tiene este otro formato:
Miercoles 01-jul 1 2 3 4
Jueves 02-jul 5 6 7 8
Viernes 03-jul 9 10 11 12
Sabado 04-jul 13 14 15 16
El problema viene porque no se copia el valor de la celda C6 con mi instruccion, sino que se copia el valor de otra celda.
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 26/10/2009
'
Dim fila, col As Integer
fila = 7
col = 3
Cells(fila, col).Select
ActiveCell.FormulaR1C1 = "=Turnos!c6" ' necesito que copie el valor de la celda C6
Cells(fila, col + 1).Select
ActiveCell.FormulaR1C1 = "=Turnos!d6"
Cells(fila, col + 2).Select
ActiveCell.FormulaR1C1 = "Turnos!c7"
Cells(fila, col + 3).Select
ActiveCell.FormulaR1C1 = "Turnos!d7"
End Sub
Valora esta pregunta


0