aspetta a copiare.. pensa si possa fare. L'importante è che la distanza fra lo stesso campo di due clienti diversi sia la stessa....
Ci provo dopo pranzo però....
aspetta a copiare.. pensa si possa fare. L'importante è che la distanza fra lo stesso campo di due clienti diversi sia la stessa....
Ci provo dopo pranzo però....
Si è uguale per tutti...
Non è quello che sei è come la vivi, ti impongono i sistemi o sei tu che li decidi, perchè la fuori cè casino ed è meglio morto in trincea che a casa a capo chino. Sano business
Attenendomi al file che hai postato con questa macro risolvi
Registra questa macro ed eseguila in un foglio vuoto all'interno del file che contiene il foglio clienti vecchio. Per precauzione testala su una copia di backup, non si sa mai.codice:Sub trasponi() ultimariga = Sheets("clienti vecchio").UsedRange.Rows.Count With ActiveSheet .Cells(1, 1).Value = "Codice" .Cells(1, 2).Value = "Cliente" .Cells(1, 3).Value = "Via" .Cells(1, 4).Value = "Clttà" .Cells(1, 5).Value = "P.iva" .Cells(1, 6).Value = "Cod.fisc" .Cells(1, 7).Value = "Telefono" End With j = 2 For i = 9 To ultimariga Step 7 With ActiveSheet .Cells(j, 1).Value = Sheets("clienti vecchio").Range("a" & i).Value .Cells(j, 2).Value = Sheets("clienti vecchio").Range("b" & i + 1).Value .Cells(j, 3).Value = Sheets("clienti vecchio").Range("b" & i + 2).Value .Cells(j, 4).Value = Sheets("clienti vecchio").Range("b" & i + 3).Value .Cells(j, 5).Value = Sheets("clienti vecchio").Range("f" & i + 1).Value .Cells(j, 6).Value = Sheets("clienti vecchio").Range("f" & i + 3).Value .Cells(j, 7).Value = Sheets("clienti vecchio").Range("g" & i + 4).Value End With j = j + 1 Next i ActiveSheet.Range("a:g").Columns.AutoFit End Sub
Al posto di 9 nel ciclo for metti il numero di riga da cui parte il primo codice cliente.
Fammi sapere.![]()
Mmmmmhhh....
Roba pesa!
Non sò cosa sia una macro ma ora ci provo...![]()
Non è quello che sei è come la vivi, ti impongono i sistemi o sei tu che li decidi, perchè la fuori cè casino ed è meglio morto in trincea che a casa a capo chino. Sano business
Dal menù Strumenti vai su macro => macro...
Inserisci il nome della macro (ad esempio trasponi).
Ti apparirà l'editor vba con già scritto
sub trasponi()
end sub
fai copia incolla del codice che ti ho postato e la esegui in un foglio vuoto nello stesso file che contiene l'elenco da modificare.
Puoi spiegarti meglio, non sono proprio capace di usare queste macro...![]()
Non è quello che sei è come la vivi, ti impongono i sistemi o sei tu che li decidi, perchè la fuori cè casino ed è meglio morto in trincea che a casa a capo chino. Sano business
Non saprei essere più chiaro di così.![]()
Sei andato su Strumenti ecc. come ti ho scritto?
Ottimo il lavoro di Nicola, provato, funziona perfettamente.
Se non riesci ho fatto un file con la macro di nicola già pronta con un tasto che attiva la macro nella pagina dei clienti nuovi. Scarica qui
Alla grande!
Dopo aver risolto qualche piccolo problemino di percorso ora funziona tutto ed ho il mio modello di fattura automatizzato al 100%! Ho riportato i vostri insegnamenti anche sulla gestione degli articoli... In sintesi ho finito di perdere del tempo con dei gran copia e incolla.
Spero che la prossima volta che ho bisogno voi due siate nei paraggi!
Grazie!
Non è quello che sei è come la vivi, ti impongono i sistemi o sei tu che li decidi, perchè la fuori cè casino ed è meglio morto in trincea che a casa a capo chino. Sano business
Anzi...
Se il regolamento lo consente, visto che siete così esperti di Excel, volevo chiedere se potevo fare un grafico o una statistica sulle città di provenienza dei miei clienti, ovvero: io li ho tutti su una colonna tipo
Milano
Milano
Roma
Asti
Roma
Bari
Bari
Bologna
Posso farmi dire quanti ce ne sono per ogni città uguale?
Non è quello che sei è come la vivi, ti impongono i sistemi o sei tu che li decidi, perchè la fuori cè casino ed è meglio morto in trincea che a casa a capo chino. Sano business