Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Vba automatizacija- pomoć

[es] :: Office :: Excel :: Vba automatizacija- pomoć

[ Pregleda: 454 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mmisic
Mario Mišić
Bosna i Hercegovina

Član broj: 33212
Poruke: 29
*.tel.net.ba.



Profil

icon Vba automatizacija- pomoć12.08.2020. u 16:32 - pre 24 meseci
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
MMisic
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2231
*.mediaworksit.net.

Sajt: www.gowi.rs


+103 Profil

icon Re: Vba automatizacija- pomoć13.08.2020. u 13:16 - pre 24 meseci
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


Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

mmisic
Mario Mišić
Bosna i Hercegovina

Član broj: 33212
Poruke: 29
*.tel.net.ba.



Profil

icon Re: Vba automatizacija- pomoć18.08.2020. u 11:34 - pre 24 meseci
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)
MMisic
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2231
*.mediaworksit.net.

Sajt: www.gowi.rs


+103 Profil

icon Re: Vba automatizacija- pomoć18.08.2020. u 12:46 - pre 24 meseci
Code:
 endRw = sh.Range("A1:A" & sh.Rows.Count).Find("", LookIn:=xlValues).Row

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

[es] :: Office :: Excel :: Vba automatizacija- pomoć

[ Pregleda: 454 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.