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

• #12877 Delila_1 veterán Cufter #12875

  Új Válasz 2012-02-10 16:03:28 #12877

  Ú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

  

  Delila_1

  veterán

  válasz Cufter #12875 üzenetére

  Sub masol()
  Range("A1:C18").Copy
  
  Sheets("Cégek").Activate
  usor = ActiveSheet.UsedRange.Rows.Count
  uoszlop = ActiveSheet.UsedRange.Columns.Count
  
  Cells(usor + 1, uoszlop + 1).Activate
  Selection.PasteSpecial Paste:=xlValues
  End Sub

• #12876 Delila_1 veterán Cufter #12875

  Új Válasz 2012-02-10 15:50:17 #12876

  Ú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

  

  Delila_1

  veterán

  válasz Cufter #12875 üzenetére

  usor = Sheets("Cégek").UsedRange.Rows.Count
  uoszlop = Sheets("Cégek").UsedRange.Columns.Count

  Ezekhez adsz 1-et. a másolás helye:
  sheets("Cégek").cells(usor+1,uoszlop+1)

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