Excel-Proměnné v adrese buňky Vyřešeno

[Martin39]

Dobrý den,
Rád bych požádal o radu s makrem k tlačítku.
Pokud mám na Listu1 v buňce A1 hodnotu třeba 3, v buňce B1 třeba 4, a v buňce C1 řetězec „text“. Potřeboval bych, aby se mi, po zmačknutí tlačítka objevil řetězec „text“ na Listu2 v buňce C4 (proměnné v buňkách List1!A1 a List1!B1.)

Je to možné ? Makra se teprve učím a tohle mi opravdu nejde.
Předem moc děkuji.

Doplněno: Hodnoty v buňkách List1!A1=3 a List1!B1=4 udávají adresu cílové buňky,v tomto případě C4, kde by se měla objevi hodnota "text" a to na Listu2.

[Reklama]

[Poki]

Zdravim, mozne je temer vse, jen jsem uplne nepochopil tu poznamku v zavorce.
Retezec z List1!C1 dostanete do List2!C4 takto:
Worksheets("List2").Range("c4") = Worksheets("List1").Range("c1")
Zkuste to lepe vysvetlit a ja to take zkusim lepe vysvetlit :)

[navstevnik]

Tazatel tim, ze pozaduje vysledek umistit do List2!C4 naznacil, ze v bunce List1!A1 je odkaz na sloupec C (treti sloupec) a v bunce List1!B1 odkaz na radek 4.
Takze procedura pro tlacitko na listu1 (tlacitko z Ovladacich prvku, nikoli z Formulare) je (vloz v editoru VBA - Alt+F11 - do modulu listu1):

Kód: Vybrat vše

Option Explicit

Private Sub cmdVloz_Click()

  With Me  ' odkazuje na list, ve kterem je procedura
' parametry pro bunku list2!C4 : Cells(4,3) - (radek, sloupec) jsou ziskany z bunek na listu 1
' do takto adresovane bunky je vlozen obsah z List1!C1
    Worksheets("list2").Cells(.Range("b1").Value, .Range("a1").Value).Value = .Range("c1").Value
  End With
End Sub


vice ke startu do VBA najdes treba zde: http://www.officir.ic.cz/excelentne.html a pak napoveda a web

[Martin39]

Děkuji, funguje to přesně jak jsem si představoval.