Ú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)

• #12874 Delila_1 veterán Cufter #12873

  Új Válasz 2012-02-10 15:34:26 #12874

  Ú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 #12873 üzenetére

  Ehhez meg kell adnod a fix cellák helyét, és azt is, melyik sorba másoljon.

  A képletet vigye át, vagy a képlet eredményét?

  "egy gomb megnyomására a másik lapra egymás melletti cellálkba másolja mindig a következő új sorba, tehát a lista lefelé bővüljön" Ezt már az előbb sem értettem.

• #12872 Delila_1 veterán Cufter #12871

  Új Válasz 2012-02-10 15:06:54 #12872

  Ú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 #12871 üzenetére

  Ez a makró a Gyűjtő nevű lap A oszlopába másolja egymás alá a jelölt cellák tartalmát.

  Sub másol()
  usor = Sheets("Gyűjtő").Cells(Rows.Count, "A").End(xlUp).Row + 1
  Selection.Copy Sheets("Gyűjtő").Cells(usor, 1)
  End Sub

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