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

• #28679 Delila_1 veterán Snoop-y #28671

  Új Válasz 2015-09-17 14:55:26 #28679

  Ú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 Snoop-y #28671 üzenetére

  A D1 cellába beírja az összeget, szűrt állományban is.

  Sub valami()
  Dim ter As Range, CV As Range, osszeg
  
  Set ter = Columns(1).SpecialCells(xlCellTypeVisible)
  For Each CV In ter
  If CV.Row > 1 And Cells(CV.Row, "B") > "" Then osszeg = osszeg + CV
  Next
  Range("D1") = osszeg
  End Sub

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