Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

[Excel 2007]- Macro per evidenziare colonne particolari Opzioni
aetio
Inviato: Wednesday, September 04, 2013 10:50:59 AM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,

In un foglio di lavoro sono presenti 5 tabelle di altezza e larghezza variabili [ma la larghezza max. è fino a col.90 (CL)] , SEMPRE impostate come ho evidenziato in giallo: i dati di ciascuna tabella distano dalla fine della precedente tabella 6 righe, compresa la prima tabella che dista 6 righe dall'intestazione del foglio di lavoro.
In queste tabelle attualmente devo cercare ed evidenziare manualmente le celle che NON hanno dati (celle vuote) che incolonnate hanno un'altezza di incolonnamento >= a 18, ma solo quelle che iniziano, a scendere, dalla 1^riga successiva a quella dell'intestazione. Nell'esempio in tabella 2 e 3 rispettivamente quelle delle colonne classificate T6 e H2.
per facilitare la comprensione ho preparato QUESTO Esempio.
E' possibile scrivere una macro che con le appropriate istruzioni svolga questo ingrato compito?
Grazie infinite per tutto. Buona giornata
eZio

Sponsor
Inviato: Wednesday, September 04, 2013 10:50:59 AM

 
a10n11
Inviato: Wednesday, September 04, 2013 3:24:35 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
prova questa

Sub vuote18()
riga = 10
ctr = False
For n = 1 To 5
rigatabella = Cells(riga, 2).End(xlDown).Row
colonnaTabella = Cells(riga - 1, 2).End(xlToRight).Column
For x = 3 To colonnaTabella
Set area = Range(Cells(riga, x), Cells(rigatabella, x))
For Each cl In area
If cl.Value = "" Then
cont = cont + 1
ctr = True
Else
ctr = False
End If
If Not ctr Then
If cont >= 18 Then
Range(Cells(cl.Row - 1, cl.Column), Cells(cl.Row - 1 - (cont - 1), cl.Column)).Interior.ColorIndex = 3
cont = 0
Else: cont = 0
End If
End If
Next cl
Next x
ctr = False
riga = rigatabella + 6
Next n
Set area = Nothing
End Sub
saluti
Giap

aetio
Inviato: Wednesday, September 04, 2013 4:39:31 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,

provata, è perfettamente funzionante... :-))

Grazie infinite
eZio


Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.