Příspěvky uživatele

Poprosil by som o riesenie makrom, ktore by robilo nasledovne:
Na aktivnom liste potrebujem z Clipboardu vkladat text (Vlozit jinak/Text) do bunky v rozsahu C3:C20 – dvojklikom mysou.
Do bunky mozem text vlozit len vtedy, ak bunka v predchadzajucom riadku v stlpci D nie je prazdna (nie je vynulovana klavesou Delete). Ak v D je bunka vynulovana a chcem vlozit text, treba na to upozornit – Msgbox (napr Nevyplnena predchadzajuca bunka D) a vlozenie neuskutocnit. Netyka sa to prvej bunky C3, kedy sa nekontroluje bunka D2! Zrusit upozornenie v Msgbox klavesou Esc .
Do Clipboardu je text vkladany z roznych zdrojov v tvare text1 text2. Text1 od text2 je oddeleny medzerou. Po vlozeni textu z Clipboardu do prislusnej bunky v C stlpci, potrebujem z textu oddelit text1 a tento vlozit do zodpovedajuceho riadku v stlpci B. Text v bunke v stlpci C ostava nezmeneny. Clipboard sa vynuluje, aby nedoslo k vlozeniu toho isteho textu do dalsej bunky v C.
Prechod na lubovolny neaktivny list (kliknutim mysou) je mozny len vtedy, ak su vyplnene vsetky bunky v stlpci D, ktore zodpovedaju vyplnenym bunkam v stlpci C . Inak upozornit cez Msgbox (napr Nevyplnena niektora bunka D). Nie vsetky bunky v stlpci C musia byt vyplnene a tym padom ani zodpovedajuce bunky v stlpci D. Ak rozsah C3:C20 je prázdny (nuluje sa Deletom), prechod na iny list je mozny.
Bunka v stlpci D sa vyplnuje z klavesnice a moze to byt text (nie medzera), alebo cele cislo>=0. Nuluje sa Deletom.
Do bunky v stlpci C mozno taktiez vkladat z klavesnice. Vtedy sa text1 neprenasa do stlpca B. Ten sa vklada manualne.
Dakujem

To je jedna cast problemu. Zatial nie je cyklom riesena pomenovacia cast prepinacov
ActiveSheet.Shapes(Application.Caller).Name = "OB1". Ako je v zadani uvedene jednotlive prepinace su oznacene textom T1, T2, ... (cez pravy klik a Upravit text). Nejde cez tento text odlisit jednotlive prepinace a na zaklade tohoto textu potom nejakym makrom pomenovať prepinace OB1, OB2, ....? Alebo kazdy prepinac musi byt manualne pomenovany vyssie uvedenym makrom? Dakujem

To ale nie je ono. Toto makro podľa hodnoty jednej buňky (Q14) zviditeľňuje prepínače 1 a 2. Správne to má byť tak, že jedna buňka zviditeľňuje jeden prepínač 1, druhá buňka zviditeľňuje prepínač 2, tretia buňka prepínač 3, ... Buňky môžu nasledovať zasebou napr. v riadku (D5, D6, D7, ...)a im zodpovedajúce prepínače OB1, OB2, OB3, ...

Čuduj sa svete, to isté som urobil aj ja a mne to nechodilo. Teraz som natvrdo skopíroval Tvoje makro a klape to. Zrejme som u seba ešte niečo mal naviac. Včera som s tým zabil takmer celý deň. Srdečná vďaka.
Ešte k tomuto jeden dotaz. Ak mám takýchto prepínačov viac (15), nešlo by zviditeľňovanie urobiť v cykle? Inak je to veľa písania a je to dosť neprehľadné. Dík

Na tom istom liste mám ešte samostatne makro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$3" Then
Call HIDE
End If
End Sub
ktoré keď vymažem, tak to chodí. Potrebujem však mať obidve.

Ďakujem,
s jedným prepínačom to funguje. Pridal som ďalšie dva prepínače. Priradil som im makro s novými menami. V makre pre zviditeľnovanie prepínačov som zaviedol pre každý prepínač podmienku cez iné bunky. Nefunguje.
Uvádzam pre dva prepínače.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D5") > 0 Then
ActiveSheet.Shapes("OB1").Visible = True
Else
ActiveSheet.Shapes("OB1").Visible = False
End If
If Range("D7") > 0 Then
ActiveSheet.Shapes("OB2").Visible = True
Else
ActiveSheet.Shapes("OB2").Visible = False
End If
End Sub

Public Sub pojmenuj()
ActiveSheet.Shapes(Application.Caller).Name = "OB1"
End Sub
Public Sub pojmenuj2()
ActiveSheet.Shapes(Application.Caller).Name = "OB2"
End Sub
Kde robím chybu? Ďakujem

Tvoj príklad chodí, ale v mojej aplikácii mám problémy, ktoré spočívajú asi vtom, že to makro nedokážem priradiť danému option buttonu. Maturujem nad tým, ale s veľkou guľou. Poradíš ako na to?
Dík

Skúsil som
Sub Skry()
If Range("Q14") > 0 Then
ActiveSheet.Shapes("OptionButton55").Visible = True
Else
ActiveSheet.Shapes("OptionButton55").Visible = False
End If
End Sub
zahlásilo chybu- Run time Error 5
Ak som do makra vložil
ActiveSheet.Shapes(Application.Caller).Name = "OptionButton55"
zahlásilo chybu- Run time Error 13
Kde robím chybu?
Ďakujem

Zdravím.
Mám na list1 3 OptionButton s manuálne zmeneným textom na T1, T2, T3. Pomocou prepínačov vyberám (označujem) hodnotu jednej z troch buniek. T1 vyberie D5, T2 - D6, T3 - D7.
Pomocou makra by som chcel zaškrtnúť prepínač len vtedy, ak obsah zodpovedajúcej bunky je > 0. Bunky D5, D6 a D7 môžu obsahovať len kladné čísla. V opačnom prípade prepínač nepovoliť zaškrtnúť.
Je to vôbec možné? Ak áno, je makro iné pre prepínač z formuláru ako z ActiveX
Ďakujem

Jasné, Vďaka

Ono to funguje. Očakával som, že vo VBAProject v MS Excel Objects mená schovaných listov nebude vidieť. Čo mi nefunguje. Alebo sa to nedá?

Ešte jeden dodtaz. Ak by som chcel použiť xlSheetVeryHidden, potom stačí zmeniť?:
List.Visible=False
na
List.Visible=xlSheetVeryHidden
a
List.Visible=True
na
List.Visible=xlSheetVisible

a
Worksheets(Pole(i).Visible=True
na
Worksheets(Pole(i).Visible=xlSheetVisible

Ďakujem, funguje super

Áno, makro po spustení cez F5 funguje - nezistil som nezrovnalosti.
Áno, môže sa spúšťať pri zmene M3, ale J3 musí byť v makre kontrolovaná

Ďakujem za odpovede,
skúsil som Pokiho makro. Automaticky sa nerozbelo. Keď som ho spustil cez F5 tak pracovalo tak, ako potrebujem podľa toho, či pred spustením F5 bola navolená kombináci J3=M3=1, 2 alebo 3. Neviem, či by nebolo vhodné aktivovať makro cez zmenu J3&M3
Schovanie listov prebehlo rýchlo, zviditeľnenie podstatne pomalšie.
Ďakujem

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje