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
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
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
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
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
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...
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.