Vba automatizacija- pomoć

Vba automatizacija- pomoć 12.08.2020. u 17:32 · pre 75 meseci #1

Poštovani, molio bih Vas za pomoć vezano za moj problem

Imam listu podataka u Stupcu A npr od A1:A10...
A1 =1
A2 =2
A3 =3
A4 =4
A5 =5
A6 =6
A7 =7
A8 =8
A9 =9
A10 =""
Pošto li način da vba code kad ga pokretnom prvo izabere ćeliju A1 i iz nje kopira i zalijepi vrijednosti u Ćeliju B1
A zatim pokrene makro koji koristi podatke iz B1 (makro imam napisan)
Kad se završi makro vba code bi trebao kopirati podatke iz A2, zalijepiti ih u ponovno u B1 i ponovno pokrenuti makro itd... sve dok se u Stupcu A ne pojavi prazna ćelija (A10). Nakon toga bi vba code trebao da prestane sa pretragom i lijepljenjem podataka iz kolone A u Ćeliju B1

Unaprijed se zahvaljujem

Potpis

MMisic

Re: Vba automatizacija- pomoć 13.08.2020. u 14:16 · pre 75 meseci #2

Jednostavno pozivaš makro koji imaš napisan u jednoj petlji. Moglo bi nešto ovako

Code:

Sub NoviMakro()
Dim startRw As Long, endRw As Long, rw As Long
Dim sh As Worksheet
    Set sh = ActiveSheet
    ' Pocetni red oblasti
    startRw = 1
    ' Trazimo zadnji red oblasit
    endRw = sh.Range("A1").End(xlDown).Row
    ' Petlja koja poziva postojeci makro
    For rw = startRw To endRw
        sh.Range("B1").Value = sh.Cells(rw, 1).Value
        PostojeciMakro
    Next rw

End Sub

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

LoopMakro.xlsm14.55k

Re: Vba automatizacija- pomoć 18.08.2020. u 12:34 · pre 75 meseci #3

Zahvaljujem na odgovoru.

Ubacio sam kod sebe priloženi code i radi OK kad je u pitanju lista kako sam naveo u primjeru

Međutim imam sljedeći problem:
Kod mene je lista kreirana na temelju IF formule gdje mi if funkcija vraća praznu ćeliju u mojoj listi ako nisu ispunjeni neki uvjeti
E sada pošto mi je ćelija prazna ali u njoj je formula, dio iz code

' endRw = sh.Range("A1").End(xlDown).Row

mi ne radi kako treba jer code se izvršava za svaku ćeliju sa liste koja sadrži formulu (a njih ima dosta)
Meni bi trebalo da se izađe iz for next petlje kad je vrijednost ćelije = "" bez obzira što je u ćeliji formula

Pokušao sam promjeniti liniju
'endRw = sh.Range("A1").End(xlDown).Row

ali mi ne uspijeva (nisam baš vičan u VBA)

Potpis

MMisic

Re: Vba automatizacija- pomoć 18.08.2020. u 13:46 · pre 75 meseci #4

Code:
endRw = sh.Range("A1:A" & sh.Rows.Count).Find("", LookIn:=xlValues).Row

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Forum kao aplikacija na telefonu

Srodne teme