Příspěvky uživatele


< návrat zpět

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

Děkuji za inspiraci, tohle už je vyšší dívčí,nicméně ta poslední metoda mi funguje skvěle. 10

Lze prosím pomocí VBA zkopírovat určitou předem definovanou oblast např. A1:F28 včetně formátování (barva pozadí, font, sloučené buňky) do těla nové outlook zprávy? Zkrátka po kliknutí na ovládací tlačítko by se vygeneroval nový mail s danou oblastí.

Výsledek by měl odpovídat tomu, jako když danou oblast zkopíruji přes CTRL+C a manuálně vložím do těla nové vygenerované zprávy (CTRL+V).

Vygenerovat mail s aktuálním listem jako přílohou umím, ale nejsem si jistý, zda VBA umožňuje to, co popisuji výše.

děkuji

Teda Vy jste rychlík :-) Děkuji moc. Já měl myšlenku, že bych číslo řádku z prvního výskytu uložil do proměnné a pak pomocí této proměnné omezil prohledávanou oblast. To by asi také šlo, nicméně tohle je podstatně jednodušší.

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


Strana:  « předchozí  1 2 3 4 5 6   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

špatný výpočet ze zisku - příčina?

Jakoby • 12.7. 12:35

Řazení podle času v kategoriích

Marekh • 12.7. 9:55

Porovnávací Tabulka

Jess • 8.7. 20:49

Vzorec pro zkopírování obsahu buňky.

veny • 6.7. 8:28

Vzorec pro zkopírování obsahu buňky.

Tonda_Hu • 5.7. 21:17

Porovnávací Tabulka

Jess • 5.7. 13:49

Kontexove menu na tlačenie tabuliek

ivana12 • 3.7. 14:35