makro v exceli

voloda109

Ahojte potreboval by som naprogramovat jedno macro v exeli: V stlpci A sa nachadza slovo PARENT a pod slovo parent porebujem dostat cislo ktore je v stlpci B vedla slova PARENT az po dalsie slovo PARENT. ale toto cislo musi byt stale rovnake to iste ake je vedla spominaneho slova PARENT. Problem je v tom ze to nie je stale rovnaka dlzka medzi slovami PARENT. Dokaze to niekto? V prilohe davam vyznacene rucne ako by to malo byt. Potrebujem to moc a co mam subor tak tam mam 130000 raidkov a to sa rucne neda
PRIKLAD UPRAVENE:
PARENT 1296679-EQ-1
1296679-EQ-1 1296679-EQ 1
PARENT 1296680-EQ-1
1296680-EQ-1 1296680-EQ 1
PARENT 1296688-1N
1296688-1N 1296688 1
PARENT 1303264-EQ-1
1303264-EQ-1 1303264-EQ 1
1303264-EQ-1 961201H000 0,5
PARENT 1314242-ED
1314242-ED 1314259 1
1314242-ED 1314263 10
1314242-ED 1314265 4
1314242-ED 1314269 1
1314242-ED 1314277 1
1314242-ED 1314312 3
1314242-ED 1314314 6
1314242-ED 1314318 2
1314242-ED 1314322 2
1314242-ED 1314324 2
1314242-ED 1701027 2
1314242-ED 1721494 0,08
1314242-ED 1761899-ED 1
1314242-ED 280302 3
1314242-ED 853402H000ED 2
1314242-ED 853402H100ED 1
1314242-ED 928201H000ED 1
1314242-ED 928501H000ED 1
PARENT 1314242-EM
1314242-EM 1314259 1
1314242-EM 1314263 10
1314242-EM 1314265 4
1314242-EM 1314269 1
1314242-EM 1314277 1
1314242-EM 1314312 3
1314242-EM 1314314 6
1314242-EM 1314318 2
1314242-EM 1314322 2
1314242-EM 1314324 2
1314242-EM 1364763 8
1314242-EM 1364817 2
1314242-EM 1364940 1
1314242-EM 1364943 1
1314242-EM 1364948 1
1314242-EM 1364951 1
1314242-EM 1368778 3
1314242-EM 1392219 1
1314242-EM 1392227 1
1314242-EM 1490120 0,13
1314242-EM 1490143 3
1314242-EM 1695107 4
1314242-EM 1701027 2
1314242-EM 1721494 0,08
1314242-EM 1761899-EM 1
1314242-EM 280302 3
1314242-EM 853402H000EM 2
1314242-EM 853402H100EM 1
1314242-EM 928201H000EM 1
1314242-EM 928501H000EM 1

PRILAD NEUPRAVENE
PARENT 1298939
1 1298940
1 1372169
1 935701H100
PARENT 1303264-EQ
1 961201H000
PARENT 1303264-EQ-1
1 1303264-EQ
.2 961201H000
PARENT 1304032-EQ
1 1715023-EQ
1 961201H100
PARENT 1313728-ED
1 1313729-ED
1 1372169
1 1374751
1 935701H100

Kód: Vybrať všetko

Sub autofill()

Dim i As Integer, pom As String

i = 1
Do While i < 65536
    If Cells(i, 1).Value = "PARENT" Then
        pom = Cells(i, 2).Value
    Else
        Cells(i, 1).Value = pom
    End If
    i = i + 1
Loop

End Sub

a neviem ako je možné že tam máš 130000 riadkov, keď maximum čo excel povolí je 65536

voloda109

Dik skusim ci to funguje a novy exel teda 2007 ma 1 048 576 riadkov. Ale kde uz mas 140 000 riadkov tak sa v tom neda moc dobre paracovat. Aspon na tom pc co mam v robote. Ale skor si myslim ze to bol exel

na 2003 mi to zbehlo ako má, ak to nejde tak bude chyba v tom že je to nový office. 2007 nemám, tam ti neporadím ak to nepôjde, ale myslím že by to malo používať v makrách tiež rovnaký visual basic

voloda109

Dik fungovalo to, ale musil som to davat po castiach lebo naraz to neslo asi len po 32000 riadkoch. viac neslo potom to robilo hovadiny

makro v exceli

Programovanie