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

• #37255 Delila_1 veterán föccer #37252

  Új Válasz 2018-02-05 18:28:49 #37255

  Ú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 föccer #37252 üzenetére

  Makró.

  Sub Jeloltek()
Dim CV As Range, ter As Range
Dim U As Integer, L As Integer

Set ter = Range("B1:B" & Range("B1").End(xlDown).Row).SpecialCells(xlCellTypeVisible)

For Each CV In ter
Select Case CV
Case "U", "u": U = U + 1
Case "L", "l", "i", "I": L = L + 1
End Select
Next

Range("L1") = "U: " & U & " db"
Range("L2") = "L: " & L & " db"
End Sub

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