Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
11.02.2010. [Office] Rad sa makroima
13.09.2007. [Excel] Pomoć kod makroa slovima(broj)
17.02.2008. Kako automatizovati macro u VS 2005
29.02.2008. [Excel] kako stratovati program pomocu makroa?
02.03.2008. [Excel] makro za otvaranje csv fajla
06.06.2008. excel makro za grafik u excel 2007
17.06.2009. problem sa snimanjem makroa u personal workbook-u
08.12.2009. Arhiviranje podataka iz tabela
03.04.2012. dodavanje makroa u combobox

Navigacija

Brisanje liste

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

makro uslov za startovanje 2 makroa

[es] :: Office :: Excel :: makro uslov za startovanje 2 makroa

Strane: 2

[ Pregleda: 3833 | Odgovora: 28 ] > FB > Twit

Autor

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

makro uslov za startovanje 2 makroa

^{06.12.2011. u 09:39 - pre 150 meseci}

kako da napisem makro da kad je u celiji E2: pa do last row,
da kad u celiji stoji index, da startuje jedan makro, a kad stoji benchmark, da startuje drugi makro.

ja pokusah nesto kao:

Code:
Sub Download()

Dim LastRow As String
Dim myrange As Range
Dim indexztr As String
Dim benchmark As String

LastRow = Cells(Cells.Rows.Count, "E").End(xlUp).Row

Set myrange = Range("E1:E" & LastRow)

If myrange = indexztr Then
    Indztrperf

    Else
If myrange = benchmark Then

    Benchmarkperf

End If
End If

End Sub

Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 838
*.adsl.verat.net.

+166 Profil

Re: makro uslov za startovanje 2 makroa

^{06.12.2011. u 12:06 - pre 150 meseci}

Aj probaj ovaj makro. Ja ga nisam probao kod sebe.

Sub Download()
Dim LastRow As Long

LastRow = Cells(Application.Rows.Count, 5).End(xlUp).Row

If Cells(LastRow,5) = "indexztr" Then
Indztrperf
ElseIf Cells(LastRow,5) = "benchmark" Then
Benchmarkperf
End If
End Sub

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro uslov za startovanje 2 makroa

^{06.12.2011. u 13:30 - pre 150 meseci}

odradi ali npr ako stoji indexztr onda otvori podatke, a ako stoji benchmark, ne.

ne startuje makro Benchmarkperf, vec samo Indztrperf

Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 838
*.adsl.verat.net.

+166 Profil

Re: makro uslov za startovanje 2 makroa

^{06.12.2011. u 20:09 - pre 150 meseci}

Kod mene radi. Koristim Excel 2010. Verovatno je problem što makro ne nalazi da su dve reči podudarne. Ovo je posledica toga što reč u ćeliji sadrži neke nevidljive znake tipa "space", Enter prelom, TAB. Evo ti malo liberarniji makro koji će pronalaziti slaganje čak i ako postoje ovi nevidljivi znakovi. Kod mene i ovaj makro radi.

Takođe proveri i da nemaš neke štamparske greške u spredšitu ili u nazivima makroa.

Sub Download()
Dim LastRow As Long

LastRow = Cells(Application.Rows.Count, 5).End(xlUp).Row

If Cells(LastRow, 5) Like "*indexztr*" Then
Indztrperf
ElseIf Cells(LastRow, 5) Like "*benchmark*" Then
Benchmarkperf
End If
End Sub

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro uslov za startovanje 2 makroa

^{07.12.2011. u 09:29 - pre 150 meseci}

greske nisu.
kad startujem pojedinacno pakro, rade, a kad startujem ovaj novi, samo nadje podatke prvog, drugog nece.

ne razumem u cemu bi mogla biti greska.

zasto radi pojedinacno svaki, a zajedno kad su nece?

kad kliknem prvi, dobijem podatke samo iz prvog makroa, ostatak mi prijavi kao gresku i obrnuto za drugi makro.

_{[Ovu poruku je menjao ramzesIV dana 07.12.2011. u 10:39 GMT+1]}

Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2268
194.106.170.*

Sajt: www.gowi.rs

+109 Profil

Re: makro uslov za startovanje 2 makroa

^{07.12.2011. u 09:53 - pre 150 meseci}

Ako koristiš makroe, neophodno je da se upoznaš sa načinom debagovanja koda. http://www.elitesecurity.org/t287743-0#1741361

1/ U VBE postavi breakpoint na IF pa startuj makro.
2/ Kad se izvršavanje zaustvi na ovoj liniji sa F8 pređi na sledeću liniju. U tvom slučaju vrlo je bitno da li je sledeća linija Benchmarkperf ili ne
- Ako je Benchmarkperf idi dalje korak po korak i proveri zašto se taj makro ne izvrši kako valja.
- Ako je sledeća linija neka druga, proveri vrednosti LastRow kao i Cells(LastRow,5) u Immediate window:

Code:
?Cells(LastRow,5)

_{[Ovu poruku je menjao Jpeca dana 07.12.2011. u 11:03 GMT+1]}

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

Prikačeni fajlovi

Debug.jpg - 71.03k

Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 838
*.adsl.verat.net.

+166 Profil

Re: makro uslov za startovanje 2 makroa

^{07.12.2011. u 12:10 - pre 150 meseci}

Aj uploaduj XLS fajl pa da vidimo šta je u pitanju.

Takođe još jednom objasni šta ti u stvari želiš. Da li želiš:
1) Da makro pronađe poslednju ćeliju u E koloni, da je pročita i da na osnovu nje pokrene odgovarajući makro.
2) Da staneš kursorom na neku ćeliju i da pokreneš makro. Makro pročita sadržaj date ćelije i na osnovu nje pokrene odgovarajući makro.
3) Makro krene od ćelije E2. Pročita njen sadržaj, odradi odgovarajući makro pa onda pređe na ćeliju E3. Tamo uradi isto pa onda pređe na E4 i tako do poslednje ćelije.

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro uslov za startovanje 2 makroa

^{07.12.2011. u 13:07 - pre 150 meseci}

kaze nije definisano, (keine variablen) i samo ucitava ovaj prvi makro.

lastrow 5 Long
izraz u kontekstu nije definisan!!

i preskace elseif i trazi podatke samo iz prvog makroa.

----

edit:

razlog je zato sto ova dva makroa iznova citaju podatke. i zato dobijam jedno te isti razultat.

to znaci prvo moram da korigujem ova dva makroa pa tek onda ce ovo funkcionisati.

_{[Ovu poruku je menjao ramzesIV dana 07.12.2011. u 14:38 GMT+1]}

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro uslov za startovanje 2 makroa

^{12.12.2011. u 16:54 - pre 150 meseci}

evo konacno malo vremena da se vratim ovom:

pokusala sam da reorganizujem svoj makro, ali opet mi se podaci vracaju na pocetak.

ja hocu da ucitava a2, b2, c2 ako je e2=bm, pa onda e3=bm da ucitava a3,b3,c3, ...

jel neko moze da ispravi gresku:

Citat:

Sub Download()
Dim LastRow As Long
Dim LastColumn As Long
Dim val As String, st As String, ed As String, ID As String
Dim Ofs As Long

ActiveSheet.Range("I:ZZ").ClearContents
LastRow = 2
st = 2
ed = 2
ID = 2
LastColumn = 1

While True

val = Cells(LastRow, 5).Value
st = Cells(LastRow, 1).Value
ed = Cells(LastRow, 2).Value
ID = Cells(LastRow, 3).Value

If val = "ind" Then

GetIndexzeitreihe Range("A2"), Range("B2"), Range("C2"), Range("I1").Offset(0, Ofs)
ElseIf val = "bm" Then

GetBenchmark Range("A2"), Range("B2"), Range("C2"), Range("I1").Offset(0, Ofs)
ElseIf val = "" Then
Exit Sub
End If

LastRow = LastRow + 1
'st = st + 1
'ed = ed + 1
'ID = ID + 1
LastColumn = LastColumn + 3
Ofs = Ofs + 3

Wend

End Sub

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro uslov za startovanje 2 makroa

^{12.12.2011. u 16:57 - pre 150 meseci}

e da, da ne bude da nisam uradila pravilno.

ovo je makro pomocu kog ja hocu da startujem moja dva makroa. ako je potrebno postavicu i ta dva, ja reko' da bude preglednije.

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: makro uslov za startovanje 2 makroa

^{12.12.2011. u 17:29 - pre 150 meseci}

Najbolje okaci Excel fajl, pa da vidimo u cemu je problem

[email protected]=

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro uslov za startovanje 2 makroa

^{13.12.2011. u 08:36 - pre 150 meseci}

evo postavljen fajl. u njemu sam napisala ono sto bih htela.

nadam se da ce neko moci pomoci.

Prikačeni fajlovi

primer_ramzes.xlsm

primer_ramzes.xlsm - 175.27k

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: makro uslov za startovanje 2 makroa

^{13.12.2011. u 15:02 - pre 150 meseci}

Odradio sam ti nesto i dodao ti novo dugme sa mojim kodom.

[email protected]=

Prikačeni fajlovi

primer_ramzes.xlsm

primer_ramzes.xlsm - 173.09k

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro uslov za startovanje 2 makroa

^{13.12.2011. u 15:49 - pre 150 meseci}

prvo hvala na trudu.

kad startujem dobijem gresku kod prvog GetIndexzeitreihe (GetIndexzeitreihe Pocetak, Kraj, Simbol) - argument is not optional

ime mi ne treba. ovaj kod gleda samo pocetni, krajnji datum i simbol (ID). tako da sam ime stavila kao tekst.

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: makro uslov za startovanje 2 makroa

^{13.12.2011. u 17:14 - pre 150 meseci}

Izvini moja greska, na pocetku

Code:
Sub GetIndexzeitreihe(ByVal StartDate As Date, ByVal EndDate As Date, ByVal Symbol As String, _
ByVal DataRange As Range)

i

Code:
Sub GetBenchmark(ByVal StartDate As Date, ByVal EndDate As Date, ByVal Symbol As String, _
ByVal DataRange As Range)

stavio sam

Code:
MsgBox "Pokrenuo IND"
Exit Sub

MsgBox "Pokrenuo BM"
Exit Sub

da proverim da li mi pokrece proceduru a da je ne izvrsava do kraja ali kad sam ti poslao zaboravio sam da izbrisem, izbrisi to i pozvace proceduru
a kolona gde sam stavio Ime mozes postaviti kao komentar ili izbrisati

[email protected]=

Prikačeni fajlovi

primer_ramzes.xlsm

primer_ramzes.xlsm - 173.24k

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: makro uslov za startovanje 2 makroa

^{13.12.2011. u 17:30 - pre 150 meseci}

jel to sve u ovom excelu sto si ga postavio, jer ovde je samo stari makro.

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: makro uslov za startovanje 2 makroa

^{13.12.2011. u 17:45 - pre 150 meseci}

jeste, videces razliku izmedju prethodnog i ovog, jedino kod mene sto javlja gresku kod ove naredbe

Code:
WinHttpReq.Send

ali kod tebe bi to trebalo da radi, verovatno je u pitanju nesto sto kod mene nema na racunaru
ali ono sto je vazno pokrece oba makroa u zavisnosti da li je ind ili bm i cita sve redove a ne samo prvi, to je postignuto u onoj Do Until . . . Loop petlji

[email protected]=

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.15.15.vie.surfer.at.

+6 Profil

Re: makro uslov za startovanje 2 makroa

^{13.12.2011. u 18:51 - pre 150 meseci}

e izvini, call me crazy, call me insane, ali ja nigde ne vidim ovo

MsgBox "Pokrenuo IND"
Exit Sub

MsgBox "Pokrenuo BM"
Exit Sub

samo ovaj stari prethodni code u modul fox028 ili si negde drugo ubacio ove kodove?

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: makro uslov za startovanje 2 makroa

^{13.12.2011. u 19:01 - pre 150 meseci}

pa u ovaj zadnji sto sam ti poslao sam izbrisao i onde gde pise IME stavio sam kao komentar:) imalo je u prethodnom

[email protected]=

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.15.15.vie.surfer.at.

+6 Profil

Re: makro uslov za startovanje 2 makroa

^{13.12.2011. u 19:15 - pre 150 meseci}

pa na primer kad bi citala post kako bog zapoveda, mozda bi i znala da si izbrisao.

koji sam ja kre*en!!!

probacu sutra na poslu, pa cu javiti jel radi.

sorry.

Odgovor na temu

[es] :: Office :: Excel :: makro uslov za startovanje 2 makroa

Strane: 1 2

[ Pregleda: 3833 | Odgovora: 28 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
11.02.2010. [Office] Rad sa makroima
13.09.2007. [Excel] Pomoć kod makroa slovima(broj)
17.02.2008. Kako automatizovati macro u VS 2005
29.02.2008. [Excel] kako stratovati program pomocu makroa?
02.03.2008. [Excel] makro za otvaranje csv fajla
06.06.2008. excel makro za grafik u excel 2007
17.06.2009. problem sa snimanjem makroa u personal workbook-u
08.12.2009. Arhiviranje podataka iz tabela
03.04.2012. dodavanje makroa u combobox

Navigacija

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