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

• #12578 m.zmrzlina senior tag erich85T #12573

  Új Válasz 2012-01-11 12:54:30 #12578

  Ú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

  

  m.zmrzlina

  senior tag

  válasz erich85T #12573 üzenetére

  Ha a valódi táblázatod is olyan szerkezetű mint a példa (nincs az ügyfelek oszlopában üres cella) akkor lehet ez egy megoldás:

  Sub osszead()
  Dim eredmeny As Double
  Dim ugyfel As String
  eredmeny = 0
  Cells(2, 1).Select
  ugyfel = ActiveCell.Value
  
  Do Until ActiveCell.Value = ""
  
  Do While ActiveCell.Value = ugyfel
  eredmeny = eredmeny + ActiveCell.Offset(0, 1).Value
  ActiveCell.Offset(1, 0).Select
  Loop
  
  ActiveCell.Offset(-1, 2).Value = eredmeny
  eredmeny = 0
  ugyfel = ActiveCell.Value
  Loop
  
  End Sub

  Nálam A1-től indul a táblázat.

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