Ciao a tutti, sto cercando di far funzionare il codice sottoriportato ma con risultati pessimi.
Private Sub Conferma_Click()
Sheets("Foglio Stampa").Select
For N = 1 To 157 Step 3
For NN = 44 To 96 Step 1
If Userform2.Controls("TextBox" & N).Text <> "" Then
ActiveSheet.Shapes("Text Box " & NN).Value = Userform2.Controls("TextBox" & N)
Else
ActiveSheet.Shapes("Text Box 154").Value = "zero"
End If
Next NN
Next N
End Sub
Avete qualche dritta da darmi ?
|