Macro Excel su colonne

[mariosad]

Salve a tutti,
vi espongo il mio problema. Dovrei realizzare una macro collegata ad un pulsante che mi nasconda delle colonne solo ed esclusivamente quando una cella delle stesse ha un valore uguale a 0.

come posso fare?

Grazie a tutti.

[luck]

In che senso?
se trova una cella non vuota con valore uguale a Zero, allora nascondi l'intera colonna?

su tutto il foglio?
su un'area selezionata?

[mariosad]

Allora dovrebbe nascondere tutte le colonne di un'area ben precisa che abbiano un valore all'interno di una cella nullo quindi non presente mentre visualizzare tutte quelle che hanno un valore all'interno della cella diverso da zero. questo valore che devo modificare quindi impostare a nullo o diverso da zero, per tutte le colonne da controllare si trova sulla stessa riga.

[luck]

boh, forse ho capito
prova così:

Inserisci un tastino e assegnaci questa macro:

Private Sub CommandButton1_Click()

    colonnainizio = 1
    colonnafine = 5
    rigavalore = 2
    
    
    For col = colonnainizio To colonnafine
        If ActiveSheet.Cells(rigavalore, col) = "" Or ActiveSheet.Cells(rigavalore, col) = 0 Then
            ActiveSheet.Columns(col).EntireColumn.Hidden = True
        Else
            ActiveSheet.Columns(col).EntireColumn.Hidden = False
        End If
    Next col

End Sub

le prime due variabili identificano l'intervallo di colonne da analizzare 1 = A, 2 = B, ecc...
qui agisce dalla colonna 1 alla 5 (da A ad E)
la terza variabile determina la riga da analizzare.

boh, prova, tieni presente che la macro nasconde le colonne, poi le devi scoprire in modo manuale, se non automatizziamo qualcosa in più

ciao ciao

[mariosad]

ok provato e funziona benissimo ora se lo inserisco sul mio file mi dà un errore: Impossibile trovare il progetto o la libreria. xke??????????

[luck]

Originariamente inviato da mariosad
ok provato e funziona benissimo ora se lo inserisco sul mio file mi dà un errore: Impossibile trovare il progetto o la libreria. xke??????????

su che riga?

[mariosad]

mi compare sul primo rigo "private.........", una banda gialla e non mi va avanti. e mi evidenzia in blu colonnaionizio=......... xke????????????????

[luck]

boh, prova a dichiarare le variabili prima di utilizzarle, ovvero DOPO Private sub...

e prima dell'assegnazione dei valori:

Dim colonnainizio as integer
Dim colonnafine as integer
Dim rigavalore as integer

...inoltre controlla di aver copiato il codice nella sezione giusta del VBA
per fare questo, non so come fai di solito tu: io per non sbagliare vado nel mio Excel, sul foglio di lavoro dove mi serve il pulsante, aggiungo il pulsante, click col destro "visualizza codice"... lì devi inserire la macro: occhio che la prima e l'ultima riga te le dà già l'edito di default...

spero ti possa aiutare.
fai sapere

[mariosad]

si si ho fatto cosi. Dichiarando le variabili va fino alla prima stringa dopo l'if cioe su "ActiveSheet.Cells(rigavalore, col) = "" Or ActiveSheet.Cells(rigavalore, col) = 0 Then"
e mi dà un errore di runtime-"13" tipo non corrispondente.

Ma che gli ho fatto?


su un foglio nuovo funziona alla grande!!!!!!

[mariosad]

luck......
risolto ero io il pirla, sbagliavo riga e si andava a posizionare sulla riga dove ho messo un filtro e dava errore.

Tutto Funzionante!!!!!!

Grazie mille