• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Díky moc, funguje perfekt:-)

Command.. bude umístěn v UserForm. Trošku jsem si s tím pohrál, ale řešení jsem zatím nenašel. Tvoje řešení funguje, ale potřeboval bych tip jak to aplikovat v UF...

Zdravím...hledal jsem, ale nenašel...zeptám se tedy zda už někdo něco takového neřešil:
Jde změnit Caption CommandButtonu z buňky v určitém listu?
Díky M.

To Dingo...tohle je úplně pecka, díky
To cmuch...vyzkoušeno, tohle použiji v jiném sešitě
To chey...takto jsem to dosud řešil, ale potřeboval jsem to z automatizovat, jelikož mě nebavilo označovat Více než deset listů...

Všem moc děkuji za návrhy a řešení

Pokud zaměním .ClearContents za .Delete tak se mě odstraní jen řádek v prvním listu. Dělám něco blbě?
Edit: Asi dělal pač už mě to jde. Takže omluva:-)
Nyní tedy zda půjde definovat názvy listů kde se bude řádek odstraňovat?

No a vlastně to z části neřeší můj problém. Potřeboval bych přesně definovat listy ve kterých by se mazalo....

Teď čtu tvůj Edit, Delete odstraní řádek jen na prvním listu:-(

Super, funguje lépe, když na dvojklik reaguje jen vybraný sloupec. Ale já pořebuji řádek odstranit úplně, špatně jsem to napsal
Zkoušel jsem nahradit Clear... na Delete, ale odstraní se jen řádek na prvním listu. Půjde to nějak zařídit i na ostatní?

Ahoj, jdou smazat stejné řádky na více listech dle označeného řádku na prvním listu? Když v prvním listu dvojklikem na buňku aktivuji makro, které odstraní řádek kde je "kurzor" tak aby dále v Listu1,Listu2,Listu3 byl odstraněn ten samý řádek...je to proveditelné?
Níže uvádím kód, který smaže řádek na listu:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Při dvojkliku smazat řádek s kurzorem
Select Case Smazat
Case vbYes
If ActiveCell.Column = 1 Then
Rows(ActiveCell.Row).Delete
Cells(ActiveCell.Row, ActiveCell.Column).Select
End If
Case vbNo
End Select
Exit Sub
End Sub

Děkuji za radu vyzkouším..
Tak jsem pár kódů tady prostudoval a pak metoda pokus omyl...před kód jsem vložil

If Range("Autozobrazradky") Then
Else
'a na konec
End If
Funguje to tak, jen prosím někoho zkušenějšího o potvrzení, že se nejedná o blbost a může to tak být

Celé znění kódu je tedy:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Autozobrazradky") Then
Else
If Not Intersect(Target, Range("C26:L373")) Is Nothing Then
If Rows(Target.Row + 1).Hidden = False Then
Exit Sub
Else
Rows(Target.Row + 1).Hidden = False
End If
End If
End if
End Sub

Zdravím:-)
Potřeboval bych konzultaci...Jde vypnout níže uvedený kód při spuštění jiného makra? Trošku víc mě to hapruje když makrem vkládám položky z jiného listu.
Níže uvedený kód mám na listu, ale Jiné makro se spouští z modulu. Je nějaký příkaz jak toto makro zastavit a pak zase spustit?
Nebo mě napadlo:
Popřípadě níže uvedený kód by se spouštěl pouze pokud by byla splněna podmínka př. by v buňce A1 byla uvedená hodnota PRAVDA. Šlo by to nějak vložit do kódu?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C26:L373")) Is Nothing Then
If Rows(Target.Row + 1).Hidden = False Then
Exit Sub
Else
Rows(Target.Row + 1).Hidden = False
End If
End If
End Sub

Díky za tip je to pěkný, ale pro moji potřebu to udělat nepůjde. Mám v makru hromadu podmínek a makro čerpá data ze třech listů, to už je pro mě vyšší dívčí takže to nedám

Děkuji za radu.
Vše funguje skvěle, ale zobrazí se UF, ale nenačte se jeho obsah po celou dobu běhu makra. Což tak úplně nevadí, pač se mě zobrazí název UF (Kopíruji data...)a tam je text zobrazen. Jen je zajímavé, že se nezobrazí jeho obsah

No tak tudy cesta nevede, otevření UF zastaví běh makra:-(
Je nějaké řešení, jak by mohl být UF otevřen na pozadí a makro by pokračovalo v běhu?

Potřebuji poradit s následujícím:
Kopíruji makrem větší množství dat, což trvá cca 20 vteřin.
Potřeboval bych do kódu přidat UF, což problém není, ale potřeboval bych, aby se na začátku spuštění makra otevřel (Jedná se jen o informaci v UF "Kopíruji data") a jakmile makro doběhne, tak aby byl UF automaticky zavřen. Je nějaký příkaz pro toto? Díky M.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje