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

• #26672 Delila_1 veterán huliganboy #26670

  Új Válasz 2015-04-24 11:22:03 #26672

  Ú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 huliganboy #26670 üzenetére

  Ha arra gondolsz, hogy a Munka2 lap üres sorait törölnéd, akkor

  Sub UresTorles()
  Dim usor As Long, sor As Long
  
  Sheets("Munka2").Select
  usor = Range("B" & Rows.Count).End(xlUp).Row
  For sor = usor To 3 Step -1
  If Application.WorksheetFunction.CountA(Range("B" & sor & ":" & "H" & sor)) = 0 Then
  Rows(sor).EntireRow.Delete
  End If
  Next
  End Sub

  A transzponálós makrókban a for-next ciklus for sorában a Step 2 adja meg, hogy a Munka2 lap minden második sorában lévő adatok másolódjanak át egy másik lapra. Vagy ezt a step 2-t töröld, és indíts a sortörléssel, vagy a sortörlést a transzponálások után végezd el.

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