Selection.change - activate klassen range mislykkedes

Hvis Sheets("Ark2") ikke er det ark ,som du har koden i, får du denne fejl, man kan IKKE vælge andre ark i et Arks kodemodul.

Du kan kun vælge andre ark i et module

hmmm... det er så et problem for det skal være sån at når man markerer en celle i ark1 skal den finde første cellen med samme værdi i ark2

prøv denne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveCell.Select
    Dim myvalue As Variant
    myvalue = ActiveCell.Value
    Debug.Print myvalue
     
    Sheets("Ark2").Select
 
    a = Sheets("Ark2").Cells.Find(What:=myvalue, After:=Sheets("Ark2").Range("A1"), LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Address
     
  Sheets("Ark2").Range(a).End(xlToRight).Interior.ColorIndex = 6
 
 
  End Sub

det er vist sådan

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveCell.Select
    Dim myvalue As Variant
    myvalue = ActiveCell.Value
    Debug.Print myvalue
     
    Sheets("Ark2").Select
 
    a = Sheets("Ark2").Cells.Find(What:=myvalue, After:=Sheets("Ark2").Range("A1"), LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Address
     
  Sheets("Ark2").Range(Sheets("Ark2").Range(a), Sheets("Ark2").Range(a).End(xlToRight)).Interior.ColorIndex = 6
 
 
  End Sub

Så fik jeg lige smidt på en select den pågældende celle. Fantastisk takker for hjælpen kabb. smid lige et svar :)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveCell.Select
    Dim myvalue As Variant
    myvalue = ActiveCell.Value
    Debug.Print myvalue
     
    Sheets("Ark2").Select
 
    a = Sheets("Ark2").Cells.Find(What:=myvalue, After:=Sheets("Ark2").Range("A1"), LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Address
     
 
  Sheets("Ark2").Range(Sheets("Ark2").Range(a), Sheets("Ark2").Range(a).End(xlToRight)).Interior.ColorIndex = 6
  Sheets("Ark2").Range(Sheets("Ark2").Range(a), Sheets("Ark2").Range(a)).Select
 
  End Sub

et svar ;-))

:)