ricerca

Hai un problema con Excel?

Nuova discussione

ricerca
di Mauro (utente non iscritto) data: 05/09/2013 17:33:30
Ciao a tutti, il codice sotto riportato mi fa comparire il secondo messaggio di continuo, mi da errore in End If.
Nel primo MsgBox Volevo inserire il nominativo.

Grazie Mauro

Sub ricerca()
Dim a As Integer
Dim b As String
    For a = 2 To 100
        If Foglio1.Cells(32, 3).Value = Foglio3.Cells(a, 2).Value Then ' cerco il numero di telefono
            Cells(a, 1).Value = b ' nominativo
            MsgBox "risultato trovato" ' inserire il nominativo
        Else
            MsgBox "Cliente non Inserito"
        End If
    Next a
End Sub

di Grograman data: 05/09/2013 18:24:36
Ricetta: Ricerca Celle

Ingredienti (dosi indicative per 1 risultato trovato):
- 1 Ciclo for (ce l'hai)
- Celle da cilare in quantità variabile (ce l'hai)
- 1 Contatore (ce l'hai)
- 1 Criterio di ricerca (ce l'hai)
- Variabili Booleane q.b. (ahi ahi non ce l'hai!)

Procedimento:
Inserire il contatore all'inizio del ciclo for (fatto)
Aggiungere le celle da ciclare (fatto)
Mescolando piano piano ciclare le celle a fuoco vivo finchè il criterio non viene trovato (fatto)
Quando e se il criterio viene riscontrato, aggiungere una booleana al ciclo, e smettere di mescolare (ahi ahi, non l'hai fatto!).
Attendere che il ciclo for si raffreddi ed estrarne la booleana (e dove sta la booleana?)
Se la booleana è accesa, dire "Tutto bene!" altrimenti "tutto male!"

Option Explicit

Sub ricerca()
Dim a As Integer
Dim b As String
Dim blnFound As Boolean
    For a = 2 To 100
      
      If Foglio1.Cells(32, 3).Value = Foglio3.Cells(a, 2).Value Then ' cerco il numero di telefono
        Cells(a, 1).Value = b ' nominativo
        blnFound = True ''o = 1 o solo "blnfound"
        Exit For '' ahi ahi ahi
      End If
    Next a
    
    If Not blnFound Then
      MsgBox "Cliente non Inserito"
    Else
      MsgBox "risultato trovato" ' inserire il nominativo
    End If
End Sub
' p.s. STAI INVOLONTARIAMENTE USANDO IL CODENAME DEI FOGLI!!!

ricerca
di Mauro (utente non iscritto) data: 05/09/2013 18:45:16
Grograman, grazie per il tuo intervento, volevo anche inserire il nominativo nel MsgBox che trovo nella colonna a,1 esempio: MsgBox " Mario Rossi "
Grazie
Mauro
ricerca
di Mauro (utente non iscritto) data: 05/09/2013 18:55:24
Perfetto ho fatto io.

Grazie ancora Mauro

Vuoi Approfondire?