Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

ricerca valori

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

ricerca valori

Postdi podge » 18/02/19 14:43

Sto utilizzando questo codice per la ricerca di un valore e funziona tutto benissimo.....
Codice: Seleziona tutto
Sub copiaFile()
    Dim WK1 As Workbook
    Dim WK2 As Workbook
    Dim xOut As Worksheet
    Dim xWk As Worksheet
    Dim x As Long
    Dim uR As Long
    Dim i As Long
    Dim FileAltro
    Application.ScreenUpdating = False
    FileAltro = Application.GetOpenFilename
    If FileAltro = "Falso" Then
        MsgBox "Operazione annullata!", vbOKOnly + vbInformation
        GoTo chiudi
    End If
    Set WK1 = ThisWorkbook
    Set WK2 = Workbooks.Open(FileAltro)
    Set xOut = WK1.Worksheets(1)
    With xOut
        .Cells(1, 1) = "Nome"
        .Cells(1, 2) = "Istituto"
        .Cells(1, 3) = "Orario Inizio"
        .Cells(1, 4) = "Orario Fine"
        x = 2
        For Each xWk In WK2.Worksheets
            uR = xWk.Cells(Rows.Count, 2).End(xlUp).Row
           [color=#FF0000] For i = 1 To uR[/color]
             [color=#FF0000]   If xWk.Cells(i, 2) = "PERMESSO" Then[/color]
                    xOut.Cells(x, 1) = xWk.Name
                    xOut.Cells(x, 2) = xWk.Cells(i, 2)
                    xOut.Cells(x, 3) = xWk.Cells(i, 3)
                    xOut.Cells(x, 4) = xWk.Cells(i, 4)
                    x = x + 1
                End If
            Next
        Next
        WK2.Close SaveChanges:=False
        .Columns("A:D").EntireColumn.AutoFit
    End With
chiudi:
    Set WK1 = Nothing
    Set WK2 = Nothing
    Set xOut = Nothing
    Set xWk = Nothing
    Application.ScreenUpdating = True
End Sub

ora però vorrei modificarla per poter ricercare tutti i valori presenti nella colonna 2 dalla riga 10.....
ho provato a cambiare la parte che ho evidenziato tra "color" con
For i = 10 To uR

Codice: Seleziona tutto
 [color=#FF0000]   If xWk.Cells(i, 2) = "<>" Then[/color]

ma non va....dove sbaglio?
grazie
podge
Newbie
 
Post: 8
Iscritto il: 30/01/19 15:46

Sponsor
 

Re: ricerca valori

Postdi Anthony47 » 18/02/19 15:31

Dove sbagli? Sbagli a non dire che cosa vorresti ottenere.

Ti aspettiamo con qualche dettaglio "in più"...
Avatar utente
Anthony47
Moderatore
 
Post: 17445
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ricerca valori

Postdi podge » 18/02/19 16:42

hai ragione......in pratica con il codice che ho scritto cerco il valore permesso in colonna 2 e come risultato ho il nome del dipendente che usufruisce del permesso l'orario in cui ne usufruisce, es 0800/1000 e per ultimo ho il tot delle ore dell'assenza, in questo caso 2.
Vorrei che invece di cercarmi una sola tipologia di assenza, presente in colonna 2, cercasse tutte le tipologie presenti in colonna 2......spero di essere stato chiaro.
podge
Newbie
 
Post: 8
Iscritto il: 30/01/19 15:46

Re: ricerca valori

Postdi Anthony47 » 18/02/19 19:24

Da quello che ho capito, dovresti modificare il tuo codice come segue:
Codice: Seleziona tutto
            For i = 10 To uR
                If xWk.Cells(i, 2) <> "" Then


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17445
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ricerca valori

Postdi podge » 19/02/19 08:55

Perfetto le avevo provate tutte ma mi incaponivo con il segno =...... grazie
podge
Newbie
 
Post: 8
Iscritto il: 30/01/19 15:46

Re: ricerca valori

Postdi podge » 19/02/19 09:04

Perfetto le avevo provate tutte ma mi incaponivo con il segno =...... grazie
podge
Newbie
 
Post: 8
Iscritto il: 30/01/19 15:46


Torna a Applicazioni Office Windows


Topic correlati a "ricerca valori":

Valori
Autore: losito84
Forum: Applicazioni Office Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: m.paolo e 16 ospiti