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

• #26982 Árnymester tag Cifu #26981

  Új Válasz 2015-05-19 12:57:34 #26982

  Ú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

  

  Árnymester

  tag

  válasz Cifu #26981 üzenetére

  Lehet nem a legelegánsabb megoldás...

  Sub Szetszed()
  Dim MyWs As Worksheet
  Set MyWs = ActiveSheet
  'Az első másolandó sor száma
  r = 1
  Do Until Not IsEmpty(MyWs.Cells(r, 1)) 'Ide olyan oszlopot adj meg, ami minden sorban tartalmaz adatot!
  ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
  'Ide jönnek az oszlopok, a c1-c5-ök helyére a forrás(MyWs) értékes oszlopait kell beírni.
  'Címsor másolása
  ActiveSheet.Cells(1, 1).Value = MyWs.Cells(1, c1)
  ActiveSheet.Cells(1, 2).Value = MyWs.Cells(1, c2)
  ActiveSheet.Cells(1, 3).Value = MyWs.Cells(1, c3)
  ActiveSheet.Cells(1, 4).Value = MyWs.Cells(1, c4)
  ActiveSheet.Cells(1, 5).Value = MyWs.Cells(1, c5)
  'Adatok másolása
  ActiveSheet.Cells(1, 1).Value = MyWs.Cells(r, c1)
  ActiveSheet.Cells(1, 2).Value = MyWs.Cells(r, c2)
  ActiveSheet.Cells(1, 3).Value = MyWs.Cells(r, c3)
  ActiveSheet.Cells(1, 4).Value = MyWs.Cells(r, c4)
  ActiveSheet.Cells(1, 5).Value = MyWs.Cells(r, c5)
  r = r + 1
  Loop
  End Sub

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