Matjazev.NET

Najlepša hvala :D Počasi nekaj bo. Zadevo sem si zamislil in jo naredil za sedaj tako se odpre menu Open izberem željen zvezek npr. 01042011.xls v njem izvedem kar želim nato ta list (01042011) skopiram v drugi zvezek (master.xls), zopet se mi odpre menu Open izberem npr. 02042011.xls v njem izvedem...

Se opravičujem, ampak ne razumem
Tukaj imam v delčku kode zapisano "List!D". S čim naj nadomestim to da bo zadeva delovela v listu ki je aktiven in katerim se imena spreminjajo. Z ActiveSheet.Name mi ne deluje.

hvala

Hvala za namig, vendar so se pojavile težave. Bom kar kodo pripel da bom lažje razložil kaj me muči. Sub Odpri_vec() ChDir ("C:\podatki") Dim datoteka: datoteka = Application.GetOpenFilename("Excel Files,*.xls", 1, , , False) If TypeName(datoteka) = "Boolean" Then Exit Sub Workbooks.Open Filename:=d...

Ne vem če prav razumem. Imam npr. delovni zvezek katerem bom shranjeval rezultate po izvedenem mojem makroju in iz tega zvezka z drugim makrojem odpiram zvezke za posamezen dan. Na kak način pa naj z makrojem odpiram zvezke, saj ima vsak drugačno ime.

lpa

Pozdravljeni Stvar je taka: za vsak dan v mesecu imam en excel-ov zvezek, katereih imena so npr.: 010411.xls, 020411.xls.....Na kak način bi lahko zagnal makro v vseh zvezkih, ne da bi mi bilo potrebno odpirat posamezen zvezek, rezultat makroja pa bi se videl v nekem novem zvezku; vsak zvezek npr. 0...

Najlepša hvala na rešitvi

Pozdravljeni Pojavil se mi je nov problem If Left(Range("List!D" & CStr(indeks)), 1) = "J" Then delaj indeks, indeks1 Zgornja koda ustreza tudi pogoju ko se pojavita znaka "JI". Tega pa želim preskočiti, oziroma ga nočem. Na kak način se ga znebim. Upam da se uspel razložiti kaj me muči. Hvala na po...

Se opravičujem, zadevo sem "zakompliciral". Zaenkrat mi zadeva deluje tako kot kot je napisano. Če lahko še eno vprašanje. Kako bi zagnal dva makroja z enim "klikom". Primer na sliki. Z prvim "otočkom" zaženem makro 1 z drugim makro 2 in z tretjim bi zagnal oba makroja. http://www.shrani.si/f/1y/5l/...

Tako kot ste napisali

admin napisal/-a: Določene vrstice obravnava večkrat, saj ustrezajo VEČIM pogojem!

Ne vem pa kako bi se tega drugače lotil.

lpv

Hvala
Razumem, kaj pa obstaja kakšna varjanta da mi gleda točno te tri črke ko je npr. "KCD" oziroma točno "KSM".....

lp

Pozdravljeni Še en problem. Kako definiram da program gleda ali so točno te tri črke "KCD"..., ker ko gre program naslednjič skozi mi še enkrat izpiše isto vrstico ker naslednjič vidi prvi znak "K", ki ga ima "KCD" prav tako itd, pri naslednji prehodih skozi program. Upam da sem uspel pravilno razlo...

Najlepša hvala na pomoči. Zadeva deluje.

lp

Pa mi noče in noče delat. Javi mi napako ByRef argument type mismatch Sub test() indeks = 6 indeks1 = 6 Range("List1!A1:F500").ClearContents For indeks = 1 To 5 If Left(Range("List!D" & CStr(indeks)), 2) = "TR" Then delaj indeks, indeks1 If Left(Range("List!D" & CStr(indeks)), 2) = "CD" Then delaj i...

Ne gre mi in ne gre. Zakaj ne deluje " GoSub delaj" Sub test() indeks = 6 indeks1 = 6 Range("List1!A1:F500").ClearContents For indeks = 1 To 5 If Left(Range("List!D" & CStr(indeks)), 2) = "TR" Then GoSub delaj If Left(Range("List!D" & CStr(indeks)), 2) = "CD" Then GoSub delaj If Left(Range("List!D" ...

Pozdravljeni Najprej predvsem zdravo in srečno.... Ne uspem ta del, ki ga pripenjam (spodaj je cel makro): Range("List1!A" & CStr(indeks1)) = Range("List!A" & CStr(indeks)) Range("List1!B" & CStr(indeks1)) = Range("List!B" & CStr(indeks)) Range("List1!C" & CStr(indeks1)) = Range("List!C" & CStr(inde...