Avatar billede Rossiex Novice
24. juni 2014 - 12:25 Der er 2 kommentarer og
1 løsning

Set cell = Cells.Find begrænses til kolonne A

Hej

Er der nogen der ved hvordan jeg begrænser søgningen af min variabel "MedRange1" til kun at søge i kolonne A og ikke i hele arket "Fravaer".

Sheets("Fravaer").Select
     
Set cell = Cells.Find(MedRange1)      (Kun i kolonne A)
     
If cell Is Nothing Then
     
Else
Cells.Find(MedRange1).Offset.Activate  (Kun I kolonne A)
Avatar billede supertekst Ekspert
24. juni 2014 - 14:54 #1
Eksempel:
Dim id As Integer
Dim række As Integer
Sub udførSøgOgErstat()
    id = 4711
   
    række = findRække(ActiveWorkbook.Sheets("Test"), "A1:A65000", id)
    If række > 0 Then
        '..
    End If
End Sub
Private Function findRække(ark, område, id)
    With ark.Range(område)
        Set c = .Find(id, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findRække = c.Row
        Else
            findRække = 0
        End If
    End With
End Function
Avatar billede Rossiex Novice
24. juni 2014 - 23:33 #2
Super

Men jeg ville gerne have at den rykkede frem til den første linje hvor posten optræder i kolonne A.

offset.activate ?
Avatar billede supertekst Ekspert
24. juni 2014 - 23:46 #3
Aktiver kolonne A i den fundne række
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester