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
Zanka
Re: Zanka
Pozdravljeni,
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.
:).. ja pa bo res kar dišalo po zankah.mb napisal/-a:Mislim, da pridejo tu vpoštev zanke vendar ne vem kako bi zacel.
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
Matjaž Prtenjak
Administrator