Gegevens uit meerdere sheets

Status
Niet open voor verdere reacties.

oldredduck

Nieuwe gebruiker
Lid geworden
23 nov 2007
Berichten
3
Hallo VBA experts,
Ik zou graag een oplossing willen vinden voor het volgende, maar door gebrek aan kennis lukt mij dat niet.
Ik heb een xls.bestand met daarin ca 50à 60 sheets, waarvan de sheetnaam een plaatsnaam is. In deze sheets staat in A1 postcode, B1 plaats enz. tot en met kolom H, in alle sheets dezelfde indeling. Wel komen er bij de ene plaats meer postcodes voor dan bij de andere.
Ook kan het zo zijn dat bij 2 verschillende sheets dezelfde postcode zijn ingevuld.
Is er een mogelijkheid om als bijv postcode 6040 wordt in gegeven, alle sheets worden doorlopen en voor elke keer dat de gegeven postcode voorkomt deze apart wordt weergegeven met daarbij de gegevens zoals aantal maandag, aantal vrijdag, en deze dan na het door zoeken van het gehele bestand worden opgeteld.?

Helaas is mijn VBA kennis van te geringe capaciteit, en zou ik graan een voorbeeld of opzetje willen krijgen, als het mogelijk is, om te laten gebeuren wat ik vraag.
Bijvoorbaat dank voor het mee denken,:thumb:

mvrgr

Alex
 
Hiermee kan je een lus doorheen de tabbladen maken. Bvb.

Code:
Sub q()

    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Sheets
        
        MsgBox ws.Index & ". " & ws.Name
        
    Next

End Sub

Voor het zoeken van iets moet je de zoekfunctie programmeren. Dus het analoge van Ctrl-F, maar dan geprogrammeerd. In de helpfiles bij FindNext staat al uitgewerkte code.

Succes ermee.

Wigi
 
Hallo WiGi,

Bedankt voor uw reactie, ga er mee aan de slag, en zal kijken hoever we er mee gaan komen

mvgr
Alex
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan