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

• #28196 Delila_1 veterán the radish #28189

  Új Válasz 2015-08-24 08:47:49 #28196

  Ú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 the radish #28189 üzenetére

  Sub masolas()
  Dim tol, ig
  Dim WSI As Worksheet, WSM As Worksheet
  Dim sorszam 'az A oszlop értékei
  Dim sorM As Long 'ahova másolsz
  
  Set WSI = Workbooks("Innen masol.xlsm").Sheets("Innen_lap")
  Set WSM = Workbooks("Masolat.xlsx").Sheets("Masolat_lap")
  
  WSM.Cells = "" 'másolat lapjának kiürítése
  
  WSI.Activate
  Rows(1).Copy WSM.Range("A1") 'fejléc másolása
  sorszam = 1: tol = 2
  
  Do While Cells(tol, 1) <> ""
  sorM = Application.CountA(WSM.Columns(1)) + 1 'ebbe a sorba kell másolni
  tol = Application.Match(sorszam, Columns(1), 0)
  If VarType(tol) = vbError Then 'ha nem talált tol értéket
  MsgBox "Kesz"
  Exit Sub
  Else
  ig = Application.Match(sorszam, Columns(1), 1)
  Rows(tol & ":" & ig).Copy WSM.Range("A" & sorM)
  Makro 'Itt indul a saját makród
  sorszam = sorszam + 1 'növeljük a keresendő értéket
  End If
  Loop
  End Sub
  
  Sub Makro() 'ez a saját makród
  MsgBox "Makró"
  End Sub

• #28192 Fferi50 Topikgazda the radish #28189

  Új Válasz 2015-08-23 22:09:53 #28192

  Ú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

  

  Fferi50

  Topikgazda

  válasz the radish #28189 üzenetére

  Szia!

  Legyen egy fejléc az első sor.
  Utána autoszűrő az A oszlopra, értéke 1, ami látszik - SpecialCells(xlCellTypeVisible - azt átmásolod - a fejlécet "kiütöd belőle" az új helyen. (Ezt akár makrórögzítő mellett is megteheted).
  Ezután szűrő 2 és másolás, kiütés.
  Ezt folytatod addig, amíg a szűrés után egyetlen sor marad látható - a fejléc.

  Vagy: A megkapott adatokat rendezed az A oszlop szerint és utána az egészet átmásolod (szerintem ez az igazán nyerő).

  Üdv.

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