excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Spustenie makra podmienku (zmenou hodnoty bunky)
MS Excel
Téma: Spustenie makra podmienku (zmenou hodnoty bunky) 
Zaslal/a frantilopa 30.3.2013 14:22
Zdravim Vas. Vie mi niekto pomoct prosim.
Dalo by sa sfunkcnit makro ktore mi kopiruje riadok z druheho harka a to tak, ze nefungolalo by to cez tlacitko (ktore je tam), ale pod podmienkou. Ak bude bunka K1>0 prekopiruje sa konkretny riadok do volneho riadku v harku 1. Ak sa K1=0 tento riadok Zlava sa cely vymaze (v harku 1). Tlacitko by som zrusil...
DAKUJEM ZA POMOC.
F. 
Příloha: 
12585_spustenie-makra-pod-podmienkou.rar (37kB, staženo 27x)
12585_spustenie-makra-pod-podmienkou.rar (37kB, staženo 27x)
Ahoj,
ono to ide cez :
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
... ... ...
... ...
...
End Sub
ale je potrebné zadať nejakú „brzdu“, aby to nebežalo do nekonečna.
napr:
zastavenie makra bude podmienené „skrytým“ kódom v Bunke “K1“. (zmena formátu údaju)
- ak v údaji (v bude "K1") sa bude nachádzať „bodka“ makro sa skončí.
Pred ukončením makra sa v “K1“ hodnota 1,0 (1 čiarka 0) prepíše na 1.0 (1 bodka 0)
Ak to nie je číslo ktoré chceš ďalej používať v nejakých vzorcoch, tak by to vo vizuálnej forme nemalo vadiť. (1,0 či 1.0)
Ak to počká deň - dva, tak to pošlem. dnes už nestíham a zajtra som bez PC.
citovat
ono to ide cez :
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
... ... ...
... ...
...
End Sub
ale je potrebné zadať nejakú „brzdu“, aby to nebežalo do nekonečna.
napr:
zastavenie makra bude podmienené „skrytým“ kódom v Bunke “K1“. (zmena formátu údaju)
- ak v údaji (v bude "K1") sa bude nachádzať „bodka“ makro sa skončí.
Pred ukončením makra sa v “K1“ hodnota 1,0 (1 čiarka 0) prepíše na 1.0 (1 bodka 0)
Ak to nie je číslo ktoré chceš ďalej používať v nejakých vzorcoch, tak by to vo vizuálnej forme nemalo vadiť. (1,0 či 1.0)
Ak to počká deň - dva, tak to pošlem. dnes už nestíham a zajtra som bez PC.
citovatKod na vymazanie si doplň sám.
Příloha: 12623_spustenie-makra-pod-podmienkou_.zip (35kB, staženo 41x)
citovat12623_spustenie-makra-pod-podmienkou_.zip (35kB, staženo 41x)marjankaj (aj Martin.B)
DAKUJEM VAM!
Parada. Super!
Ste super.
To vymazanie som pouzil nieco take:
Sub vymaz()
Set Obl = Rows(65001)
For i = 1 To Cells(65000, 3).End(xlUp).Row
If Cells(i, 3) = "ZĽAVA" Then
Set Obl = Union(Obl, Rows(i))
End If
Next i
Obl.Delete
End Subcitovat
DAKUJEM VAM!
Parada. Super!
Ste super.
To vymazanie som pouzil nieco take:
Sub vymaz()
Set Obl = Rows(65001)
For i = 1 To Cells(65000, 3).End(xlUp).Row
If Cells(i, 3) = "ZĽAVA" Then
Set Obl = Union(Obl, Rows(i))
End If
Next i
Obl.Delete
End Subcitovat
No super, ale akosi mi nefunguje druhe makro cez tlacitko, od kedy som tam zadal makra:
Private Sub Worksheet_SelectionChange (ByVal Target As Range)...............
To druhe makro cez tlacitko mi kopiruje cely harok a ukalda do noveho suboru... (vlastne export toho harka so zaznamom).
Nefunguje a vypisuje toto:
compile error: sub or function not defined
Predpokladam ze mu robi problem asi ta aktivna bunka K1. Ci vie mi niekto poradit ako by som to vyriesil?
Dakujem.citovat
Private Sub Worksheet_SelectionChange (ByVal Target As Range)...............
To druhe makro cez tlacitko mi kopiruje cely harok a ukalda do noveho suboru... (vlastne export toho harka so zaznamom).
Nefunguje a vypisuje toto:
compile error: sub or function not defined
Predpokladam ze mu robi problem asi ta aktivna bunka K1. Ci vie mi niekto poradit ako by som to vyriesil?
Dakujem.citovat
Dakujem za trpezlivost so mnou...
Ked sa zmaze:
Private Sub Worksheet_Change(ByVal Target As Range).........
tak potom to tlacitko funguje...
Ked sa zmaze:
Private Sub Worksheet_Change(ByVal Target As Range).........
tak potom to tlacitko funguje...
Příloha: 12655_spustenie-makra-pod-podmienkou_.rar (48kB, staženo 31x)
citovat12655_spustenie-makra-pod-podmienkou_.rar (48kB, staženo 31x)UPS..
Opravil som chybu v tlacitku...
ked je vymazane Private Sub Worksheet_SelectionChange (ByVal Target As Range)...atd..) tak tlacitko ide,
ale ked to tam je tak nejde, a vypisuje error co som spominal... compile error: sub or function not defined
Vie mi niekto poradit ako odstranit ten compile error?
DAKUJEM.
Opravil som chybu v tlacitku...
ked je vymazane Private Sub Worksheet_SelectionChange (ByVal Target As Range)...atd..) tak tlacitko ide,
ale ked to tam je tak nejde, a vypisuje error co som spominal... compile error: sub or function not defined
Vie mi niekto poradit ako odstranit ten compile error?
DAKUJEM.
Příloha: 12656_spustenie-makra-pod-podmienkou2.rar (47kB, staženo 35x)
citovat12656_spustenie-makra-pod-podmienkou2.rar (47kB, staženo 35x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články