Macro per realizzare riepilogo di alcuni dati

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
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

antonio.rizzi
00giovedì 28 luglio 2016 19:24
Ottimo direi super fa proprio quello che volevo.. Grazie mille!!!
antonio.rizzi
00giovedì 28 luglio 2016 19:26
Ottimo!! Super!! Fa proprio quello che volevo! Grazie mille!
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 20:58.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com