Skapa Sammanhängande område via offset i Excel Vba

[Tommy H]

Hej!

Jag skulle försöka att skapa ett sammanhängande område som ligger 13 kolumner till vänster om aktiv cell och som är på 15 rader..

Detta området ska kontrolelras om det är tomma celler i.

 

Sub test()
Dim rng1, rng2 As Range
Set rng1 = ActiveCell.Offset(0, -13)
Set rng2 = ActiveCell.Offset(15, -13)
Dim myunion As Range
Set myunion = Union(rng1, rng2)
Range("O182").Select     'ngt att utgå från i detta testet
    If Not myunion.Value <> "" Then
        Worksheets("Prenad").Range("A183").Value = "Tomt"
    Else
        Worksheets("Prenad").Range("A183").Value = "ifyllt"
    End If
End Sub

 

Det blir ingen sammanhängande "union" utan bara "end-lägena"...varför?

 

/TH

[Tommy H]

Hmmm...

Nytt för mig!

Det jag vill uppnå är att kolla om det är 15st tomma celler 13steg till vänster om min aktiva cell.

Jag vill egentligen inte gå dit utan bara kolla om det är tomt.

Det ska byggas in i en "IF-sats" där jag gör en sak om det är tomma celler och annat om fallet inte är så.

Det kan se enligt följande:

Jag står i "O1" och vill då veta om cellerna "B1-B15" är tomma.

/TH

[Tommy H]

Det ser väldigt rätt ut!

Tack, tackar för hjälpen!

/TH