Condividi:        

Confronto più celle su più fogli con macro

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

Confronto più celle su più fogli con macro

Postdi nima » 02/05/21 18:19

Buonasera a tutti!!
Eccomi qui chiedendo, come al solito, il vostro aiuto....
Oggi stavo provando e riprovando ma... alla fine se qualcuno mi può dare uno spunto non riesco a procedere.
Allora...
File excel con più fogli... su ogni foglio devo fare un confronto fra più celle e una adiacente se è presente un testo (preciso che quest'ultima cella risulta essere l'unione di più celle).
Questo è il codice che sono riuscito a fare....
Codice: Seleziona tutto
Sub controllo_note()

Application.ScreenUpdating = False
       
    Dim WS_Count As Integer
    Dim X As Integer
    Dim K As Integer

    Dim Note As Integer
    Dim Inse As Long
   
    WS_Count = ActiveWorkbook.Worksheets.Count

        For X = 5 To WS_Count
                For K = 8 To 38
               
                                Note = Sheets(X).Cells(K, 17).Value
                                Inse = Sheets(X).Range(Cells(K, 12), Cells(K, 16))
                        If Inse <> "" And Note = "" Then
                            MsgBox ("Ricorda che devi compilare le NOTE.")
                            Cells(K, 17).Select
                            Exit For
                        End If
                Next K
       
        Next X
       
Application.ScreenUpdating = True
           
End Sub


Eseguendo il codice l'errore mi evidenzia la riga dove viene indicata cosa mettere nella variabile "Inse" e mi appare la scritta "Tipo non corrispondente".
La variabile "Note" è quella come indicavo prima prende il valore da una cella unita fra più colonne (Q R S).
Come al solito ringrazio anticipatamente e rimango in attesa di vostre suggerimenti!
nima
Utente Junior
 
Post: 18
Iscritto il: 14/01/16 16:38

Sponsor
 

Re: Confronto più celle su più fogli con macro

Postdi Anthony47 » 02/05/21 21:11

Inse e' chiarata di tipo Long, ma poi mi pare che cerchi di metterci dentro una matrice; dal codice pero' io non so identificare la natura corretta dei dati da gestire e pertanto suggerire qualcosa di sensato; alla cieca direi che forse ti potrebbe servire usare WorksheetFunction.CountA per contare quante celle sono compilate in Range(Cells(K, 12), Cells(K, 16))

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


Torna a Applicazioni Office Windows


Topic correlati a "Confronto più celle su più fogli con macro":


Chi c’è in linea

Visitano il forum: Nessuno e 141 ospiti