Új hozzászólás Aktív témák

• #17854 Kobe veterán

  Új Válasz 2013-04-19 21:37:45 #17854

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Kobe

  veterán

  na sziasztok

  végre hosszas szenvedés után sikerült egy olyan keretet írni accessben az excel makrónak, ami képes egy modulet rendesen beszúrni, abba a kódot illeszteniés futtatni, valamint a végén a memóriát is kitakarítja utána.

  Az egyetlen problémám az, hogy ezt a kódot ugye Module- ra illeszti be, viszont nekem a makrót mindig egy adott worksheeten kell futtatni - no problem, megfelelő hivatkozással a Sheet-re megoldható a moduleról is, de mivel a végleges makró maga elég hosszú lesz, nem szeretnék minden hivatkozást pl Activeworkbook.Worksheet("Sheet1").Range....bla bla bla formátumra átírni - nem túl elegáns, meg sajnos nem is működne, mert:

  a munkalap neve mindig INT a fileban amin a makrót futtatni szeretném, viszont a visualbasices neve változhat: mivel a file manuálisan van összerakva, így a user lehet az adatokat a Sheet1-re, máskor a Sheet2-re rakja, viszont a Sheetet magát mindig INT-re nevezi át. Ezt a problémát orvosolandó, gondoltam már a Sub legelején definiálni kéne valahogy, hogy a további része csak az INT munkalapra fusson le

  Pl egy if függvénnyel, if munkalap neve = INT, lefut a makró, else nem fut le

  valaki tudna segíteni, hogy lehet ezt a feltételt pontosan megírni VBA ban ?

  az alábbi kód elejére kellene beilleszteni

  Private Sub MyMacro()
  
  Dim lngLastRow
  lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Columns("X:X").Select
  Selection.Insert Shift:=xlToRight
  Range("X1").Select
  ActiveCell.FormulaR1C1 = "common_id"
  Range("X2").Select
  .
  .
  .
  .
  
  End Sub

Új hozzászólás Aktív témák