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

• #17611 alfa20 senior tag

  Új Válasz 2013-04-05 12:15:43 #17611

  Ú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

  

  alfa20

  senior tag

  Sziasztok

  kis segítséget szeretnék kérni két dologban,

  1.) Egy formázatlan alaptáblával kell nyitnom, amit a "Szövegbeolvasó varázsló"-val kell meg nyitnom, makróban ez így néz ki mikor fel vettem a folyamatot:
  Workbooks.OpenText Filename:= _
  "C:\Users\....\Documents\RND\0405", _
  Origin:=1250, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
  xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
  Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
  Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
  Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
  , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1)), ThousandsSeparator:="." _
  , TrailingMinusNumbers:=True

  Ez szépen működik is míg nem teszem át az eredeti makróba ahol azonban nem hajlandó dolgozni folyton hibát jelez, előbb a ":=" nem tetszik neki, ha át írom "Origin = 1250," akkor a "," nem tetszik neki, ha azt törlőm akkor megy a "StartRow:" a hiba.

  E közé kellene behelyeznem, hogy megnyitást követően formázza meg a táblát:
  Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
  
  Range("a1:n1")

  2.) azt szeretném ha a "G" oszlopban lévő adatok a "=H/F" érték lenne, majd értékkel rögzítené a képletet és a "H=F*G"-vel képlet követné, és ez lemenne teljes oszlopban, ami mindig változik most pl:1614 sor jelenleg így néz ki ez a rész a makróban:

  Range("G2").Select
  Range("G2").Select
  ActiveCell.FormulaR1C1 = "=RC[1]/RC[-1]"
  Range("G2").Select
  Selection.AutoFill Destination:=Range("G2:G1614")
  Range("G:G1614").Select
  Selection.Style = "Currency [0]"
  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Range("H2").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
  Range("H2").Select
  Selection.AutoFill Destination:=Range("H2:H1614")
  Range("H2:H1614").Select

  próbáltam az "& usor"-t, de ott mindig elakadtam hiba miatt...

  "Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

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