Zanka

Pomoč pri izdelavi makrov
Odgovori
mb
Prispevkov: 57
Pridružen: Sr Okt 26, 2005 7:40 pm

Zanka

Odgovor Napisal/-a mb »

Pozdarvljeni,

zanima me kako bi zgledala koda VBA za primer, ko primerjam vrednost iz celice C5 z vrednostmi v celicah od X5 do zadne polne celice v stolpcu X. Če nobena vrednost v tem območju ni enaka vrednosti celice C5 jo kopiramo v prvo prazno celico stolpca X, sicer postopek nadaljujemo naprej s celico C6.
Mislim, da pridejo tu vpoštev zanke vendar ne vem kako bi zacel.

Hvala za odgovor in LP
Bostjan
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Zanka

Odgovor Napisal/-a admin »

Pozdravljeni,
mb napisal/-a:Mislim, da pridejo tu vpoštev zanke vendar ne vem kako bi zacel.
:):).. ja pa bo res kar dišalo po zankah.

Spodaj imate rešitev, ki je pisana povsem začetniško in tudi dokumentirana. Mislim, da bi se iz nje že kar morali znajti. Če pa se ne znajdete, a bi se želeli; pa bo potrebno poseči po kakšni knjigi za programiranje.

Koda: Izberi vse

' www.matjazev.net
' 01.03.2006
Sub KopirajIzCvX()
    Dim vrsticaC As Long
    Dim vrsticaX As Long
    
    ' začnem v vrstici 5 in se pomikam naprej dokler je vsebina celic polna
    vrsticaC = 5
    While (Not IsEmpty(Cells(vrsticaC, 3)))
        Dim nasel As Boolean
        
                
        ' začnem v vrstici 5 in se pomikam naprej dokler je vsebina celic
        ' polna ali sem našel enako
        vrsticaX = 5
        nasel = False
        While (Not IsEmpty(Cells(vrsticaX, 24))) And (Not nasel)
            If (Cells(vrsticaC, 3) = Cells(vrsticaX, 24)) Then nasel = True
        
            vrsticaX = vrsticaX + 1
        Wend
        
        ' če vrednosti nisem našel, jo moram dodati
        If (Not nasel) Then Cells(vrsticaX, 24) = Cells(vrsticaC, 3)
    
        vrsticaC = vrsticaC + 1
    Wend
End Sub
lp,
Matjaž Prtenjak
Administrator
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

Sem prepočasen :D

Lp
mb
Prispevkov: 57
Pridružen: Sr Okt 26, 2005 7:40 pm

Odgovor Napisal/-a mb »

Hvala. Makro dela ko "ŠUS"!

LP, Boštjan
Odgovori