Makro, které zadává parametry výpočtu a vrací výsledky Vyřešeno

[min]

Neví někdo, jak mi pomoci? Potřebuji, aby mi Makro zadalo vzdy číslo1 a číslo2 ze stejného řádku z listu "zadání" do listu "výpočet" a výsledek výpočtu aby byl zkopírován zpět do listu "zadání" k daným číslům. Potřebuji, aby makro takto postupně zadalo čísla ze všech řádků listu "zadání" do listu "výpočet" a doplnilo výsledky do listu "zadání" ke správným číslům. Pro jistotu přikládám příklad. Vím, že na toto nepotřebuji makro, ale toto je jen zjednodušení mého zadání. Děkuji

[Reklama]

[navstevnik]

Zanalyzuj si prilozenou proceduru a uprav dle potreby (predpokladam, ze se jedna o skolni zadani):

Kód: Vybrat vše

Option Explicit

Sub VlozitHodnotyAZapsatVysledek()
  Dim BlokHodnot As Range, Bunka As Range
  Dim Vzorec As Range
  Set BlokHodnot = Worksheets("zadání").Range("a2:a23")  ' prvni sloupec zadani
  Set Vzorec = Worksheets("výpočet").Range("a2")  ' prvni bunka vypoctu
  ' smycka vklada hodnoty do bunek vypoctu a uklada vysledek
  For Each Bunka In BlokHodnot.Cells
  ' vlozit hodnoty do vypoctu
    Vzorec.Value = Bunka.Value
    Vzorec.Offset(0, 1).Value = Bunka.Offset(0, 1).Value
    ' ulozit vysledek k zadani hodnot
    Bunka.Offset(0, 2).Value = Vzorec.Offset(0, 2).Value
  Next Bunka
  ' odstranit objektove promenne
  Set BlokHodnot = Nothing
  Set Bunka = Nothing
  Set Vzorec = Nothing
End Sub

[min]

Díky funguje, velice mi to pomohlo. Jsem samouk a makra moc nevyužívám/neumím, pouze když je mohu nahrávat.
Když už nějaké objevím, tak se ho snažím pochopit - zaměňuji proměnné a sleduji jak pracuje.
K mému příkladu mám ještě jeden dotaz - kdyby se výpočet prováděl v listu "výpočet" na jiném řádku než se zadávají proměnné a kdybych chtěl výsledky zobrazit opět v listu "zadání", ale třeba o 20 řádků níže? Lze toto definovat změnou parametrů Vzorec.Offset a Bunka.Offset (???).Value? Nebo to už je vyšší dívčí?
Děkuji

[min]

Tak už i na to jsem přišel.
ještě jednou díky za pomoc