Moderatori: Anthony47, Flash30005
Flash30005 ha scritto:Ciao Socrat3 e benvenuto nel Forum
Poi suppongo che ci sia un elenco generale che contiene tutti i contribuenti o nomi
perché solo così potrai assegnare ad ognuno il/i tipo/i di contratto/i
(altrimenti bisognerà realizzare una macro che compili l'elenco generale)
socrat3 ha scritto:cmq preferirei il vba... penso che sia piu' flessibile per i miei successivi usi...
In questo post trovo una parte della soluzione al mio problema
Io ti ho solo dato uno spunto; in che formula l' hai tradotto e che risultato hai ottenuto?Ho provato ad utilizzare la formula indicata ma nulla non funge...
Col mio metodo, questo si ottiene applicando il filtro automatico (Menu /Dati /Filtro automatico) all' elenco nuovo contenente i flag 1/0, e filtrando la colonna che vuoi per il valore "0".Il mio problema è individuare i soggetti che sono presenti e non presenti in una banca dati
Sub CompilaElenco()
Application.ScreenUpdating = False
Application.Calculation = xlManual
URE = Worksheets("Elenco").Range("A" & Rows.Count).End(xlUp).Row
If URE < 2 Then URE = 2
Worksheets("Elenco").Range("A2:I" & URE).ClearContents
For Each ws In Worksheets
If ws.Name <> "Elenco" Then
URF = Sheets(ws.Name).Range("A" & Rows.Count).End(xlUp).Row
For RR = 2 To URF
CF = Sheets(ws.Name).Range("A" & RR).Value
URE = Worksheets("Elenco").Range("A" & Rows.Count).End(xlUp).Row
Trovato = 0
For RE = 1 To URE
CFE = Worksheets("Elenco").Range("A" & RE).Value
If CFE = CF Then
Trovato = 1
GoTo salta
End If
Next RE
Worksheets(ws.Name).Range("A" & RR & ":E" & RR).Copy Destination:=Worksheets("Elenco").Range("A" & URE + 1)
If Trovato = 0 Then
For CC = 6 To 9
If Cells(1, CC).Value = ws.Name Then
Cells(RE, CC).Value = "SI"
End If
Next CC
End If
salta:
If Trovato = 1 Then
For CC = 6 To 9
If Cells(1, CC).Value = ws.Name Then
Cells(RE, CC).Value = "SI"
End If
Next CC
End If
Next RR
End If
Next ws
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Torna a Applicazioni Office Windows
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
Perchè l'importazione dati con Selenium non fuziona? Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 4 ospiti