Citat:
mixi: ...podaci drugog csv-a posle prvog nastavljaju upisivati vodoravno, a ne uspravno...
Hm... kako to? Ne razumem, mislis obrce redove i kolone?
Citat:
mixi: ...Kako da stavim da se npr. ako prvi csv ima 23 reda sledeci csv pocne upisivati od A24, a ne od M1...
Ja sam shvatila da tebi treba macro da se pomera za 12 kolona? a ne redova....
U svakom slucaju, ovaj deo koda je bitan za odredjivanje gde ce se copirati:
'Ovo broji koliko redova ima u otvorenom csv file-u. Mozes da ubacis slicno za kolone
'Ovaj deo za kolone moras da ubacis posle razdvajanja i da deklarises novu promenljivu na pocetku Dim BrKolona As Integer
BrRedova = ActiveSheet.UsedRange.Rows.Count
Otvorena.Worksheets(1).Range("a:a").Select 'pretpostavljam da su podaci u csv u koloni A'
Selection.TextToColumns Destination:=ActiveCell, Other:=True, OtherChar:="|"
BrKolona = ActiveSheet.UsedRange.Columns.Count
'Ovo odredjuje polozaj sta ce biti selektovano u otvorenom csv file-u, mozes jos vise automatizovati ubacivanjem br. kolona:
'Range(Cells(1, 1), Cells(BrRedova, BrKolona)) - selektuje blok celija od A1,Cells(1, 1) - do poslednje koja u sebi sadrzi neki upis,Cells(BrRedova, BrKolona)
Otvorena.Worksheets(1).Range(Cells(1, 1), Cells(BrRedova, 12)).Select
Otvorena.Worksheets(1).Range(Cells(1, 1), Cells(BrRedova, BrKolona)).Select
'Ovaj deo odredjuje od koje celije ce poceti kopitanje u tvoj xls file:
'Cells(1, 1 + 12 * (i - 1)) - prvi broj je broj reda 1 ili ti red A, drugi broj je broj kolone 1 + 12 * (i - 1)
Bazna.Sheets(1).Cells(1, 1 + 12 * (i - 1)).Select
Nadam se da je jasno... posto nisam vise sigurna sta je konstantno kod tebe br reda ili kolona? i da li novi blok treba da se kopira u prvom novom praznom redu ili koloni?