Guardar datos diferentes de una celda y se queden fijos en otras celdas

[eugeniocol]

Hola,quiero reflejar y que queden fijos los datos en varias celdas, datos de una celda que cada x dias varia.

la celda naranja que recoje el dato principal esta enlazada a otra hoja.

subo libro.

salud2.

GUARDAR NUMEROS EN CELDAS.xls

[eugeniocol]

la columna vertical de la hoja1 lo solucione, de esta forma de momento me funciona espero que este bien:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$H$5" Then Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Value = Target.Value

If Target.Address = "$I$5" Then Range("I" & Rows.Count).End(xlUp).Offset(1, 0).Value = Target.Value

If Target.Address = "$E$5" Then Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Value = Target.Value

ect..

ect..

ect..

End Sub

pero aplicando la misma idea a la hoja2

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$H$25" Then Range("ICS25").End(xlToLeft).Offset(0, 1).Value = Target.Value

If Target.Address = "$H$26" Then Range("ICS26").End(xlToLeft).Offset(0, 1).Value = Target.Value

If Target.Address = "$H$27" Then Range("ICS27").End(xlToLeft).Offset(0, 1).Value = Target.Value

End Sub

me da error en cuanto lo psado del rango IV ???

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$H$25" Then Range("IV25").End(xlToLeft).Offset(0, 1).Value = Target.Value

If Target.Address = "$H$26" Then Range("IV26").End(xlToLeft).Offset(0, 1).Value = Target.Value

If Target.Address = "$H$27" Then Range("IV27").End(xlToLeft).Offset(0, 1).Value = Target.Value

End Sub

salud2.

[eugeniocol]

bueno modifico y centro la pregunta

subo libro.

salud2.

GUARDAR NUMEROS EN CELDAS II.xls

[eugeniocol]

alguien porfa que me una solucion ????

salud2.