allora provo a spiegarmi.
ho questo codice:
- Codice: Seleziona tutto
Sub UserForm_Activate()
Dim riga As Integer
Dim colonna As Integer
dim Foglio as integer
Dim Forno As String
Dim Data_inizio As Date
Dim dimensioni As Range
Dim ciclo As Range
'individua il forno in modifica
riga = Selection.Row
colonna = Selection.Column
'MsgBox colonna
'MsgBox riga
Forno = ActiveSheet.Cells(riga, 1).Value
'individua la data di inizio ciclo
Data_inizio = ActiveSheet.Cells(4, colonna).Value
'cerca le dimensioni dei blocchi possibili sul forno
If Forno <> "" Then
'MsgBox Forno
'MsgBox data_inizio
Foglio15.Select
Cells(1, 1).Select
Do Until Selection.Value = Forno Or Selection.Value = ""
'MsgBox Selection
'MsgBox Forno
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(1, 0).Select
'righe = Selection.Row
'colonne = Selection.Column
Set dimensioni = Range(Selection, Selection.End(xlDown))
'cerca i cicli possibili sul forno
Foglio16.Select
Range("A2").Select
Set ciclo = Range(Selection, Selection.End(xlDown))
'Imposta tutti i valori della userform
UserForm1.Label1.Caption = Forno
UserForm1.Label2.Caption = Data_inizio
UserForm1.ComboBox1.List() = dimensioni.Value
UserForm1.ComboBox2.List() = ciclo.Value
Else
MsgBox " SELEZIONA UNA CASELLA"
UserForm1.Hide
Exit Sub
End If
End Sub
che si attiva all'apertura della maschera e per prima cosa vengono definiti i valori delle variabili riga e colonna.
vorrei utilizzare i valori di queste due variabili in un altra sub tipo
- Codice: Seleziona tutto
Private Sub CommandButton1_Click()
Dim testo1 As String
'crea il testo da inserire nella casella
testo1 = "n°" & " " & TextBox1.Value & " " & "blocchi" & vbCrLf & " " & ComboBox1.Value & " " & "sp." & " " & TextBox2.Value
MsgBox testo1
MsgBox riga
MsgBox colonna
end sub
Come posso fare?
Ciao
