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

• #9722 Delila_1 veterán Delila_1 #9721

  Új Válasz 2011-03-20 19:14:46 #9722

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

  Eléggé elkapkodtam, sokkal rövidebben is meg lehet írni. Ennél is lehetne, de ahhoz számolnom kellene, amihez most nem fűlik a fogam.

  Sub copyz()
  Dim usor As Long, tol As Long, ig As Long, hova As String
  Sheets("Munka3").Select
  usor = Range("E60000").End(xlUp).Row
  
  Select Case usor
  Case 13
  tol = 8: ig = 38: hova = "A8"
  Case 44
  tol = 40: ig = 74: hova = "A43"
  Case 79
  tol = 74: ig = 108: hova = "A78"
  Case 114
  tol = 109: ig = 143: hova = "A113"
  End Select
  Range("A" & tol & ":A" & ig).EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range(hova).Select
  Selection.PasteSpecial Paste:=xlPasteValues
  Selection.PasteSpecial Paste:=xlPasteFormats
  Cells(1).Select
  End Sub

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