Moderatori: Anthony47, Flash30005
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Call TrovaCode
End If
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Range("M" & Riga).Value = UserForm2.TextBox1
UserForm1.TextBox1 = ""
UserForm1.Show
End If
End Sub
Public Riga
Sub InserimentoCode()
UserForm1.TextBox1 = ""
UserForm1.Show
End Sub
Sub TrovaCode()
UR = Range("A" & Rows.Count).End(xlUp).Row
Trovato = 0
For RR = 2 To UR
Codice = Range("A" & RR).Value
If Codice = Val(UserForm1.TextBox1) Then
Trovato = 1
Riga = RR
End If
Next RR
If Trovato = 1 Then
UserForm1.Hide
UserForm2.Show
Else
If UserForm1.TextBox1 = "" Then
UserForm1.Hide
Else
MsgBox "Codice non trovato, ridigitare"
UserForm1.TextBox1 = ""
End If
End Sub
Private Sub TextBox1_AfterUpdate()
'....
End Sub
Public DataC
Sub InserimentoData()
UserForm2.TextBox1 = ""
UserForm2.Show
End Sub
Sub TrovaCode()
UR = Range("A" & Rows.Count).End(xlUp).Row
Trovato = 0
For RR = 2 To UR
Codice = Range("A" & RR).Value
If Codice = Val(UserForm1.TextBox1) Then
Range("M" & RR).Value = DataC
UserForm1.TextBox1 = ""
Exit Sub
End If
Next RR
If UserForm1.TextBox1 = "" Then UserForm1.Hide
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Call TrovaCode
End If
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If UserForm2.TextBox1 = "" Then
UserForm2.Hide
Else
DataC = UserForm2.TextBox1
UserForm2.TextBox1 = ""
UserForm1.TextBox1 = ""
UserForm1.Show
End If
End If
End Sub
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 38 ospiti