Zoeken in meerdere tabbladen met numerieke zoekcode

Status
Niet open voor verdere reacties.
O

Offthefield

Gebruiker
Lid geworden
27 apr 2005
Berichten
369
Goedemiddag,

Ik heb een programma waarin je kan zoeken in tabellen, als de zoekcel (Kolom A) een tekst is, werkt hij wel,
maar als hij een numeriek is niet!

Heeft iemand een idee wat ik in de combobox1 van userform1 moet wijzigen.

Alvast hartelijk dank voor de reactie

Bijgevoegd een bestand met tekst (398- ect.) en numeriek zoeken (498- ect.)
 

Bijlagen

  • 398-Zoeken in meerdere bladen Kolom A Tekst.xls
    51,5 KB · Weergaven: 12
  • 498-Zoeken in meerdere bladen Kolom A Numeriek.xls
    58,5 KB · Weergaven: 17
Ik ben geen voorstander van .add, maar hier kan je weer verder mee.

Code: 
 = cdbl(ComboBox1) Then
 
Gebruik geen rowsource.

Code: 
Private Sub UserForm_Initialize()
    ComboBox1.List = [row(1:9)*100]
End Sub
Code: 
Private Sub ComboBox1_Change()
    On Error Resume Next
    If ComboBox1.ListIndex > -1 Then
       For Each it In Sheets
        c00 = c00 & Chr(0) & it.Columns(1).Find(Val(ComboBox1)).Address(1, 1, , True)
       Next
       If c00 <> "" Then ListBox1.List = Split(Mid(c00, 2), Chr(0))
    End If
End Sub
 
HSV en snb hartelijk dank voor de snelle reactie.

Ik heb de tip van HSV toegepast, werkt perfect!

snb,

De tips ga ik straks bekijken.

Maar als ik nu alleen een aantal sheets wil bekijken bv. Jaar1 en Jaar2 hoe kan ik dit dan aangeven?

groeten,

Offthefield
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan