..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Drugačne vrste zapis

Pomoč pri delu z MS Excelom

Drugačne vrste zapis

OdgovorNapisal/-a DzaroG » So jun 13, 2009 9:07 pm

Zdaj imam napisano v takšnem stilu
------ A ------
1 ime priimek
2 naslov
3 pošta kraj
4
5 ime priimek
6 naslov
7 pošta kraj
8
9
10 ime priimek
11 naslov
12 pošta kraj

imel pa bi rad takole:
------ A -------------- B -------------- C -----
1 ime priimek ---- naslov ----- pošta kraj
2 ime priimek ---- naslov ----- pošta kraj
3 ime priimek ---- naslov ----- pošta kraj

Število praznih vrstic med podatki ni vedno enak včasih so 2 včasih 1 včasih 3.

Kako tudi zbrisati te prazne vrstice to je pa drug problem?

Havala!

Gorazd
DzaroG
 
Prispevkov: 17
Pridružen: Če nov 23, 2006 12:07 am



Matjazev.NET
 

OdgovorNapisal/-a kljuka13 » Ne jun 14, 2009 2:38 pm

Samo z makrom:
Koda: Izberi vse
Sub Razvrsti()
On Error GoTo Err
    Dim trenutenStolpec As Integer
    Dim trenutnaVrstica As Integer
    trenutnaVrstica = 1
    trenutenStolpec = 1
   
    Do While True
        Do Until Not Range("A" & trenutnaVrstica).Value = ""
        trenutnaVrstica = trenutnaVrstica + 1
        Loop
        Range("A" & trenutnaVrstica & ":A" & trenutnaVrstica + 2).Select
        Selection.Cut
        Cells(1, trenutenStolpec).Select
        ActiveSheet.Paste
        trenutnaVrstica = trenutnaVrstica + 3
        trenutenStolpec = trenutenStolpec + 1
    Loop
Err:
    Exit Sub
End Sub


Ups. Zgornji makro je malce napačen. Spodnji je/bo pravilen.

MAKRO:

Koda: Izberi vse
Sub Razvrsti()
On Error GoTo Err
    Dim trenutnaVrstica As Integer
    Dim trenutnaVrstica1 As Integer
    trenutnaVrstica = 1
    trenutnaVrstica1 = 1
   
    Do While True
        Do Until Not Range("A" & trenutnaVrstica).Value = ""
        trenutnaVrstica = trenutnaVrstica + 1
        Loop
       
        Range("A" & trenutnaVrstica).Select
        Selection.Cut
        Cells(trenutnaVrstica1, 1).Select
        ActiveSheet.Paste
        Range("A" & trenutnaVrstica + 1).Select
        Selection.Cut
        Cells(trenutnaVrstica1, 2).Select
        ActiveSheet.Paste
        Range("A" & trenutnaVrstica + 2).Select
        Selection.Cut
        Cells(trenutnaVrstica1, 3).Select
        ActiveSheet.Paste
       
        trenutnaVrstica = trenutnaVrstica + 3
         trenutnaVrstica1 = trenutnaVrstica1 + 1
    Loop
Err:
    Exit Sub
End Sub
Slika
Slika
Slika
kljuka13
 
Prispevkov: 257
Pridružen: Po sep 10, 2007 4:29 pm
Kraj: Maribor

OdgovorNapisal/-a DzaroG » Ne jun 14, 2009 3:02 pm

Super hvala!

samo ne vem kako naj ta macro vpišem na OSX namreč uporabljam excel za appla...
DzaroG
 
Prispevkov: 17
Pridružen: Če nov 23, 2006 12:07 am

OdgovorNapisal/-a kljuka13 » Ne jun 14, 2009 3:03 pm

Uh, tukaj sem pa v temi. Bo kdo drug kaj več povedal, kaj omogoča ta program.
Slika
Slika
Slika
kljuka13
 
Prispevkov: 257
Pridružen: Po sep 10, 2007 4:29 pm
Kraj: Maribor

OdgovorNapisal/-a DzaroG » Ne jun 14, 2009 3:05 pm

kako pa ga vstaviš v winsih mogoče je na OSX enak postopek...
DzaroG
 
Prispevkov: 17
Pridružen: Če nov 23, 2006 12:07 am

OdgovorNapisal/-a kljuka13 » Ne jun 14, 2009 3:07 pm

ALT+F11 in odpre se VBA okno. V meniju Insert izberete Module in prilepite kodo. Kliknete še F5 in to je to.
Slika
Slika
Slika
kljuka13
 
Prispevkov: 257
Pridružen: Po sep 10, 2007 4:29 pm
Kraj: Maribor

OdgovorNapisal/-a DzaroG » Pe nov 20, 2009 9:30 pm

No imam še podoben primer vedar mi ne dela prejšnji makro ali lahko kateremu od vas pošljem excelov file in mi ga pretvori po podobnem sistemu kot zgoraj...
DzaroG
 
Prispevkov: 17
Pridružen: Če nov 23, 2006 12:07 am


Vrni se na Excel

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 0 gostov

cron