PC-HELP.CZ

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

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

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

PC-HELP.CZ

Sloučení oblastí ve VBA

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

Re: Sloučení oblastí ve VBA

Re: Sloučení oblastí ve VBA