per questa roba esiste stackexchange non il ds
visto che siamo su un forum serio gli admin mi banneranno a dovere
Inviato 09 luglio 2015 - 17:30
per questa roba esiste stackexchange non il ds
visto che siamo su un forum serio gli admin mi banneranno a dovere
Inviato 09 luglio 2015 - 17:36
Inviato 09 luglio 2015 - 17:48
visto che siamo tette su un forum tette serio le tette mi bagneranno a dovere
Inviato 10 luglio 2015 - 01:17
usa metà del budget per pagare un indiano per farlo a mano su peopleperhour, l'altra metà in birre, profit
Mai più giorni felici
Inviato 10 luglio 2015 - 08:45
usa metà del budget per pagare un indiano per farlo a mano su peopleperhour, l'altra metà in birre, profit
ho già delegato un sacco di cose ai colleghi polacchi ma ci mettono troppo
Inviato 10 luglio 2015 - 18:11
Inviato 10 luglio 2015 - 20:40
scusa kch oggi ho avuto una giornataccia al lavoro e weekend sonfuori per un addio al celibato.
Se ci dessi un occhiata lunedì che ho il capo in ferie?
grazie davvero, e non c'è fretta! buon weekend!
Messaggio modificato da kch il 10 luglio 2015 - 20:40
Inviato 10 luglio 2015 - 20:47
I'm a man too brave to follow history...
Inviato 10 luglio 2015 - 21:20
grazie davvero, e non c'è fretta! buon weekend!
Buon weekend a te
Inviato 20 luglio 2015 - 16:40
Inviato 01 settembre 2015 - 17:46
Inviato 01 settembre 2015 - 18:22
Bella e brava
Inviato 01 settembre 2015 - 18:27
manca solo "pronta" per essere come Giopvanna Bizzarri la pianista di Marzullo
Inviato 01 settembre 2015 - 22:19
Visto che Fradetti è sparito, me la sono scritta da sola.Sub export_v3()x = 1 ' Because the unique values in Worksheets("Count") start from B2Do Until x = 21x = x + 1Worksheets("Export").Selecty = Worksheets("Count").Range("B" & x).Value ' This is the first unique value to filter byz = Worksheets("Count").Range("C22").Value ' Sum of the whole amount of texts in the file (they start from Worksheets("Export").Range("G3"))Open "C:\Users\Francesca\Downloads\" & y & " (" & Worksheets("Count").Range("C" & x) & ").txt" For Output As #1Print #1, Cells.Range("F1")ii = 3Do Until ii > z + 3ii = ii + 1If Range("E" & ii) = y ThenPrint #1, Cells.Range("F" & ii)End IfLoopPrint #1, Cells.Range("F2")Close #1LoopEnd Sub/3d
<3
No real limits of any kind apply here - not even the sky
è diventato un tutt'uno con lo spazio...
PVoutput