Just nu i M3-nätverket
Jump to content

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


Tommy H

Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...