Problém s visual basicem
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
Nejsem žádný programátor, tak snad nevadí, že do toho kafrám.
Proč si myslíš, že do této doby nikdo neodpověděl?
Dotaz sem si přečet několikrát a stále nejsem schopen zjistit co vlastně chceš. Po napsání makra si neuvedl žádné podstatné informace.
Jakých hodnotách? Textových? Číselných?
Ve kterém sloupci? Na kterém listě?
Ten "první řádek" se vezme kde? Výsledek na nalézá kde (řádek, sloupec)?
Ten kód co si sem vložil je nicneříkající informace.
Pokud chceš, aby Ti tu někdo pomohl popř. napsal makro vlož vzorový sešit s pořádným popisem co se má kam kopírovat a za jakých podmínek.
Omlouvám se, asi jsem to vážně trošku ledabyle popsal. Potřebuji vytvořit makro, které mi vlastně generuje množiny výsledků pod sebe tím, že mění jednu proměnnou a zjišťuje výsledky, ty by se měly zapisovat do sloupce pod sebe.
Ani tak se to moc pochopit nedá...
Na tuto úlohu bude evidentně zapotřebí opravdový programátor s vyšším inteligenčním kvocientem.
Ani teď se si to tedy nevylepšil.
Z původního dotazu a přiloženého kódu sem pochopil, že se snažíš kopírovat hodnoty z jednoho listu na druhý (Edelmetal - po kterém není v přiloženém souboru ani památky).
Z této odpovědi zase vyplývá, že chceš generovat nějaké hodnoty podle "jedné proměnné".
V přiloženém souboru uvádíš, že je nějaká vstupní hodnota generována složitým výpočtem, který sem nenašel.
Bohužel neporadím. Hold budeš muset vyčkat jestli se tu neobjeví někdo inteligentnější, který bude vědět co vlastně požaduješ.