Visualizzazione dei risultati da 1 a 4 su 4
  1. #1

    [VISUAL BASIC EXCEL] Nascondi righe

    Buongiorno a tutti!

    Sto aggiornando il file che uso per fare i preventivi e ho la necessità di nascondere determinate righe se nelle celle non c'è nessun valore, attualmente utilizzo la seguente macro:


    codice:
    Sub NascondeRiga()
    Dim CL As Object
    For Each CL In Range("f52:f101")
    If CL.Value = "" Then CL.EntireRow.Hidden = True
    Next CL
    End Sub

    Il range f52:f101 fa parte di un capitolo, il problema è che se aggiungo delle righe nel capitolo precedente la macro sopra non aggiorna il suo range e mi nasconde righe che non vorrei nascondere .

    La macro sopra può essere modificata in modo che aggiorna il range se io aggiungo righe nel capitolo precedente?

    Ciao!!!

    Per i moderatori: L'avevo messo erroneamente in Windows w programmi, scusate...
    Ultima modifica di LeleFT; 13-11-2014 a 14:09 Motivo: Aggiunti i tag CODE

  2. #2
    Moderatore di Programmazione L'avatar di LeleFT
    Registrato dal
    Jun 2003
    Messaggi
    17,320
    Quote Originariamente inviata da Mimmuzzo86 Visualizza il messaggio
    Per i moderatori: L'avevo messo erroneamente in Windows w programmi, scusate...
    Ecco, la prossima volta chiedi direttamente ad un moderatore di spostare la discussione. Nel forum non è ammessa la ri-apertura in più posti della stessa discussione.

    Avviso io di là.

    PS: sei comunque nella sezione sbagliata... tutte le versioni di VB vengono trattate nel forum "Visual Basic e .NET Framework". Sposto, e... il codice va postato fra i tag
    codice:
     ...
    . Correggo anche questo.


    Ciao.
    Ultima modifica di LeleFT; 13-11-2014 a 14:12
    "Perchè spendere anche solo 5 dollari per un S.O., quando posso averne uno gratis e spendere quei 5 dollari per 5 bottiglie di birra?" [Jon "maddog" Hall]
    Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza

  3. #3
    OK grazie e scusa ancora...

  4. #4
    Ho risolto!

    Basta dare un nome al range invece che il riferimento numerico.

    Sub NascondeRiga()
    Dim CL As Object
    For Each CL In Range("Nascondibile")
    If CL.Value = "" Then CL.EntireRow.Hidden = True
    Next CL
    End Sub

    Basta dare un nome al range invece che il riferimento numerico.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.