per questa roba esiste stackexchange non il ds
visto che siamo su un forum serio gli admin mi banneranno a dovere
Aiuto VBA Excel 2013
Started by
kch
, 09 Jul 2015 14:28
41 replies to this topic
#21
kch
-
- Donatori di sperma
-
- 1167 posts
Tits power
Posted 09 July 2015 - 17:30
#22
willy_revenge
-
- Donatori di sperma
-
- 70874 posts
ABBIAMO DEGLI APPLEFAG ECCELSI QUA SUL DS
Posted 09 July 2015 - 17:36
Fix con "sculacceranno a dovere" quotato 1.01
^
Dat
Dat
#23
haikoan
-
- Membri
-
- 16638 posts
Schiavo
Posted 09 July 2015 - 17:48
visto che siamo tette su un forum tette serio le tette mi bagneranno a dovere
Quoto
May you be in heaven half an hour, before the devil knows you’re deadNoi semo quella razza che non sta troppo bene che di giorno salta i fossi e la sera le cene, lo posso grida' forte, fino a diventa' fioco, noi semo quella razza che tromba tanto poco, noi semo quella razza che al cinema si intasa pe' vede' donne gnude, e farsi seghe a casa, eppure la natura ci insegna sia sui monti sia a valle, che si po' nasce bruchi pe' diventà farfalle, ecco noi semo quella razza che l'è fra le più strane, che bruchi semo nati e bruchi si rimane, quella razza semo noi è inutile fa' finta, c'ha trombato la miseria e semo rimasti incinta.<p>io e mambocoso 3msc foreva!
#24
euthanasia
-
- Donatori di sperma
-
- 48671 posts
Matto
#26
faco
-
- Membri
-
- 12698 posts
mathematician
Posted 10 July 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
#27
kch
-
- Donatori di sperma
-
- 1167 posts
Tits power
Posted 10 July 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
#28
FradettII
-
- Membri
-
- 30785 posts
PUTTANA SUCCHIA BACINI
Posted 10 July 2015 - 18:11
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?
Se ci dessi un occhiata lunedì che ho il capo in ferie?
"When a long train of abuses and usurpation's presume invariably the same object. Evinces the design to reduce them under absolute despotism. It is their right, it is their duty to throw off such government. And provide new guards for their future security." Thomas Jefferson
#30
kch
-
- Donatori di sperma
-
- 1167 posts
Tits power
Posted 10 July 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!
Edited by kch, 10 July 2015 - 20:40.
#31
PhilSuperjoint
-
- Donatori di sperma
-
- 35300 posts
Schiavo
Posted 10 July 2015 - 20:47
kek
I'm a man too brave to follow history...
#32
Guest_Chips Handon_*
Guest_Chips Handon_*
-
- Ospiti
Posted 10 July 2015 - 21:20
grazie davvero, e non c'è fretta! buon weekend!
Buon weekend a te 
#33
euthanasia
-
- Donatori di sperma
-
- 48671 posts
Matto
#34
p.nightmare
-
- Amministratori
-
- 100615 posts
Dittatore
Posted 14 July 2015 - 13:15
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?
No real limits of any kind apply here - not even the sky
è diventato un tutt'uno con lo spazio...
PVoutput
è diventato un tutt'uno con lo spazio...
PVoutput
#35
euthanasia
-
- Donatori di sperma
-
- 48671 posts
Matto
#37
kch
-
- Donatori di sperma
-
- 1167 posts
Tits power
Posted 01 September 2015 - 17:46
Visto che Fradetti è sparito, me la sono scritta da sola.
Sub export_v3()
x = 1 ' Because the unique values in Worksheets("Count") start from B2
Do Until x = 21
x = x + 1
Worksheets("Export").Select
y = Worksheets("Count").Range("B" & x).Value ' This is the first unique value to filter by
z = 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 #1
Print #1, Cells.Range("F1")
ii = 3
Do Until ii > z + 3
ii = ii + 1
If Range("E" & ii) = y Then
Print #1, Cells.Range("F" & ii)
End If
Loop
Print #1, Cells.Range("F2")
Close #1
Loop
End Sub
/3d
#39
Sgoddone
-
- Membri
-
- 42271 posts
Moralmaddy professionista <3
Posted 01 September 2015 - 18:27
manca solo "pronta" per essere come Giopvanna Bizzarri la pianista di Marzullo
Un troll, è un soggetto che interagisce con gli altri tramite messaggi provocatori, irritanti, fuori tema o semplicemente senza senso, con l'obiettivo di disturbare la comunicazione
#40
p.nightmare
-
- Amministratori
-
- 100615 posts
Dittatore
Posted 01 September 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
è diventato un tutt'uno con lo spazio...
PVoutput
