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

• #27959 Mittu88 senior tag

  Új Válasz 2015-07-29 10:28:50 #27959

  Ú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

  

  Mittu88

  senior tag

  Sziasztok!

  Egyszerűen nem találok google-ben választ az alábbi problémámra.
  Egy adott munkafüzet adott munkalapján lévő adatokat szeretném egy másik munkafüzet adott munkalapjára beilleszteni úgy, hogy az ottani adatokhoz hozzáfűzze.
  Ehhez a területet változókkal kell kijelölnöm ugyebár. A következőig jutottam:

  Workbooks(1).Worksheets(1).Activate
  i = 0
  Do
  i = i + 1
  Loop Until Cells(i, 1).Value = ""
  If i <> 1 Then
  i = i - 1
  Range("A1", Cells(i, 12)).Copy ' Itt lehet a gond, elvileg a Range-en belüli Cells parancs nem tetszik neki. Próbáltam a Range(Cells(1, 1), Cells( i, 12))-t is.
  Workbooks(2).Open Filename:= xxxxxxxx
  Workbooks(2).Worksheets(2).Activate
  i = 0
  Do
  i = i + 1
  Loop Until Cells(i, 1).Value = ""
  Cells(i, 1).Select
  ActiveSheet.Paste
  Workbooks(2).save
  Workbooks(2).close
  End If

  Mi lehet a gond?

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