Macro knap med If værdi, mærk bestemt række

Du kan godt lave, så der er en knap der kører en macro. Hvis du vil have knappen til at være der hele tiden, er det letteste at vise værktøjslinien "Kontrolelementer", bruge den til at lave en knap, og derefter tilknytte en macro til knappen.

Og så til macroen: Skal den m$arkere en del af begge rækker, hvis der står en bestemt værdi i cellerne I137 og I145, eller skal den markere en del af række 137, hvis der står noget i celle I 137, og en del række 145 hvis der står noget i I145?

Public Sub SelectUnionRange()
  If Not IsEmpty(Range("I137")) And Not IsEmpty(Range("I204")) Then
    Union(Range("E137:M137"), Range("E145:M145")).Select
  End If
End Sub

Hvordan får jeg den til at køre ved at trykke på en knap!?

Høyreklikk på knappen
velt tilordne makro
nå kan du velge SelectUnionRange fra en liste

(ps! skal ta en titt på din vogn i løpet av dagen :-)

www.Splokit.com/Vogn.xls

Hvis du højreklikker på din knap "Slet ture", når den ikke er i regiger tilstand, skal du vælge muligheden "Tilføj macro" og vælge macroen "SelectUnionRange"

Først må du koperiere koden fra :02/11-2005 10:36:17
Den kan du lime inn i modul 7 eller 8 som du allerede har,
eller du kan sette inn en ny modul til å lime inn koden i.

NB! Hvis makroknappen IKKE ligger i samme sheet som de cellene som skal merkes,
må vi endre litt på koden.

når du nå høyreklikker din makroknapp får du opp en liste,
der kan du nå velge: SelectUnionRange()

Hvis du må ha en ny knapp, kan du høyreklikke en av de knappen du har
velg kopier, så kan du velge lim inn

Hvis du prøver nu... så virker den næsten. dem mærker bare ikke de rækker som har værdi i kolonne I :S

jeg har misforstått
Er det slik at alle rader som har tomme celler i kollone i,
skal merkes fra kolonne E til M?

Public Sub SelectUnionRange()
  Dim i As Long
  Dim it
  Dim c As Range
  Dim rngUnion As Range
  Dim rngCol As New Collection
 
 
  For Each c In Range("I137:I250")
    If Not IsEmpty(c.Value) Then
    rngCol.Add Item:=c.Offset(, -4).Resize(1, 9)
    End If
  Next
 
  Set rngUnion = rngCol.Item(1)
  For Each it In rngCol
    Set rngUnion = Union(it, rngUnion)
  Next
  rngUnion.Select
End Sub

en liten rettelse ( hørt den før ;-)
jeg vet ikke hvilken rad som er den siste, men det kan du rette opp
i denne linje: For Each c In Range("I137:I250")
her er siste rad 250, endre dette tall, slik at det viser siste rad



Public Sub SelectUnionRange()
  Dim i As Long
  Dim it
  Dim c As Range
  Dim rngUnion As Range
  Dim rngCol As New Collection
 
  For Each c In Range("I137:I250")
    If Not IsEmpty(c.Value) Then
    rngCol.Add Item:=c.Offset(, -4).Resize(1, 9)
    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

www.Splokit.com/Vogn.xls
Sådan så er den også perfekt....
Du er excel gud... :D Mange tak
Har så bare lavet lidt om på den... så det er flere skulle lige prøve og det virker.... Takker mange gange for den tid du har lagt i det...

Det er jeg som skal takke,
dette er den beste måten for en amatør som meg å lære på :-)

En litt forbedret versjon, som blandt annet tester til siste rad med data i kolonne I

Public Sub SelectUnionRange()
 
  Dim c As Range, rngUnion As Range
  Dim rngCol As New Collection
 
  For Each c In Range("I137:I" & Cells(Rows.Count, 9).End(xlUp).Row)
    If Not IsEmpty(c.Value) Then
      rngCol.Add Item:=c.Offset(, -4).Resize(1, 9)
    End If
  Next
 
  Set rngUnion = rngCol.Item(1)
  For Each c In rngCol
    Set rngUnion = Union(rngUnion, c)
  Next
 
  rngUnion.Select
  Set rngUnion = Nothing
End Sub