
Sub Sposta_riga()
Sheets("Foglio1").Select
Rows("1:1").Select
Selection.Copy
Sheets("Foglio2").Select
Sheets("Foglio2").Range("A2").Select
ActiveSheet.Paste
End Sub |
Private Sub Worksheet_SelectionChange()
If Range("A1")= "" Then
Exit sub
End If
MsgBox ("Ciao!")
End Sub |
Private Sub Worksheet_SelectionChange()
If Range("A1")= "" Then
Exit sub
End If
MsgBox ("Ciao!")
End Sub
------------ modifica
Private Sub Worksheet_SelectionChange()
If Range("A1")= "" Then
MsgBox (" Cella A1 senza VALORI ")
Exit sub
End If
End Sub
|
