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

• #30525 alfa20 senior tag m.zmrzlina #30524

  Új Válasz 2016-02-11 13:08:38 #30525

  Ú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

  válasz m.zmrzlina #30524 üzenetére

  Bocsi lehet rosszul fogalmaztam:

  szóval:

  Dim alap, ker, alap_mf As String, usor As Long
  alap = ActiveWorkbook.Name
  alap_mf = ActiveSheets.Name
  ker = Munka1.TextBox1.Value
  
  Workbooks.OpenText Filename:=ker
  keres = ActiveWorkbook.Name
  usor = Application.CountA(Columns(1))
  
  Range(Cells(2, 1), Cells(usor, 2)).Copy
  Windows(rendez).Worksheets(alap_mf).Range("A2").Paste

  Az utolsó sor hibára fut, az nem tetszik neki.
  A 'keres' Excel fájlból kellene az 'alap' Excel fájlba másolni adatokat és ki akarom hagyni a sok 'Windows(változó).Activate'-t.

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