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

• #8124 Delila_1 veterán Kobe #8123

  Új Válasz 2010-09-11 19:19:17 #8124

  Ú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 Kobe #8123 üzenetére

  "nem a pivot része, csak a pivotnak megfelelő sorba mellév an írva egy megjegyzés"

  Akkor más a helyzet. A kimutatásokat másold egy lapra egymás alá, értékként beillesztve, mert a pivotokból nem engedi az Excel a sortörlést. Mivel nem írtad, melyik oszlopokban vannak a billentyűzetről – vagy érvényesítésből – bevitt megjegyzések, önhatalmúlag a H és I oszlopokba tettem (8. és 9. oszlop). Ezeket írd át a makróban a megfelelőkre.

  Sub DelRow()
  Dim sor As Integer, usor As Integer
  
  usor = Range("A50000").End(xlUp).Row
  
  For sor = usor To 2 Step -1
  If Cells(sor, 8) = "" And Cells(sor, 9) = "" Then Rows(sor).EntireRow.Delete
  Next
  End Sub

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