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

• #10229 Delila_1 veterán Bluesummers #10228

  Új Válasz 2011-05-03 06:44:50 #10229

  Ú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 Bluesummers #10228 üzenetére

  Sub Csusztat()
  Dim sor%
  sor% = 2
  Do While Cells(sor, 1) <> ""
  If Cells(sor%, 3) + Cells(sor% + 1, 3) = Cells(sor%, 1) And Cells(sor% + 1, 3) > "" Then
  Cells(sor%, 3).Delete Shift:=xlUp
  Cells(sor%, 3) = Cells(sor%, 1)
  End If
  sor% = sor% + 1
  Loop
  End Sub

  A Cells(sor% + 1, 3) > "" feltétel azért kell, mert a példád szerinti C10 cellát törölve az utolsó érték (17. sor) mindkét oszlopban 22, és ebben az esetben az A17=C17+C18, tehát ezt a C22 cellát is törölné.

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