Zoeken en weergeven

[hc_vinnie]

beste mensen ik heb het volgende:

een excel werkmap met 2 bladen:
Blad 1 is het invoer- en weergaveblad
Blad 2 is het "databaseblad"

nu wil(heb) ik op blad 1 een cel waar een getal ingevoerd kan worden, en vervolgens opgezocht wordt in Blad2 (kolom C).
tot zover kom ik dan zelf nog wel m.b.v. VERT.ZOEKEN (zie attachment)
MAAR het getal kan dus meerdere malen voorkomen (in kolom C)
nou wil ik dus graag dat bepaalde rijen met het ingevoerde getal wordt weergeven op Blad1(zie attachment welke dat zijn(aannemer, bgst, soort etc))

is dit mogelijk m.b.v. een macro of formule?

ik heb een voorbeeld bijgevoegd.

ter info: ik heb in de attachemnt het 2e blad verkort tot 10 cellen, hij is infeite bijna 3000 cellen lang.

ik zit hier op stage (firewall) en ik kan de attachments van dit forum hier niet downloaden, dus als jullie de eventuele oplossing zouden willen mailen naar darknezz@home.nl of hier gewoon de macro of betreffende formule te plakken zou dat heel fijn zijn!

alvast bedankt, mvg,

Vinnie

 

[jpvs]

zie vorige posting met als titel "Zoeken op een waarde die meerdere keren voorkomt"
daar heeft LucB op geantwoord met een voorbeeld?
zie bijlage ?

Of zet dit achter Blad1 :
Private Sub ComboBox1_Change()
Filteren
End Sub

en dit in een Module :
Sub Filteren()
Application.ScreenUpdating = False
On Error Resume Next
Range("A8:B30").ClearContents
Sheets("Blad2").Activate
Range("C1").AutoFilter Field:=3, Criteria1:=Sheets("Blad1").Range("C4").Value
Range("D2:E300").Copy Sheets("Blad1").Range("A8")
ActiveSheet.ShowAllData
Sheets("Blad1").Activate
Range("A7").Select
Application.ScreenUpdating = False
End Sub


Pierre

 

[hc_vinnie]

ok heel erg bedankt LucB en jpvs!

hij werkt perfect, ook met eigen aanpassingen

maar; ik heb nu de complete "database" in Blad2 gegooit en daarvan wil ik nog meer kolommen laten weergeven op Blad1 alleen op een andere volgorde.

In de huidige situatie wordt alleen kolom D en E weergeven op Blad1.
Ik wou graag hetvolgende op Blad1 hebben:

| D | E | G | H | J | M | F | L | K |

die kolommen wil ik dus graag in die volgorde op Blad1 hebben staan vanaf Blad2 gekopieert via de macro.

iemand die de macro zou willen aanpassen daarvoor?
heb er zelf weinig verstand namelijk, kga d'r nu zelf ook ff mee bezig proberen.

Ok, het is me zelf gelukt met de macro:

Sub Filteren()
Application.ScreenUpdating = False
On Error Resume Next
Range("A8:B80").ClearContents
Sheets("Blad2").Activate
Range("C1").AutoFilter Field:=3, Criteria1:=Sheets("Blad1").Range("C4").Value
Range("D2:E2000").Copy Sheets("Blad1").Range("A8")
Range("G2:H2000").Copy Sheets("Blad1").Range("C8")
Range("J2:J2000").Copy Sheets("Blad1").Range("E8")
Range("M2:M2000").Copy Sheets("Blad1").Range("F8")
Range("F2:F2000").Copy Sheets("Blad1").Range("G8")
Range("L2:L2000").Copy Sheets("Blad1").Range("H8")
Range("K2:K2000").Copy Sheets("Blad1").Range("I8")
ActiveSheet.ShowAllData
Sheets("Blad1").Activate
Range("C4").Select
Application.ScreenUpdating = False
End Sub

is d'r geen kortere?
hij werkt in ieder geval perfect nu!

Bedankt jongens!

mvg,

Vinnie

 

[hc_vinnie]

ja ik ben vervelend ik weet het

we hebben hier op het netwerk dat database-blad (Blad2 dus) infeite als aparte werkmap op de schijf G:\ staan...

zou het mogelijk zijn dat je dus via blad1 op je eigen schijf, de gegevens kunt ophalen uit het database-blad op de G:\ schijf? ipv Blad2 in dezelfde werkmap dus?

groeten,

Vinnie

 

[hc_vinnie]

ok mensen het is me gelukt met 3 macro's hij klopt, is bugvrij en 100% af!

bedankt LucB en jpvs!:thumb:

ik heb nu de 3 macro's als volgt:

op "ThisWorkbook":

Private Sub Workbook_Open()
Application.Run "Update"
End Sub

Hierbij update hij de lijst automatisch zodra hij ge-opent wordt.

op "Module1":

Option Explicit

Sub Filteren()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Blad1").Activate
Range("A8:I300").ClearContents
Workbooks("Uren Laswerk.xls").Activate
Sheets("Totaal Uren 05-").Activate
Range("C1").AutoFilter Field:=3, Criteria1:=Workbooks("Lijst.xls").Sheets("Blad1").Range("D4").Value
Range("D1:E3000").Copy Workbooks("Lijst.xls").Sheets("Blad1").Range("A8")
Range("G1:H3000").Copy Workbooks("Lijst.xls").Sheets("Blad1").Range("C8")
Range("J1:J3000").Copy Workbooks("Lijst.xls").Sheets("Blad1").Range("E8")
Range("M1:M3000").Copy Workbooks("Lijst.xls").Sheets("Blad1").Range("F8")
Range("F1:F3000").Copy Workbooks("Lijst.xls").Sheets("Blad1").Range("G8")
Range("L1:L3000").Copy Workbooks("Lijst.xls").Sheets("Blad1").Range("H8")
Range("K1:K3000").Copy Workbooks("Lijst.xls").Sheets("Blad1").Range("I8")
ActiveSheet.ShowAllData
Workbooks("Lijst.xls").Activate
Sheets("Blad1").Activate
Range("A40").Select
Application.ScreenUpdating = False
ActiveWindow.ScrollRow = 1
End Sub

Hier zoekt hij de ingevoerde waarde in een andere werkmap die altijd wel openstaat...
en weergeeft hij dit op Blad1.

op "Module2":

Sub Update()
Windows("Uren Laswerk.xls").Activate
Columns("C:C").Select
Selection.Copy
Windows("Lijst.xls").Activate
Sheets("Blad2").Select
Columns("A:A").Select
ActiveSheet.Paste
Sheets("Blad1").Activate
Range("A40").Select
ActiveWindow.ScrollRow = 1
End Sub

dit is dus de update-macro

achja, boeie hij werkt perfect daar gaat het om!