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

Zanka

Pomoč pri izdelavi makrov

Zanka

OdgovorNapisal/-a mb » Sr mar 01, 2006 5:01 pm

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
mb
 
Prispevkov: 57
Pridružen: Sr okt 26, 2005 7:40 pm



Matjazev.NET
 

Re: Zanka

OdgovorNapisal/-a admin » Sr mar 01, 2006 10:27 pm

Pozdravljeni,

mb je 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
admin
Site Admin
 
Prispevkov: 3467
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a Stenly » Sr mar 01, 2006 10:42 pm

Sem prepočasen :D

Lp
Stenly
 
Prispevkov: 223
Pridružen: Sr jul 27, 2005 11:29 pm

OdgovorNapisal/-a mb » Če mar 02, 2006 7:12 pm

Hvala. Makro dela ko "ŠUS"!

LP, Boštjan
mb
 
Prispevkov: 57
Pridružen: Sr okt 26, 2005 7:40 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 0 gostov