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

• #9721 Delila_1 veterán Imu #9718

  Új Válasz 2011-03-20 19:04:40 #9721

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

  A csatolt képen a 3-as lapon ott van a cím, és egy 4 soros összegzés, aminek a másolás után lentebb kell kerülnie. A meglévő cím miatt első esetben sem kell a 2. lapról A1-gyel kezdeni a másolást, elég a 8. sortól.

  Most megírtam úgy a makrót, hogy az első gombnyomásra beviszi a 2. lap adatait lentebb tolva az összegzést, másodikra ez alá beteszi a következőt, és még 2 esetben a következő kettőt. Vagyis ezzel összesen 4 árajánlatot másolhatsz be egymás alá.

  Sub copyz()
  Dim usor As Long
  Sheets("Munka3").Select
  usor = Range("E60000").End(xlUp).Row
  
  Select Case usor
  Case 13
  Range("A8:A38").EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range("A8").Select
  Case 44
  Range("A40:G74").EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range("A43").Select
  Case 79
  Range("A74:G108").EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range("A78").Select
  Case 114
  Range("A109:G143").EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range("A113").Select
  End Select
  Sheets("Munka2").Range("A8:G38").Copy
  Selection.PasteSpecial Paste:=xlPasteValues
  Selection.PasteSpecial Paste:=xlPasteFormats
  Cells(1).Select
  End Sub

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