Kód: Vybrat vše
Set KKKK = ActiveSheet.Range("n15:n300")
Set SSSS = Range("n14")
For Each RRRR In KKKK.Cells
If RRRR.Value = "něco" Then
Set SSSS = SSSS + RRRR
End If
Next RRRR
Kód: Vybrat vše
Set KKKK = ActiveSheet.Range("n15:n300")
Set SSSS = Range("n14")
For Each RRRR In KKKK.Cells
If RRRR.Value = "něco" Then
Set SSSS = SSSS + RRRR
End If
Next RRRR
Kód: Vybrat vše
Option Explicit
Sub Test()
Dim KKKK As Range, SSSS As Range, RRRR As Range
Set KKKK = ActiveSheet.Range("n15:n300")
Set SSSS = Range("n14")
For Each RRRR In KKKK.Cells
If RRRR.Value = 10 Then
Set SSSS = Union(SSSS, RRRR)
End If
Next RRRR
Debug.Print SSSS.Address
End Sub
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů