antonio.rizzi
00giovedì 28 luglio 2016 09:05
Io ho una tabella così strutturara con molte righe.Avrei bisogno di creare una macro che mi dia questo tipo di riepilogo per tutti i colli presenti
N. Collo Q.tà Marca
150 1 70DC103
150 1 70DC107
149 1 70DC101
149 1 70DC102
149 2 70DC105 e così via
OPPURE digitando il numero di collo e lei mi da il riassunto come sopra
Ho allegato il file
GRAZIE MILLE A TUTTI!!
dodo47
00giovedì 28 luglio 2016 09:18
Ciao
si capisce poco, manda un esempio, non hai allegato nulla. Se ci sono macro zippalo
saluti
antonio.rizzi
00giovedì 28 luglio 2016 09:39
ecco il link
https://we.tl/7nB70aZ8JU non mi fa caricare il file.. ho fatto link su wetransfer..
GRAZIE
patel45
00giovedì 28 luglio 2016 12:24
prova questa che mette l'elenco nel foglio2 nel quale devi mettere nella prima riga l'intestazione
N. Collo Q.tà Marca
[TESTO ::text]Sub elencocolli()
LR = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
LC = Sheets(1).UsedRange.Columns.Count
drow = 2
With Sheets(1)
For c = 13 To LC Step 6
For r = 4 To LR
If .Cells(r, c) <> "" Then
Sheets(2).Cells(drow, 1) = .Cells(r, c)
Sheets(2).Cells(drow, 2) = .Cells(r, c).Offset(0, -1)
Sheets(2).Cells(drow, 3) = .Cells(r, 2)
drow = drow + 1
End If
Next
Next
End With
Set Rng = Sheets(2).UsedRange
With Sheets(2)
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With .Sort
.SetRange Rng
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub