Vai al contenuto


Foto

Aiuto VBA Excel 2013


Questa discussione e' stata archiviata Questo significa che non e' possibile rispondere
41 risposte a questa discussione

#21 kch

kch

    Tits power

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStelletta
  • 1.167 Messaggi:

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


200.gif


#22 willy_revenge

willy_revenge

    ABBIAMO DEGLI APPLEFAG ECCELSI QUA SUL DS

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 68.826 Messaggi:

Inviato 09 luglio 2015 - 17:36

Fix con "sculacceranno a dovere" quotato 1.01
^

Dat

#23 haikoan

haikoan

    Schiavo

  • Membri
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 16.586 Messaggi:

Inviato 09 luglio 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

euthanasia

    Matto

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 45.418 Messaggi:

Inviato 09 luglio 2015 - 21:38

la firma :asd:



#25 p.nightmare

p.nightmare

    Dittatore

  • Amministratori
  • 97.341 Messaggi:

Inviato 10 luglio 2015 - 00:35

visto che siamo su un forum serio gli admin mi penetreranno a dovere

:sisi:

No real limits of any kind apply here - not even the sky
è diventato un tutt'uno con lo spazio...
PVoutput


#26 faco

faco

    mathematician

  • Membri
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 12.692 Messaggi:

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

 


#27 kch

kch

    Tits power

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStelletta
  • 1.167 Messaggi:

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


200.gif


#28 FradettII

FradettII

    PUTTANA SUCCHIA BACINI

  • Membri
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 27.338 Messaggi:

Inviato 10 luglio 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?
"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

#29 p.nightmare

p.nightmare

    Dittatore

  • Amministratori
  • 97.341 Messaggi:

Inviato 10 luglio 2015 - 18:14

stiamo aspettando te perché poi ci deliveri tette :omg:


No real limits of any kind apply here - not even the sky
è diventato un tutt'uno con lo spazio...
PVoutput


#30 kch

kch

    Tits power

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStelletta
  • 1.167 Messaggi:

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

200.gif


#31 PhilSuperjoint

PhilSuperjoint

    Schiavo

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 35.295 Messaggi:

Inviato 10 luglio 2015 - 20:47

kek

I'm a man too brave to follow history...


#32 Guest_Chips Handon_*

Guest_Chips Handon_*
  • Ospiti

Inviato 10 luglio 2015 - 21:20

grazie davvero, e non c'è fretta! buon weekend!

Buon weekend a te  :oops:

 

:lillina:



#33 euthanasia

euthanasia

    Matto

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 45.418 Messaggi:

Inviato 10 luglio 2015 - 23:16

200.gif



#34 p.nightmare

p.nightmare

    Dittatore

  • Amministratori
  • 97.341 Messaggi:

Inviato 14 luglio 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?

:omg:


No real limits of any kind apply here - not even the sky
è diventato un tutt'uno con lo spazio...
PVoutput


#35 euthanasia

euthanasia

    Matto

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 45.418 Messaggi:

Inviato 14 luglio 2015 - 18:16

Sono le 10.33



#36 brand

brand

    Schiavo

  • Membri
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 34.697 Messaggi:

Inviato 20 luglio 2015 - 16:40

News?
Delle tettine...
La vita si gioca in un colpo solo, il resto è attesa. Ma se menti troppo e, tua mamma succhia cazzi, inutilmente poi non lamentarti. Sveglio.

#37 kch

kch

    Tits power

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStelletta
  • 1.167 Messaggi:

Inviato 01 settembre 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

200.gif


#38 Guest_Chips Handon_*

Guest_Chips Handon_*
  • Ospiti

Inviato 01 settembre 2015 - 18:22

Bella e brava  :oops:



#39 Sgoddone

Sgoddone

    Moralmaddy professionista <3

  • Membri
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 39.291 Messaggi:

Inviato 01 settembre 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
pcpso.jpg

#40 p.nightmare

p.nightmare

    Dittatore

  • Amministratori
  • 97.341 Messaggi:

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 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

 

<3


No real limits of any kind apply here - not even the sky
è diventato un tutt'uno con lo spazio...
PVoutput