Søgeresultat synligt

Test denne
Application.Goto Range("a100"), scroll:=True

Hej bak
For det første fungerer det fint med xl97,Xl2000 og xl02 sammen men mon ikke man skal installere i den rækkefølge?
Den kode du har vist får vel ikke eks.  a50 til at vises øverst i vinduet?

1. Jo jeg tror også man skal følge den rækkefølge :-)
2. Jo, det gør den. (det sikrer scroll:=true)

Hmm. Jeg kan ikke rigtigt få den placeret rigtigt i følgende kode:

With twb.Sheets("Optagne dyr")
    .Activate
    .Range("A" & x).Select
End With

twb.Sheets("Optagne dyr").Select
Application.Goto Range("A" & x), scroll:=True

-->kabbak. Den var lige i øjet. Gider i svare - så deler i point. Tak for hjælpen.

her på en linie

Application.Goto Reference:=Worksheets("Optagne dyr").Range("A" & x), scroll:=True

Den sidste endte ikke korrekt - den scrollede for langt op!

den går da til toppen, var det ikke det den skulle. ?

Jo den selectede celle - men den sidste scroller for langt

Private Sub CommandButton1_Click()
Dim Søg As String, twb As Workbook, x As Long
Set twb = ThisWorkbook
         
            For i = 0 To UserForm1.ListBox1.ListCount - 1
              If ListBox1.Selected(i) Then
                If UserForm1.ListBox1.Selected(i) Then
                  x = (ListBox1.List(i, 7) + 2)
                End If
              End If
            Next i
            Unload Me
Application.Goto Reference:=Worksheets("Optagne dyr"). Range("J" & x).Offset(0, -9), scroll:=True

End Sub

var det ikke dette 'Offset(0, -9)' vi manglede

nå selvfølgelig ikke, det giver jo Kolonne A

Sådan endte den:
Private Sub CommandButton1_Click()
Dim Søg As String, twb As Workbook, x As Long
Set twb = ThisWorkbook
        If UserForm1.Caption = "Søgeresultat - Optagne dyr" Then
                    For I = 0 To UserForm1.ListBox1.ListCount - 1
                    If ListBox1.Selected(I) Then
                        If UserForm1.ListBox1.Selected(I) Then
                                    x = (ListBox1.List(I, 7) + 2)
                                    Unload Me
                                    twb.Sheets("Optagne dyr").Select
                                    Application.Goto Range("A" & x), Scroll:=True
                                    Selection.EntireRow.Interior.ColorIndex = 19
                        End If
                    End If
                    Next I
                    Exit Sub
           
        Else
                    For I = 0 To UserForm1.ListBox1.ListCount - 1
                    If ListBox1.Selected(I) Then
                        If UserForm1.ListBox1.Selected(I) Then
                                    x = (ListBox1.List(I, 7) + 2)
                                    Unload Me
                                    twb.Sheets("Efterlyste dyr").Select
                                    Application.Goto Range("A" & x), Scroll:=True
                                    Selection.EntireRow.Interior.ColorIndex = 19 ' yellow - change as needed
                        End If
                    End If
                    Next I
        End If
End Sub

Det gav vel kun kolonne A i det ene tilfælde?

--> kabbak  Jeg er lidt langsom - du gjorde lidt grin med min programmering. Ja jeg må jo indrømme at det er set bedre - det du refererede til var LIDT dumt - men pyt af skade bliver man klog  ;0)

Vi mangler lige at få bak til at give et svar

(--> kabbak  Jeg er lidt langsom - du gjorde lidt grin med min programmering)

nej det gjorde jeg ikke, det var mig selv, der ikke havde tjekket ordentlig.

Nå ok - men jeg kan nu godt tåle at være lidt til grin :0)

her er et svar.
Steen -> din programmering er nu ikke helt til grin. Der er da sket store fremskridt :-)

Tak for det - ja et år hjælper da på det