Buona giornata, LadyExcel85;
un caro saluto ad Alfredo.
Se ho interpretato correttamente la tua riesta potresti provare con un Evento del tipo:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
UserForm1.Show
End If
End Sub
e, in UserForm1, un Codice VBA del tipo:
Option Explicit
Private Sub UserForm_Initialize()
Dim Cll As String, Nmx As String
Dim VlR As Integer
Nmx = Cells(ActiveCell.Row, 1).Value
VlR = ActiveCell.Value
Cll = ActiveCell.Address
Me.Label1.Caption = "Hai modificato la Cella: " & Cll & Chr(10) & " Il Valore è: " & Nmx & ", " & VlR
End Sub
A disposizione.
Buon Lavoro
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013