Příspěvky uživatele

díky za ochotu

1.ano
2.statický
3.Hodnoty buněk (supplier, Lieferant atd.) jsou načítány z jiného listu pomocí rozbalovacího menu.

Nějak si to řešení pomocí InStr nedokážu představit

Dobré ráno,

dá se prosím hledání ve VBA nějak rozšířit o podmínku OR?

děkuji za inspiraci

Private Sub CommandButton14_Click()
With Sheets("wsNabidka").Range("A:A")
Set rng = .Find(What:="*supplier*" Or "*Lieferant*" Or "*dodavatel* or "*Fournisseur*", _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then

gama = rng.Row

Else

Exit Sub
End If
MsgBox gama
End With
End Sub

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

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

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

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje