Formula per estrarre dati solo da alcune celle

by sal, 17/10/2017 10.32:

---

Ciao Roberto, come te la cavi con le macro o il VBA di Excel?, che conoscenze hai?

Io con le formule non me la cavo molto bene, ma con il VBA si, secondo me il metodo migliore per il tuo problema è il VBA, anche perche fai uso di celle unite, con le formule non vanno bene.

ti passo il tuo file con una macro che fa il lavoro, per avviare la macro non devi fare altro che premere contemporaneamente "Control+p" e nel foglio 1 alla colonna "A" avrai le targhe.

Ciao By Sal


non va... Mi da un errore nel metodo Select per la classe Range ("A:A")


Sub sceltaTarga()
Dim r, c, x, y, n, sh1 As Worksheet, sh2 As Worksheet

Set sh1 = Worksheets("Table 1")
Set sh2 = Worksheets("Foglio1")

sh1.Activate
r = sh1.Cells(Rows.Count, 1).End(xlUp).Row
sh2.Columns("A:A").Select
Selection.ClearContents
sh2.Range("A1").Select
n = 1
For x = 6 To r Step 32
For y = x To 26 Step 2
sh1.Cells(y, 2).Copy sh2.Cells(n, 1)
n = n + 1
Next y
Next x
End Sub

(Canapone), 17/10/2017 11.58:

---

Ciao a tutti

aggiungo un foglio ed uso AGGREGA

in A1

=SE.ERRORE(INDICE('Table 1'!$B$1:$B$10000;AGGREGA(15;6;RIF.RIGA($1:$10000)/('Table 1'!$A$1:$A$10000="AUTOVETTURA");RIGHE($1:1))-1);"")

Dovresti ottenere l'elenco delle targhe: sono tutte 1 riga sopra ad Autovettura.


Ne approfitto per salutare By Sal...

---