VB kode hjælp
Hey jeg har denne kode som mærker ud fra en kolonne hvis det er værdi... hvis det ikke er værdi laver den fejl!!er der en som kan gøre at hvis cellerne er tomme skal den ikke gøre noget!?
Public Sub Select()
Dim i As Long
Dim it
Dim c As Range
Dim rngUnion As Range
Dim rngCol As New Collection
For Each c In Range("O1:O20")
If Not IsEmpty(c.Value) Then
rngCol.Add Item:=c.Offset(, -13).Resize(1, 18)
End If
Next
Set rngUnion = rngCol.Item(1)
For Each it In rngCol
Set rngUnion = Union(rngUnion, it)
Next
rngUnion.Select
Set rngUnion = Nothing
End Sub
