Higtlight række linie i Excel

Altså når du markerer en celle - skal hele rækken f.eks. have en svag grå baggrund?

Just præcis, når jeg laver indtastning, så jeg ment kan se jeg står på den rigtige linie.

Jeg har et materiale nummer stående først og flere celler ude på sammme linie skal jeg indtaste.

Så for at få en slags linial, kunne jeg godt tænke en svag grå baggrund


mvh. Michael

Hvilken Excel-version anvender du?

ecxel 2002 på den ene maskine og 2007 på den anden

Ok - er ved at strikke noget sammen.

PS: Anvend KOMMENTAR når du svarer - SVAR er kun til forslag fra andre ("svaret på din udfordring").

VBA-koden anbringes under relevate Ark (højreklik / Vis program-kode)

Const linealFarve = 24
Dim aRæk As Long, xRæk As Long, flag As Boolean
Private Sub Worksheet_Activate()
    xRæk = 0
    flag = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If flag = False Then
    aRæk = Target.Row
       
    If xRæk = 0 Then
        xRæk = aRæk
        sætLineal xRæk
    End If
   
    If xRæk <> aRæk Then
        fjernLineal xRæk
       
        sætLineal aRæk
        xRæk = aRæk
    End If
End If
flag = False
End Sub
Private Sub sætLineal(ræk)
    flag = True
    Rows(ræk).Select
    Selection.Interior.ColorIndex = linealFarve
End Sub
Private Sub fjernLineal(ræk)
    flag = True
    Rows(ræk).Select
    Selection.Interior.ColorIndex = xlColorIndexNone
End Sub

Tak for dit svar, det er lige det skal bruge,men der er et lille aber.

Er det muligt at få den til at skifte kolonne uden at den hopper hen i A-rækken på nedenstående kolonne,jeg skal taste i F eller G rækker, så det ville være rart at den bliver i kolonne, men skifter række.

Altså G6 - G 7 osv.

Hilsen Michael

Skal prøve..

Rem VERSION 2
Rem =========
Const linealFarve = 24
Dim aRæk As Long, xRæk As Long, flag As Boolean
Private Sub Worksheet_Activate()
    xRæk = 0
    flag = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If flag = False Then
    aRæk = Target.Row
       
    If xRæk = 0 Then
        xRæk = aRæk
        sætLineal xRæk
    End If
   
    If xRæk <> aRæk Then
        fjernLineal xRæk
       
        sætLineal aRæk
        xRæk = aRæk
    End If
End If
flag = False
End Sub
Private Sub sætLineal(ræk)
    flag = True
    Rows(ræk).Select
    Selection.Interior.ColorIndex = linealFarve
   
    flag = True
    Range("G" & ræk).Select
End Sub
Private Sub fjernLineal(ræk)
    flag = True
    Rows(ræk).Select
    Selection.Interior.ColorIndex = xlColorIndexNone
End Sub

prøv:

Dim adr As String
Dim farve

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If adr <> "" Then Rows(adr).Interior.ColorIndex = xlNone
farve = Target.Interior.ColorIndex
Rows(Target.Row).Interior.ColorIndex = 35
adr = Target.Row
End Sub

Hej Det virker, kan du ikke smide et svar op så jeg kan give dig point

mvh.Michael