Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5   další »

hmmm tak to je mi záhada. Zkouším to obejít přes cyklus, ale potřebuji právě druhý výskyt, jelikož se další dvojité řádky teoreticky mohou vyskytovat i v dalších řádcích..

a to zatím nevím jak 4

Mám Microsoft Office Proffesional Plus 2016

Ještě zkusím otestovat v práci. Zatím jsem se nesetkal s tím, že by mi v této verzi excelu něco nefungovalo.

Tohle mi ale funguje.. jen bych to potřeboval omezit na druhý řádek. Takhle mi to vrací čísla obou řádků..

Private Sub CommandButton2_Click()

Dim my_range As Range
Dim c As Variant
Dim radek As Long

Set my_range = ActiveSheet.Range("K1:K1000")

For Each c In my_range
If c.Borders(xlEdgeBottom).LineStyle = xlDouble Then
radek = c.Row
MsgBox radek
End If
Next
End Sub

tak bohužel.. když vyvolám hodnotu proměnné přes msgbox, objeví se okno s hodnotou 0 4

Jsem asi dnes nějak intelektuálně indisponován, ale nějak mi to nefunguje. Jak se z toho kódu dozvím číslo inkriminovaného řádku? Potřebuji číslo řádku uložit do proměnné a dál s ním pracovat.

díky moc

Zdravím, v listu excelu mám na dvou (různých) řádcích dvojité dolní ohraničení.

Poradil by mi někdo prosím, jakým způsobem pomocí VBA zjistit číslo řádku, na kterém se nachází druhý řádek s tímto ohraničením?

díky moc

img

děkuji za pomoc. U druhého řešení jsem jen na začátek worksheet activate doplnil

If DisableActivate = false Then Exit Sub

fungujeto skvěle 1

Zdravím,

dá se prosím nějak dočasně vypnout funkce Worksheet_Activate()?

U listu "dodaci_list", mám tuto funkci nastavenu (přičemž díky této funkci čerpám data z listu "zakaznik"). Nyní jsem přidal tlačítko, pomocí kterého odesílám (pouze) list "dodaci_list" (resp. jeho kopii) jako outlook přílohu konkrétní osobě. Nyní mi nejde vygenerovat mail, jelikož samotná kopie listu "dodaci_list" nemůže logicky sahat do jiného listu (mailem odesílám pouze jeden list, nikoliv všechny).

Dá se prosím worksheets activate vypnout v okamžiku kliknutí na odsesílací tlačítko a znovu aktivovat po odeslání mailu resp. po návratu do původního souboru se všemi listy? Nějak to nemůžu rozlousknout.

za postřehy děkuji

Nakonec jsem to vyřešil jiným způsobem:

rc = .Cells(n, 50).End(xlToLeft).Column ' omezení na sloupec číslo 50 (AX)

každopádně děkuji za pomoc 1

Ahoj,

poradí prosím někdo, jak pomocí cells vyhledat poslední obsazený sloupec v určité oblasti? (např. A2:AZ2)

rc = .Cells(n, Columns.Count).End(xlToLeft).Column

PS: ani s pomocí range mi bohužel nejde vymezit prohledávanou oblast

tento kód mi vrací hodnotu 4 i když mám oblast omezenu na A2:C2 (neprázdné buňky jsou A2, B2, C2, D2)

alfa = Range("A2:C2").End(xlToRight).Column

díky moc

Ahoj,

poradí mi prosím někdo, kde dělám chybu? Níže uvedené makro mi smaže i buňky obsahující text se znakem ^. V uvedeném rozsahu A1:A10. Já však chci obsah buněk obsahující ^ zachovat a smazat v daném rozsahu všechny ostatní buňky

díky moc

např.

ahoj^

dobrý den^

s přátelským pozdravem^

]
Private Sub CommandButton15_Click()

For Each cell In [A1:A10]

If cell.Value <> "*^*" Then cell.ClearContents

Next cell

End Sub

Ahoj,

na listu2 mám dva sloupce s cenami. V jednom sloupci ceny v EUR, v druhém v Kč. Dále dva přepínače (optionbutton1 + optionbutton2) a jedno tlačítko "kopírovat" ( do listu1).

Pokud zaškrtnu přepínač1, chci po stisku tlačítka "kopírovat" přenést cenu v EUR do listu1 s tím, že za cenou se v listu 1 objeví popis měny EUR. Pokud bude zaškrknutý přepínač2, chci po stisku tlačítka "kopírovat"analogicky přenést cenu v Kč (za cenou popisek Kč).

Kopírování na základě zaškrtnutého přepínače není problém, ale jak ovlivnit zobrazení příslušné měny netuším.

Poradí někdo? Z toho, co jsem našel na netu moc moudrý nejsem.

děkuji

elninoslov: uff tak to je pecka, klobouk dolů, máte můj respekt. Myslel jsem si, že o VBA už něco trochu vím, ale tohle je zcela něco nového. Mohl bych Vás ještě poprosit o doplnění komentářů do Vašeho kódu? Ne vše je mi jasné a rád bych to nejprve pochopil a poté implementoval do mého řešení. To mu codename rovněž nějak nerozumím, po změně jazyka jsou záložky pojmenovány stále stejně tzn. nemění se.

díky moc, vážím si Vaší pomoci

Se zbytkem faktury si poradím. Jak to myslíš s tím zapsáním přímo do kódu? Díky

příloha...

Ahoj,

mám makro na vystavování faktur. Nyní jsem dostal požadavek, udělat jazykovou mutaci. Moje myšlenka je následující. Do sešitu přidat rozbalovací menu-combobox(případně přepínače - optionbutton), kde by si uživatel vybral příslušný jazyk. Je možné pomocí VBA docílit toho, aby se při změně jazyka v comboboxu změnily popisky (caption) v názvu tlačítek + text ve formulářích? (V přiloženém souboru se formuláře zobrazí pomocí tlačítek "Přidat odběratele" a "Přidat komponentu".

díky za Vaše postřehy


Strana:  « předchozí  1 2 3 4 5   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

Kontrola návaznosti dat

Alfan • 7.12. 9:18

Vymazat buňky v následujících listech

pepča • 6.12. 20:57

Vymazat buňky v následujících listech

elninoslov • 6.12. 10:22

Vymazat buňky v následujících listech

pepča • 6.12. 9:32

Vymazat buňky v následujících listech

elninoslov • 6.12. 7:58

Vymazat buňky v následujících listech

pepča • 5.12. 23:01

Náhodné hodnoty

Cizek5 • 5.12. 14:14