Dobrý den,
poprosil bych nějakého programátora ve vb o pomoc. Zatím jsem si vystačil se záznamem makra, ale tuším, že by to šlo udělat určitě šikovněji a rychleji a krátce.
Věc je taková, že potřebuji získat množinu výsledků, řádově stovky a to v závislosti na různých hodnotách, které mám uložené ve sloupci. Makro je takové, že kopíruji první řádek do výpočtového listu(Edelmetal) a odtud vezmu výsledek, toto se opakuje 20, potřeboval bych to tisíckrát, nejlépe přes nějaký cyklus, pokud to jde Poradí mi někdo prosím? Děkuji.
Kód:
Sub Makro6()
'
' Makro6 Makro
'

'
Range("A3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Edelmetall").Select
Range("C8").Select
ActiveSheet.Paste
Range("E21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("List2").Select
Range("B3").Select
ActiveSheet.Paste
Range("B8").Select
Columns("B:B").EntireColumn.AutoFit
Range("A4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Edelmetall").Select
Range("C8").Select
ActiveSheet.Paste
Range("E21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("List2").Select
Range("B4").Select
ActiveSheet.Paste
Range("B8").Select
Columns("B:B").EntireColumn.AutoFit