MsgBox - více výsledků Vyřešeno

[LovelyTank2]

Zdravím všechny nadšence VBA,

předem chci upozornit, že jsem nováčkem ve VBA a ne vše je mi jasné.. :)
Nyní k problému. Ve spreadsheetu mám několik sloupců. Pomocí funkce for...next se pokusím vyhledat potřebné hodnoty (stále fungujem :) a pak potřebuji tyto hodnoty vypsat do msgboxu. A tady je kámen úrazu. Msgbox vypíše vždy jen poslední hodnotu - což je logické ale já nevím jak udělat aby každé nalezené hodnotě přiřadil nějakou specifickou proměnou, které se pak objeví společně v msgboxu.

Tady je kód co momentálně mám:

Kód: Vybrat vše

Sub Loop2()

Dim total As String, i As Integer
total = 0

For i = 1 To 5


    If Cells(i, 3).Value > 40 Then total = Cells(i, 1)
Next i

MsgBox total & " mame na sklade :}"
End Sub

Děkuji předem!
V příloze najdete ukázku. Nyní mi to v msgboxu ukazuje jen "banan" ale ja tam potrebuji mit "hruska,meloun,jabko,banan"

[Reklama]

[d1amond]

Vítej na PC-HELP

Podobně pracují error handlery, které ukazují všechny chyby v běhu programu. Do proměné typu String (např. vysledek) uložíž vždy nějaký výsledek v cyklu a ten připojíš k již existujícímu řetězci

Kód: Vybrat vše

Sub pokus()
Dim total As String
Dim i As Integer
Dim vysledek As String

'na zacatku
total = ""

For i = 1 To 5
  vysledek = i
  'chr zajisti ze co vysledek to dalsi radek, takze v MsgBox budou cisla od 1 do 5 razene pod sebe
  total = total & Chr(10) & Chr(13) & vysledek
Next

'nakonec vypises vysledek
MsgBox total

End Sub


//vypotil jsem to narychlo, snad to funguje

[LovelyTank2]

Díky moc. To je přesně co jsem potřeboval.
Jen posledni věc (není až tak důležitá). Je tu možnost jak vykopírovat výsledný text z msgboxu? Ctrl+C funguje ale jsem perfekcionista :)

[d1amond]

http://www.cpearson.com/excel/Clipboard.aspx
Nikdy jsem s tím nepracoval, tak nevím podorobnosti.

[LovelyTank2]

Diky za všechno!!! Myslím, že další dotazy na sebe nenechají dlouho čekat :)