Macro Excel per controllare contenuto colonne

Question

Buona Sera , Avrei bisogno di una mano per risolvere la seguente situazione :

Ho un DataBase excel che gestisco con diverse userform ( inserimento dati , ricerca e modifica ecc. ) dovrei inserire una funzione/macro che mi verifichi prima di avviare una procedura di copia , se tutte le righe della "Colonna A " contengono come valore 1 e tutte le righe della " Colonna B " contengano 0 .

Colonna A	Colonna B
1	0
1	0
1	0
1	0
1	0
1	0

Grazie anticipatamente per la certa attenzione

Ivo Allinoro

Answer 1

io non so cosa hai tu nelle tue colonne. Tu hai scritto che vuoi controllare se il valore è sempre 1 in colonna A e sempre 0 in colonna B. La mia routine lo fa:

Questo indipendentemente dai numeri di valori differenti nelle due colonne. Se non sono tutti 1 in A e tutti 0 in B restituisce Falso.

Se le tue colonne hanno una intestazione, modifica così le due righe di codice:

         If Evaluate("=SUM(Foglio1!A2:A" & lRiga & ")") = lRiga - 1 Then colA = True

         If Evaluate("=SUM(Foglio1!B2:B" & lRiga & ")") = 0 Then colB = True

Cosa hai realmente in quelle colonne? Puoi condividere un file su OneDrive o altro programma di sharing?

Answer 2

Bene!

Ciao e alla prossima.

Answer 3

Grazie !

Era proprio la parte relativa alle intestazioni che mi mancava .

Le due colonne contengono esattamente un (1) ed uno (0) il problema era che essendo intestate " Invio " , la formula doveva partire da A2 e B2 , Io avevo modificato la tua mettendo A2 e B2 ma non il -1 dopo lRiga .

Grazie per l'aiuto e per avermi fatto capire come affrontare in futuro problematiche simili .

Ivo Allinoro

Answer 4

Grazie per la pronta risposta , ho provato subito latua soluzione ma sulla colonna A il risultato è sempre FALSE ! , mentre sulla colonna B se una cella diventa 1 la risposta e FALSE .

Cosa mi sfugge ?

Grazie

Answer 5

Database ed Excel non sono la stessa cosa...

Per la tua richiesta, questa macro controlla nel Foglio1 quanto chiedi, ammesso che NON ci siano righe vuote:

Public Sub m()

    Dim sh As Worksheet

    Dim lRiga As Long

    Dim colA As Boolean

    Dim colB As Boolean

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row

        If Evaluate("=SUM(Foglio1!A1:A" & lRiga & ")") = lRiga Then colA = True

        If Evaluate("=SUM(Foglio1!B1:B" & lRiga & ")") = 0 Then colB = True

    End With

    MsgBox "Colonna A: " & colA & vbNewLine & "Colonna B: " & colB

    Set sh = Nothing

End Sub