..UF. Vyčerpávájící. Hluboce před Vámi smekám.
a Samozřejmě DĚKUJI.
když to aplikuju na jiné názvy listu nejde mi to.
nahrazuju název "List1" na "Test ICA"
Application.GoTo List1.Rows(R)
Application.GoTo Test ICA.Rows(R) a makro hodí eror.
název listu nesmí mít dvě slova bez _ ? nebo se to musí zapsat jako kodový název listu?
Zdravím.Děkuju
Můžete to prosím vysvětlit:
If LenB(Jmeno) > 0 Then
počítám počet znaku jmena, když je větší jak 0,jmeno má nějakou hodnotu
??? tady něco násobím??
R = Evaluate("=IFERROR(MATCH(1,('List1'!B1:B10000=""" & Jmeno & """)*('List1'!A1:A10000=""ICA""),0),0)")
add2 ??? prosím okomentovat princip
L = List1.UsedRange.Columns(1).Resize(, 2).Value2
R = 0
For i = 1 To UBound(L, 1)
If L(i, 1) = "ICA" And L(i, 2) = Jmeno Then R = i: Exit For
...chci prostě skočit na jméno se dvěma podmínkami, vybranéJmeno+ hodnota ve slA=ICA
Zdravím.
Makro mi vyhledá označenou hodnotu z listu2 v listu1.
Ale jak to přesně funguje, on to hledá od spodu, nebo jak?
Když se vyskytuje v listu1 to jméno vícekrát tak makro skočí na to jméno co má ve sloupci A - PASS. Proč? Můžete mi to prosím vysvětlit?
Jde nějak ošetřit, aby to vyhledalo jméno , co má ve sl.A - ICA ?
Děkuji
aha, ok, Děkuju ! Hezké Velikonoce
Děkuju !
add Elnino
Ano ,tak . jen dotaz,v tom OptionExplicit , to je k čemu prosím? Je to teda dost komplikované,ale to asi musí být.
Ten Now + TimeSerial(0, 0, 1) , co je to za parametry ?..umí to jen vteřiny, nebo i menší čas?
Děkuji
--------------------------------------------------------
add Začátečník
Když stisknu Storno, přeskočí se sice odpočet, ale až v dalším kroku next i, a makro,co se má spustit po odpočtu se stejně spustí, ikdyž jsem ho Stornem chtěl přerušit.
If konecForm Then 'MsgBox "zmačknul jsi storno"
Exit For
GoTo konec
End If
Mohl by jste to ještě upravit?...tedy jestli se nakonec nedostaneme do řešení kolegy Elnino.
Odskok GoTo konec, by měl přeskočit odpočet , ale on ještě jeden Next i načte, a zase spustí to co je v jeho bloku.
...Protože není stisk tlačítka ošetřen tak, aby přerušil cyklus odpočtu. Zkuste si kód krokovat a uvidíte i příčinu toho, proč se cyklus nepřeruší.
..stačí dát do kodu tl."storno" EXIT DO ?
Private Sub Storno_Click()
Exit Do
'Start.Hide
Unload Me
End
End Sub
Zdravím. prosím jak vyladit formulář a kod.
Chci , před otevřením sešitu zobrazit okno, kde jede odpočet, který odpočítá 5sec a pak spustí další proceduru. A pokud do této doby stisknu tl Storno, tak aby se tento form.HNED uzavřel a jen otevřel sešit.
Nyní , když stisknu Storno, stejně to čeká ...na pozadí až to odpočítá temch 5 sec.
Jde to nějak?...okamžitě všechny makra přerušit
Možná by pomohlo obecně vysvětlit, jak funguje v obecném formuláři tlačítko Storno, a tl Přerušit. Přerušit taky ukonší chod makra?
A ještě jeden dotaz, lze schovat křížek v pravém rohu formuláře?
Chci při startu zobrazit okno s informacemi o produktu, a vyžaduji třeba těch 5 sec.aby to uživatel viděl a nemohl to vykřížkovat. Má to prakticky každý program , když startuje.
Díky za tipy
Díky
Děkuju za tip. Poperu se zatím s tímhle, uvidím co bude stačit a vyhovovat. Je to ve fázi vývoje .
Děkuju.
...a šířka sloupců ve form se přebírá z tabulky , nebo se dá taky nějak upravit, zúžit?
super,Děkuji
a jak by se dalo vybrat jen některé sloupce ? např sl A,N,O
'Set rgOblast = Range("B5").CurrentRegion - je asi vyber celé tabulky že ?
Zdravím,chi se zeptat , jestli jde ve formuláři zobrazit část listu excelu, tzn jako tabulku.
Označím si oblast(např A1:Q8) a zobrazím ji ve formuláři. Je na to nějaký prvek?
Díky
Dobry vecer.
Nevite,da se z excelu odesilat sms? Nasel jsem ruzne vyribce doplnku ale vsechny se odkazuji na placene sms brany. Neresil to uz nekdo ..bezplatne... Kdyz sms ma dnes kazdy ke svemu tarifu.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.