Příspěvky uživatele

Díky pánové. Fungují všechna uvedená řešení :-)

Dobrý večer,

jak prosím docílit toho, aby hodnota listindexu byla k dispozici hned po otevření sešitu?

Např pokud vyberu z rozbalovacího menu francouzštinu a soubor uložím, tak po znovuotevření souboru chci po kliknutí na commandbutton zobrazení hlášky (msgboxu) "francouzština".

Uvedené mi funguje pouze v případě, že po otevření souboru prvně vyberu příslušný jazyk z rozbalovacího menu a poté kliknu na commandbutton.

Zkoušel jsem použít worksheet.activate ale bez úspěchu.

Díky za pomoc

Private Sub ComboBox1_GotFocus()
ComboBox1.List = Worksheets("List1").Range("A10" & ":" & "A13").Value
End Sub

Private Sub CommandButton1_Click()
poradi_jazyka = ComboBox1.ListIndex
If poradi_jazyka = 0 Then
MsgBox "čeština"
ElseIf poradi_jazyka = 1 Then
MsgBox "angličtina"
ElseIf poradi_jazyka = 2 Then
MsgBox "němčina"
ElseIf poradi_jazyka = 3 Then
MsgBox "francouzština"
End If
End Sub

Děkuji moc za inspiraci, problém vyřešen.

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

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje