
Private Sub CommandButton1_Click() ... ...tuo codice... ... End Sub |
Private Sub CommandButton1_Click()
Range("A1:D1").AutoFilter
Sheets("Esempio").Range("E17").Activate
End Sub
|
Private Sub Workbook_Open() UserForm1.Show UserForm1.Top = 140 UserForm1.Left = 700 End Sub |
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Index = 2 Then
UserForm1.Show
UserForm1.Top = 140
UserForm1.Left = 700
Else
UserForm1.Hide
End If
End Sub |
codice 1
Range("b1") = Range("a1") + 1
Range("b2") = Range("a1") + 2
Range("b3") = Range("a1") + 3
codice 2
Set cella = Range("a1")
valore = cella.Value
Range("b1") = valore + 1
Range("b2") = valore + 2
Range("b3") = valore + 3
codice3
valore = Range("a1")
Range("b1") = valore + 1
Range("b2") = valore + 2
Range("b3") = valore + 3 |
