
Private Sub ScrollBar1_Change()
valore = Me.ScrollBar1.Value
Sheets("input dati").Activate
Range("B15").Value = "xxxx"
Range("C15").Value = valore
End Sub |
Private Sub ScrollBar1_Change()
Sheets("input dati").Range("B15").Value = "xxxx"
Sheets("input dati").Range("C15").Value = Me.ScrollBar1.Value
End Sub
|
