Actividad pública reciente
Ha valorado "Excelente" la respuesta
Dimensiones de autoformas
En el modulo de la hoja: Private Sub Worksheet_Change(ByVal Target As Range) Dim Hoja As Worksheet On Error Resume Next If Target.Address = "$A$1" Then If [A1] = "" Or [A2] = "" Then MsgBox "faltan parametros" Exit Sub End If Set Hoja = ActiveSheet...