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

• #19831 Delila_1 veterán Beri #19830

  Új Válasz 2013-12-08 08:17:44 #19831

  Ú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 Beri #19830 üzenetére

  Makróról nem volt szó.

  Sub mm()
  Dim ter As Range, CV As Object, honap1 As Integer, honap2 As Integer
  Dim usor As Long, szam As Double, osszed As Double, osszeg As Double
  usor = Range("A" & Rows.Count).End(xlUp).Row
  Set ter = Range("A2:A" & usor)
  
  honap1 = Range("D1"): honap2 = Range("E1"): szam = Range("D2")
  For Each CV In ter
  If (Month(CV) = honap1 Or Month(CV) = honap2) And Range(CV.Address).Offset(, 1) = szam Then _
  osszeg = osszeg + 1
  Next
  
  Range("G1") = osszeg
  
  End Sub

  Hónap1 és hónap2 a D1 és E1 cellában, dátumok az A oszlopban, számok a B-ben, keresendő szám a D2-ben.

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