sono un neofita di VBA e questo è il mio primo post, spero possiate aiutarmi.
Devo creare una macro che si attivi nel caso in cui in una cella vi sia un valore <15, e la macro dovrebbe nascondere delle righe ed aggiungerne delle altre. Al variare del valore, tramite tastiera, della cella, la macro dovrebbe fare l'operazione inversa, ossia far ritornare visibili le righe nascoste e togliere le nuove righe aggiunte.
Chiaramente la macro dovrebbe partire in automatico una volta cambiato il valore nella cella.
Sono riuscito a risolvere parzialmente il problema guardando nel forum soluzioni simili e sono giunto a questo codice:
- Codice: Seleziona tutto
Sub Macro1()
If Range("$coordinate$cella").Value < "15" Then
Range ("Numero_righe_selezionate).Select
Range("Coordinate_casella_selezionata_nelle_righe_selezionate_sopra").Activate
Selection.EntireRow.Hidden = True
End If
End Sub
Questo codice mi nasconde le righe selezionate automaticamente ma:
- la macro non si avvia in automatico al variare del valore nella cella
- se la cella contiene un valore >15 non torna a scoprire le celle nascoste in precedenza
- non viene aggiunta nessuna riga. Ci sarebbe anche il problema dovuto al fatto che essendo aggiunte le prime due righe in alto del foglio, sfalsa tutti i valori dei riferimenti della macro
Spero di essere stato chiaro, ringrazio in anticipo per la disponibilità