evidenziare determinate colonne

Hai un problema con Excel?

Nuova discussione

evidenziare determinate colonne
di Luca Baz (utente non iscritto) data: 16/02/2013 00:26:46
Un saluto a tutti. Il mio problema e' questo:in una cartella ho creato una decina di fogli. in ogni foglio ho molte colonne numerate in numero crescente. l'ultimo foglio, che ho chiamato "elenco fatture", ho inserito tutte le fatture dell'anno in ordine crescente es:riga 1 fattura 1;
seconda riga fattura2; ECC..
Vorrei se fosse possibile, creare una macro che dicesse ad Excel che quando sono sul foglio "elenco fatture" e sto immettendo la fattura (n),
lui evidenziasse tutte le colonne numerate con (n) negli altri fogli,finche' non passo all'immissione della fattura seguente.
Come dovrei fare? Grazie.

di Raffaele_53 (utente non iscritto) data: 18/02/2013 13:23:47
E' solo un esempio.
Sempre che la fattura sia in colonna A del foglio "elenco fatture" e nei fogli successivi.Evidenziarli no, ho pensato a metterli in grassetto con cartteri (Font.Bold).
Posizionati sulla fattura e avvia la macro.
Di sicuro c'è di meglio.

Il Worksheet_Change non l'ho tenuto in considerazione.

Private Sub CommandButton1_Click()
Dim Val As String, Name As Worksheets
num = Worksheets.Count
Sheets("elenco fatture").Select
x = ActiveCell.Row
Val = Sheets("elenco fatture").Cells(x, 1)
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
    If ws.Name <> "elenco fatture" And ws.Name <> "???" Then
Uriga = Sheets(ws.Name).Range("A" & Rows.Count).End(xlUp).Row
For y = 1 To Uriga
If Sheets(ws.Name).Cells(y, 1) = Val Then
     Sheets(ws.Name).Range(y & ":" & y).Font.Bold = True
    Else
 Sheets(ws.Name).Range(y & ":" & y).Font.Bold = False
End If
Next y
End If
att = att + 1
Next ws
If att = num Then
MsgBox "Aggiornamento Eseguito su Tutti i fogli"
    End If
End Sub

Vuoi Approfondire?