Avatar billede martinsorensen Nybegynder
30. oktober 2008 - 16:17 Der er 1 kommentar

Finde en celle med value = og baggrundsfarven 34 (.Find metoden)

Hej eksperter. Jeg vil gerne finde en celle som har value = "" i column "I:I" og som har Interior.ColorIndex = 34. Koden nedenfor finder bare den første celle som har Value = "". Hvordan kan jeg få den til også at lede efter baggrundsfarven?

MVH

Martin


                FindString = ""
                If FindString = "" Then
                    With Sheets("GBS Signing").Range("I:I")
                        Set Rng = .Find(What:=FindString, _
                                        After:=.Cells(.Cells.Count), _
                                        LookIn:=xlValues, _
                                        LookAt:=xlWhole, _
                                        SearchOrder:=xlByRows, _
                                        SearchDirection:=xlNext, _
                                        MatchCase:=False)
                        If Not Rng Is Nothing Then
                            Application.Goto Rng, True
                        Else
                            MsgBox "Nothing found"
                        End If
                    End With
                End If
            End If
Avatar billede kabbak Professor
30. oktober 2008 - 22:08 #1
det ved jeg ikke, men her er en makro, som kan

Public Sub test()
    Dim Fdata As Variant, VData As Variant, I As Long
    Fdata = Range("I:I")
    VData = Range("I:I").Value
    For I = 1 To UBound(VData)
        If IsEmpty(VData(I, 1)) Then
            Fdata(I, 1) = Range("I" & I).Interior.ColorIndex
            If Fdata(I, 1) = 34 Then
                Range("I" & I).Select
                Exit Sub
            End If
        End If
    Next

End Sub
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