
Private Sub cmdSelezionaColonne_Click()
For y = 1 To 35
If Range("A" & y) = "" Then
intNumeroRighe = y - 1
Exit For
End If
Next
strIntervallo = "A1:A" & intNumeroRighe & ", B1:B" & intNumeroRighe
Range(strIntervallo).Select
End Sub
Private Sub cmdCreaGrafico_Click()
Chart.Add
?????????????????
End Sub |
