• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

ook de cel kleuren bij gevonden naam in combobox

Status
Niet open voor verdere reacties.

drubbus

Gebruiker
Lid geworden
20 feb 2013
Berichten
121
Ik heb een stukje code die de datum dmv een combobox vind in een sheet

Ik zou dit ook met text/namen willen doen en dat wil maar niet lukken

De code die werkt met de datum:

[Private Sub CommandButton3_Click()
Dim Datums As Range, Datum As Range, TempDatum As Date
Set Datums = ActiveSheet.Range("C1:C400")
'dim c as range
Dim c As Range



TempDatum = CDate(DTPicker1)
For Each Datum In Datums
If Datum = TempDatum Then Exit For
Next Datum
If Datum Is Nothing Then
MsgBox (DTPicker1.Value & " is niet gevonden, ")
Else




'Datum.Select
Datum.Select
Columns(3).Interior.ColorIndex = 0
Datum.Interior.ColorIndex = 36
Datum.Font.ColorIndex = 5



End If
End Sub]

Alvast bedankt
Drubbus
 
Drubbes,
Ten aller eerste. Wanneer je een vba code plaatst, graag deze tussen de
Code:
vba[ /code] tags plaatsen.
Ten tweede hebben we weinig aan dit soort codes, want in dit geval weet men niet wat DTPicker1 is. Dit kan een DatePicker zijn vanuit Access of een handmatig gemaakte kalender of iets dergelijks.
Ten slotte is dit ook de reden waarom helpers om voorbeelden vragen in Excel zonder gevoelige info.

Dus bij deze, graag een voorbeeldbestand toevoegen.
 
ik heb na wat stoeien met de code het volgende gevonden
hij verteld mij nu ook in welke cel de naam staat


mijn vraag is dus door mij zelf opgelost
evengoed iedereen/Spaarie bedankt
Mijn oplossing:

Code:
 Private Sub CommandButton1_Click()
Dim dataRange As Range, strfound As Range
 Dim x As String
 Set dataRange = ActiveSheet.Range("D1:F100 ") 'Je kunt deze Range beperken tot 1 kolom
 x = ComboBox1
 With dataRange
 Set strfound = .Find(What:=x, LookIn:=xlFormulas, LookAt:=xlWhole, _
 SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
 If Not strfound Is Nothing Then
 
 strfound.Select
  Columns(4).Interior.ColorIndex = 0
    strfound.Interior.ColorIndex = 36
    strfound.Font.ColorIndex = vbBlack
 
 
 MsgBox (x & " gevonden in cel " & strfound.Address)
 Else
 MsgBox (x & " niet gevonden")
 End If
 End With
End Sub 
[ /code]

speciaal voor spaarie ;-)
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan