Buenas.

¿Cómo podría poner en un GRÄFICO, una forma, un botón, una celda, cualquier cosa que me presente el VALOR de la celda A1 (VARIA CONSTANTEMENTE) de la Hoja1 del mismo libro.

Muy agradecido.

Inserta la autoforma y en la barra de fórmulas pon =A1 y pulsa Enter

Hola Antoni.

Ya había probado esa solución. No me sirve.

Todos los días en A1304 se agregan nuevos datos desplazando los anteriores una fila arriba.

 

Private Sub Worksheet_Change(ByVal Target As Range)

 

On Error GoTo errorfecha

 

If Not Intersect(Target, Range("A1340")) Is Nothing Then

If Range("A1340").Value <> "" Then

If Application.WorksheetFunction.Weekday(Range("A1340").Value, 2) >= 6 Then

On Error GoTo 0

MsgBox "No puede ser sábado o domingo", vbCritical

Range("A1340").EntireRow.Delete

Range("A1340").Select

 

ElseIf (Range("A1340").Value < Date - 3 Or Range("A1340").Value > Date + 3) Then

MsgBox "No puede superar los tres días", vbCritical

Range("A1340").EntireRow.Delete

Range("A1340").Select

 

Else

If Not Intersect(Target, Rows("1341:1341")) Is Nothing Then

Rows("2:2").EntireRow.Delete

Target.Offset(0, 2).Select

 

End If

End If

End If

End If

 

Exit Sub

 

errorfecha:

Range("A1340").ClearContents

 

End Sub

 

La fórmula propuesta, si hoy pongo A1340, mañana aparece como A1339.

Ponga $A$1340 A$1340 ……da igual automáticamente mañana asume A1339 pasado mañana A1338……

 

Gracias por todo. Muchísimas gracias.

Adjunta tu archivo y explícate mejor.

@Pedro Alonso He tenido la oportunidad de leerte en otras consultas y espero no me lo tomes a mal porque entiendo que tratas de ser directo, pero por lo general faltan detalles, porque incluso hasta en los títulos nos dejas varias cosas a la interpretación o deducción.

En base a lo que agregaste ahora, el escenario que analizó el maestro @Antoni cambió al insertar filas. Y al hacerlo naturalmente cambia la referencia. Con estos nuevos elementos entonces debes modificar y combinar soluciones.

Primero, la relación autoforma = a celda se mantiene, así como lo puso Antoni, digamos A1 y en A1 algo como esto:

=DESREF(A1340,-1,0)

Así no importará que insertes filas, la referencia cambiará siempre a la celda de arriba del nuevo dato.

Después en tu código debes hacer referencia a esa celda:

'Aquí tu parte de código = Worksheets("Sheet1").Range("A1").Value

Con estos cambios deberías poder solucionar tu necesidad, si no hay más cambios indudablemente.

Saludines