Příspěvky uživatele
< návrat zpět
ups zabudol som na prilohu...
Zdravim Vas.
Dostal som ulohu ...
Tych riadkov je strasne vela 8000, asi by som to robil paru dni...
Vie mi to niekto prosim ulahcit?
Potrebujem do stlpca B napisat typ elektrarne, podla toho co sa nachadza v stlpci A.
Napr.:
A.
"Mahipar Hydroelectric Power Plant"
v B nech je napisane "H"
atd.
navod:
thermal - T
hydroelectric - H
CCGT - PPC
OCGT - OC
steam - T
tam kde nie je nic nech nenapise nic.
Neviem ci to robit cez vzorec, alebo cez makro.
Dakujem za pomoc vopred!
F.
Zdravim Vas.
Dakujem Vsetkym za pomoc a ochotu.
Skusil som to co mi napisal Poki:
Application.EnableEvents = False
Application.EnableEvents = True
PARADA!!!
POKI - este raz D A K U J E M !!!
Funguje... 
Dakujem Vam za rady a ochotu vsetkym!
Ano to K1 bolo povodne cez tlacitko ako pise marjankaj. Potom mi to upravil a tlacitko slo prec. Lenze dal som tam dalsie tlacitko (makro), ktore kopiruje cely Harok a tu vznikol problem, ze to druhe makro sa akosi bije s prvym....
Napadlo ma, ze to tlacitko, ktore vlastne kopiruje cely harok ma problem z bunkou K1... Nie som expert, ale neexsistuje nejaky zapis, ktory by som tam do toho makra vsunul? (ignoroval by pri kopirovani bunku K1). Respektive nedalo by sa to vyriesit tak, ze to tlacitko by nekopirovalo cely Harok ale riadky od 2 po napr. 5000 a tym by sa vynechal riadok 1 v ktorom je bunka K1 s ktorou je problem...
Neviem. 
Dakujem za radu.
To bude asi na dlhsie, ale prejdem to cele (snad to spojazdnim)...
Este raz Dakujem!
F.
Zdravim.
Vie mi niekto poradit s tymto problemom?
Mam tam dve makra.
Jedno funguje pri zmene bunky K1 (pri K1>0 prekopiruje riadok z Harku "Praca EZS", pri K1=0 zmaze tento riadok)
Druhe makro (tlacitko) funguje ako export (zaloha, evidencia) faktury, kde zaznamena v poslednom harku eport a ulozi to niekde (podla zadanej cesty).
Problem, je v tom, ze to K1 funguje a tlacitko funguje, jedine ked zmazem to prve makro ovladajuce K1. Inak mi vzdy vypise error.
Da sa to nejak spojazdnit ?
Vopred DAKUJEM.
F. 
Strucne, jasne, funguje ...
Pavlus D A K U J E M !!!
Zdravim. Prosim o radu.
Ked som potreboval kopirovat cislo z bunky do bunky v roznych harkoch tak som pouzil v makre (priklad):
Hárok1.Cells(rd2, 3) = Harok2.Cells(rd, 3)
ked som mal konkretny jednoduchy vzorec tak som pouzil (priklad):
Hárok1.Cells(rd2, 3).Formula = "=G" & rd2 & "*E" & rd2
skusal som to aj tako, sice mi to hodilo vzorec ale napr. do riadku 6 mi hodilo vzorec z 28
Hárok1.Cells(rd2, 3).Formula = Harok2.Cells(rd, 3).Formula
(potrebujem relativny vzorec aby mi tam dalo cislo konkretneho riadku, myslim to napr. rd2)
Otazka? Ako to mam napisat ked ten vzorec je trochu komplikovany?
konkretne:
=IF(Harok1!$Y$4=1;O28*(1+N28/100)*(1+U28/100);O28*(1+N28/100)*(1+U28/100)*(1+Harok1!$A$3/100))
samozrejme ta 28cka je rd2.
skusal som to zapisat nejak takto, ale neslape to (ze som namiesto 28 zapisal " & rd2 & ":
Hárok1.Cells(rd2, 3).Formula = "=IF(Harok1!$Y$4=1;O" & rd2 & "*(1+N" & rd2 & "/100)*(1+U" & rd2 & "/100);O" & rd2 & "*(1+N" & rd2 & "/100)*(1+U" & rd2 & "/100)*(1+Harok1!$A$3/100))"
Dufam, ze sa mi to podarilo nejak vysvetlit.
Vopred Vam dakujem za radu.
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.
Dakujem za trpezlivost so mnou...
Ked sa zmaze:
Private Sub Worksheet_Change(ByVal Target As Range).........
tak potom to tlacitko funguje...
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.
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 Sub
Asi to nepojde co?
Aj tak dakujem.
Opicak.
Dakujem 1000x
Super.
DAKUJEM.
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.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články