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

• #20162 Delila_1 veterán Törpella #20159

  Új Válasz 2014-01-19 17:11:01 #20162

  Ú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 Törpella #20159 üzenetére

  Feltételezem, hogy mindkét lapon van címsorod.

  Sub masolas()
  Dim sor As Long, usorA As Long, usorM As Long, WF As WorksheetFunction
  
  Sheets("Adatok").Select
  Set WF = Application.WorksheetFunction
  usorA = Range("F" & Rows.Count).End(xlUp).Row
  
  For sor = 2 To usorA
  If WF.CountA(Range("F" & sor & ":H" & sor)) = 3 And Range("K" & sor) <> "" And _
  WF.CountA(Range("P" & sor & ":Q" & sor)) = 2 Then
  usorM = WF.CountA(Sheets("Mentett").Columns(1)) + 1
  Range("F" & sor & ":H" & sor).Copy
  Sheets("Mentett").Range("A" & usorM).PasteSpecial Paste:=xlPasteValues
  Range("K" & sor).Copy
  Sheets("Mentett").Range("D" & usorM).PasteSpecial Paste:=xlPasteValues
  Range("P" & sor & ":Q" & sor).Copy
  Sheets("Mentett").Range("E" & usorM).PasteSpecial Paste:=xlPasteValues
  End If
  Next
  End Sub

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