MS Excel

Zdravim
Mel bych zaludnou otazku na experty v excelu. Zajima me jestli je mozne udelat podminene MAKRO (napriklad) v bunce A1 se budou menit nahodne cisla a jakmile tam bude cislo 1 tak se MAKRO samo zpusti a provede potrebnou operaci pokud tam budou jine cislice nic se nestane. Díky předem dekuji za jakoukoli poznamku ci pridanej soubor s navrhama. Nikde jsem nic nenasel...

Zaslat odpověď >

Strana: 1 2 3 další »

Pavlus(18.4.2014 17:19)#018955

Není záludná :-).
Jde to udělat velmi jednoduše přes událost listu.
P.

Příklad volání makra dle podmínky:Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A1").Value = 1 Then
Call makro
End If

End Subcitovat

Merlin99(18.4.2014 17:34)#018956

Díky Pavlus mam jen maly dotaz kam presne mam napsat jmeno makra ktery timto chci vyvolat?citovat

Merlin99(18.4.2014 17:52)#018957

Uz to mááám mazec diky moc jsi vazne dobrej !!

DÍKYcitovat

Merlin99(19.4.2014 13:55)#018969

Ahoj Pavlus mam jeste jednu prosbu na tebe potreboval bych aby kdyz v bunce A1 = 1 se zpustilo jedno makro ale kdyz bude v bunce treba A1 = 2 se zpustilo uplne jiny makro atd... a to uz s timahle radkama nejde... nejaky napad byl bych vdecny

takhle to taky nejde =/

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A3").Value = 1 Then
Call MAKRO1

If Range("A3").Value = 2 Then
Call MAKRO2

If Range("A3").Value = 3 Then
Call MAKRO3

End If
End Subcitovat

marjankaj(19.4.2014 15:37)#018970

Merlin99 napsal/a:

Ahoj Pavlus mam jeste jednu prosbu na tebe potreboval bych aby kdyz v bunce A1 = 1 se zpustilo jedno makro ale kdyz bude v bunce treba A1 = 2 se zpustilo uplne jiny makro atd... a to uz s timahle radkama nejde... nejaky napad byl bych vdecny

takhle to taky nejde =/

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A3").Value = 1 Then
Call MAKRO1
elseIf Range("A3").Value = 2 Then
Call MAKRO2
elseIf Range("A3").Value = 3 Then
Call MAKRO3
End If
End Sub

Alebo
If Range("A3").Value = 1 Then Call MAKRO1
If Range("A3").Value = 2 Then Call MAKRO2
If Range("A3").Value = 3 Then Call MAKRO3
end sub
..citovat

Opičák(19.4.2014 15:39)#018971

Odpovím za Pavluse, bo tu není

If podmínka then call něco

v jednom řádku a není tam end if nebo

if podmínka then
call makro
end ifcitovat

marjankaj(19.4.2014 15:44)#018972

Select Case Range("A3")
Case 1
Call makro1
Case 1
Call makro2
Case 3
Call makro3
End Selectcitovat

Merlin99(19.4.2014 16:02)#018973

Opičák DÍKY za ochotu jen nevím jestli si dobre rozumime potrebuju napsat MAKRO upravene jako psal Pavlus to jde dobre ale jen na jednu podminku potreboval bych ho rozsirit na neomezene podminek...citovat

Merlin99(19.4.2014 16:08)#018974

Marjankaj ... jooo uz mi to de to co si psal je dobre díky moc jste važně dobří !!!!

citovat

Merlin99(20.4.2014 8:42)#018975

Zdravím všechny mám jeste jeden docela zasadni dotaz na podminene MAKRO a myslim ze je docela problemovej... (priklad) nahodne generuju prez RANDBETWEEN dve jmena ADAM a PETR dale ke jmenu nahodne generuju cislo 1-100. Nakonec nahodne generuju cisla od 1 do 5 a chci aby kdyz tady vyskoci cislo 1 tak se spustilo MAKRO1 a zkopirovalo se do sloupce ADAM kde budou vsichni Adamove s prislusnym cislem a kdyz vyskoci cislo 2 tak se zpusti MAKRO2 a zkopiruje Petra s prislusnym cislem a vlozi zase do sloupce s Petrama. Zkousel jsem to udelat prez ale neskutecne to blbne ... tak kdyby nekdo neakej genialni napad budu vdecny díky.. Pro prehlednost pridavam soubor.

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B1").Value = 1 Then
Call Makro1

ElseIf Range("B1").Value = 2 Then
Call Makro2

End If
End Subcitovat

Strana: 1 2 3 další »

Téma: Podmíněné MAKRO

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje