| | Post: 6 | Registrato il: 26/10/2018
| Città: CASALE MONFERRATO | Età: 38 | Utente Junior | 2016 | | OFFLINE | |
|
14/11/2018 00:55 | |
Di seguito il codice che utilizzavo nella msgbox:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, c
If Not Intersect(Target, Range("B:B")) Is Nothing Then
r = Target.Row
c = Target.Column
If Target <> "" Then MsgBox ("Hai selezionato" & Cells(r, 1) & Target)
End If
End Sub |
|
|