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

#1 kch

kch

    Tits power

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStelletta
  • 1.167 Messaggi:

Inviato 09 luglio 2015 - 14:28

Ciao,

 

provo a chiederlo qui. Ho un file di oltre 1600 righe e 50 colonne. Ogni riga a partire da 3 contiene un testo e in ciascuna colonna ci sono le formule che uso per individuarne gli errori e farli correggere dal team. Nella colonna AW si ripetono per ogni riga il nome dal batch in cui esportare tutti i testi relativi; nella colonna AX ci sono i testi finiti e "pronti" per essere copia-incollati in un file xml. Oltre al contenuto della colonna AX dopo averla filtrata per ciascun valore in AW devo inserire del testo di apertura e di chiusura (è un xml). 

 

Ho scritto una simil-macro ma mi sono incasinata un po' di volte. Qualcuno sa come sistemarla / riscriverla?

 

Devo: filtrare per AW ed esportare tutto il contenuto di AX risultato a partire da AX3, aggiungendo del testo fisso prima e dopo il blocco esportato, salvando ciascun file in .xml codificato UTF-8

 

Grazie!

 

Sub Export()
    Dim c As Range
    Dim rng As Range
    Dim LR As Long
        
        LR = Cells(Rows.Count, "AW").End(xlUp).Row
        Set rng = Range("AX1:AW" & LR)
        
        For Each c In Range([AX2], Cells(Rows.Count, "AX").End(xlUp))
            With rng
            
Range("AW2:AW1600").Select
    Selection.AutoFilter
    Selection.AutoFilter
    ActiveSheet.Range("$AW$2:$AW$15").AutoFilter Field:=1, Criteria1:=c.Value
                
For N = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Open "C:\Users\Francesca\Downloads\" & Cells(N, 50) For Output As #1
    Print #1, Cells(N, 50)
    Print #1, Cells(N, 51)
    Close #1
    
    Next N
    End With
Next c
End Sub

Allega File(s)


Messaggio modificato da kch il 09 luglio 2015 - 14:31

200.gif


#2 G-DannY

G-DannY

    Schiavo

  • Membri
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 33.513 Messaggi:

Inviato 09 luglio 2015 - 14:32

inb4 inception di programmers del ds che si ammucchiano per aiutare la zadra



#3 Guest_Chips Handon_*

Guest_Chips Handon_*
  • Ospiti

Inviato 09 luglio 2015 - 14:41

<3



#4 Caldco

Caldco

    Schiavo

  • Grandi donatori di sperma
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 19.834 Messaggi:

Inviato 09 luglio 2015 - 14:44

Fagdetti in presega
Tutte cagne

#5 kch

kch

    Tits power

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStelletta
  • 1.167 Messaggi:

Inviato 09 luglio 2015 - 14:49

Ah, l'aiuto è anche retribuito se mi fate un prezzo-amico (paga il mio capo).


200.gif


#6 p.nightmare

p.nightmare

    Dittatore

  • Amministratori
  • 97.340 Messaggi:

Inviato 09 luglio 2015 - 14:50

con tits?


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


#7 p.nightmare

p.nightmare

    Dittatore

  • Amministratori
  • 97.340 Messaggi:

Inviato 09 luglio 2015 - 14:50

also  0 Numero di downloads


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


#8 SuperMario=ITA=

SuperMario=ITA=

    Lo scemo del forum

  • Moderatori
  • 96.852 Messaggi:

Inviato 09 luglio 2015 - 14:51

Ho wuttato alla firma


TghXItr.gif - Amare la Formattazione è la Soluzione al 90% dei Problemi della Vita

#9 kch

kch

    Tits power

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStelletta
  • 1.167 Messaggi:

Inviato 09 luglio 2015 - 14:51

also  0 Numero di downloads

 

:whistler:


200.gif


#10 G-DannY

G-DannY

    Schiavo

  • Membri
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 33.513 Messaggi:

Inviato 09 luglio 2015 - 14:53

(paga il mio capo).

 

giocata male.

 

ti sarebbe bastato dire anche mentendo che pagavi in natura (anche solo fotografica) a avresti avuto l'orda barbarica a disposizione.



#11 matti157

matti157

    Schiavo

  • GRULLINO
  • 15.041 Messaggi:

Inviato 09 luglio 2015 - 15:04

l'excelfag non è fagdetti :vabe: ?


Cooler Master 690|Intel Core i7 920 @3.7Ghz|Gigabyte GTX 770 OC|12GB Corsair DDR3 1600|Noctua NH-U12P|Corsair TX550

 

 

Un giorno ho visto per strada un tizio barcollante , sporco, pieno di chiazze verdi e pus, infastidiva bambine e rubava i soldi alle vecchiette: era uno che postava nel DS.


ก็็็็็็็็็็็็็็็็็็็็ กิิิิิิิิิิิิิิิิิิิิ ก้้้้้้้้้้้้้้้้้้้้ก็็็็็็็็็็็็็็็็็็็็ กิิิิิิิิิิิิิิิิิิิิ ก้้้้้้้้้้้้้้้้้้้้ก็็็็็็็็็็็็็็็็็็็็ กิิิิิิิิิิิิิิิิิิิิ ก้้้้้้้้้้้้้้้้้้้้ก็็็็็็็็็็็็็็็็็็็็ กิิิิิิิิิิิิิิิิิิิิ ก้้้้้้้้้้้้้้้้้้้้ก็็็็็็็็็็็็็็็็็็็็ กิิิิิิิิิิิิิิิิิิิิ ก้้้้้้้้้้้้้้้้้้้้ก็็็็็็็็็็็็็็็็็็็็ กิิิิิิิิิิิิิิิิิิิิ ก้้้้้้้้้้้้้้้้้้้้ก็็็็็็็็็็็็็็็็็็็็ กิิิิิิิิิิิิิิิิิิิิ ก้้้้้้้้้้้้้้้้้้้้


#12 FradettII

FradettII

    PUTTANA SUCCHIA BACINI

  • Membri
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 27.333 Messaggi:

Inviato 09 luglio 2015 - 15:25

ci lavoro domani, non ho tempo oggi... pagamento in tettine
"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

#13 p.nightmare

p.nightmare

    Dittatore

  • Amministratori
  • 97.340 Messaggi:

Inviato 09 luglio 2015 - 15:26

tettine

:dumb:


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


#14 SuperMario=ITA=

SuperMario=ITA=

    Lo scemo del forum

  • Moderatori
  • 96.852 Messaggi:

Inviato 09 luglio 2015 - 15:29

MASSIVE BOOBS


TghXItr.gif - Amare la Formattazione è la Soluzione al 90% dei Problemi della Vita

#15 kch

kch

    Tits power

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStelletta
  • 1.167 Messaggi:

Inviato 09 luglio 2015 - 15:34

ci lavoro domani, non ho tempo oggi... pagamento in tettine

 

grazie  :bjt:

 

in tettine non potrei pagare neanche volendo però la storia che capo mi ha dato un budget è vera!


200.gif


#16 Caldco

Caldco

    Schiavo

  • Grandi donatori di sperma
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 19.834 Messaggi:

Inviato 09 luglio 2015 - 15:38

Summoning matto & lichene
Tutte cagne

#17 haikoan

haikoan

    Schiavo

  • Membri
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 16.586 Messaggi:

Inviato 09 luglio 2015 - 15:52

grazie :bjt:

in tettine non potrei pagare neanche volendo però la storia che capo mi ha dato un budget è vera!


Anche tettone vanno bene
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!

#18 PhilSuperjoint

PhilSuperjoint

    Schiavo

  • Donatori di sperma
  • StellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 35.295 Messaggi:

Inviato 09 luglio 2015 - 16:18

nypa


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


#19 caurusapulus

caurusapulus

    Schiavo

  • Membri
  • StellettaStellettaStellettaStellettaStelletta
  • 3.926 Messaggi:

Inviato 09 luglio 2015 - 17:06

per questa roba esiste stackexchange non il ds


Lurker sta gran ceppa di minchia terrona

#20 balint

balint

    Schiavo

  • Membri
  • StellettaStellettaStellettaStellettaStellettaStellettaStellettaStelletta
  • 54.092 Messaggi:

Inviato 09 luglio 2015 - 17:29

nypa