MS Excel

Téma: if A1=1 then call macro else go to next sheet

Zaslal/a hannick 12.6.2014 15:07

Ahoj ahoj,
chtěla bych poradit s makrem, které zkontroluje jednotlivé listy souboru, pokud najde v buňce A1=1 zavolá makro, pokud buňka A1=0 půjde automaticky zkontrolovat další list a takto projde celý sešit.
Upozorňuji, že názvy listů můžou být různé.
Díky moc.
H.

Uzamčeno - nelze přidávat nové příspěvky.

Palooo(12.6.2014 15:19)#019948

staci takto?

Sub Makro()
For x = 1 To Sheets.Count
If Sheets(x).Cells(1, 1) = "1" Then blabla
If Sheets(x).Cells(1, 1) = "0" Then blabla
Next
End Subcitovat

hannick(12.6.2014 16:02)#019957

na prvním listě úspěšné, ale druhý ani žádný další list to už pak nekontroluje :(

Sub Makro()
For x = 1 To Sheets.Count
If Sheets(x).Cells(1, 1) = "1" Then Call myMakro
If Sheets(x).Cells(1, 1) = "0" Then Call nic
Next
End Subcitovat

hannick(12.6.2014 16:06)#019958

respektive funguje pro list, na kterém právě stojím, ale na všechny ostatní kašle :(citovat

marjankaj(12.6.2014 16:17)#019962

A čo robí to tvoje makro?

Vlož tam

For x = 1 To Sheets.Count
sheets(x).activate
If Sheets(x).Cells(1, 1) = "1" Then call MyMakro
Nextcitovat

hannick(12.6.2014 16:23)#019964

paráda, teď už to fičí, díky moc :)
H.citovat

Palooo(13.6.2014 8:51)#019972

hannick napsal/a:

paráda, teď už to fičí, díky moc :)
H.

:) no neslo to koli tomu ze to vase dalsie makro nebolo odkazovane na sheet ale activesheetcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.