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

• #13189 Delila_1 veterán Vizes Tomi #13188

  Új Válasz 2012-03-12 12:52:07 #13189

  Ú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 Vizes Tomi #13188 üzenetére

  Szűrd a C oszlopot úgy, hogy a színezett sorok rejtettek legyenek. A makró az F oszlopba beírja a két formázott sor közötti, E oszlopban található számokat.

  Ha nem jó az F oszlop, a két, csillaggal jelölt sorban a 6-ot írd át egy üres oszlopod sorszámára.

  Sub osszegek()
  Dim sor As Long, ossz
  ossz = 0
  For sor = 2 To ActiveSheet.UsedRange.Rows.Count
  If Rows(sor).Hidden = True Then
  Cells(sor, 6) = 0 '******
  Cells(sor - 1, 6) = ossz '******
  ossz = 0
  Else
  ossz = ossz + Cells(sor, 5)
  End If
  Next
  End Sub

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