Moderatori: Anthony47, Flash30005
If Worksheets("Alpha").Cells(iazz, jazz + 2) & "," & _
Worksheets("Alpha").Cells(iazz, jazz + 3) = valoreinserito Then
. . .
If Worksheets("Alpha").Cells(iazz, jazz + 18) & "," & _
Worksheets("Alpha").Cells(iazz, jazz + 19) = valoreinserito Then
unreal19 ha scritto:funziona, però me le cerca solo se i due numeri sono vicini sulla stringa, se sono sparsi sulla stringa ,non li vede
Private Sub CheckBox1_Click()
Caso = 1
TextBox2.Value = "1 numero, oppure uno.due"
CheckBox2.Value = False
End Sub
Private Sub CommandButton1_Click()
Dim ivalore As Integer
If Caso = 0 Then
MsgBox ("Scegli il caso prima di lavorare")
GoTo terminasub
End If
If valoreinserito = "" Then
MsgBox ("Inserisci un valore")
GoTo terminasub
End If
If Caso = 1 Then
valoreinserito = Replace(valoreinserito, ",", ".")
Primo = Int(Val(valoreinserito))
valoreinserito = Replace(valoreinserito, Primo & ".", "")
Secondo = Int(Val(valoreinserito))
'If Secondo = 0 Then Secondo = primo
For iazz = 1 To 18
For Tabel = 0 To 1
FPri = Application.WorksheetFunction.CountIf(Worksheets("Alpha").Cells(iazz, 3 + Tabel * 16).Range("A1:N1"), Primo)
FSec = Application.WorksheetFunction.CountIf(Worksheets("Alpha").Cells(iazz, 3 + Tabel * 16).Range("A1:N1"), Secondo)
If FPri > 0 And FSec > 0 Then
' Worksheets("Alpha").Cells(iazz, 3 + Tabel * 16).Range("A1:N1").Select
Worksheets("Alpha").Cells(iazz, 3 + Tabel * 16).Range("A1:N1").ClearContents
End If
Next Tabel
Next iazz
TextBox1.Value = ""
End If
If Caso = 2 Then
ivalore = valoreinserito
If ivalore >= 1 And ivalore <= 18 Then
For iazz = 1 To 18
If Worksheets("Alpha").Cells(iazz, 2) = valoreinserito Then
For kazz = 1 To 14
Worksheets("Alpha").Cells(iazz, kazz + 2) = ""
Next kazz
End If
Next iazz
End If
If ivalore >= 19 And ivalore <= 36 Then
For iazz = 1 To 18
If Worksheets("Alpha").Cells(iazz, 18) = valoreinserito Then
For kazz = 1 To 14
Worksheets("Alpha").Cells(iazz, kazz + 18) = ""
Next kazz
End If
Next iazz
End If
TextBox1.Value = ""
End If
terminasub:
End Sub
Torna a Applicazioni Office Windows
Formattzione valori con simbolo triangolini colorati Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Icona di ricerca al centro del desktop Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 11 |
SOMMARE DUE VALORI IN DUE COLONNE DIVERSE Autore: millennia80 |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 7 ospiti