Sloučení oblastí ve VBA Vyřešeno

[m.niki]

Zdravím, potřeboval bych poradit, proč níže uvedený kók nefunguje, jede mi o rozšíření odblasti SSSS o buňky splňující podmínku, operátor "+" je evidentně špatný, zkoušel jsem i &, výsledek stejný, nevíte jak na to?

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

[Reklama]

[navstevnik]

Metoda Union:

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

[m.niki]

Díky návštěvníku