Opbouwen database

[Cezarius]

Goedemiddag Allen,

Ik zit met de volgende opgave: Ik wil graag dat informatie die op verschillende tabbladen word ingevoerd word verzameld op een "Database" tabblad.
de volgorde van invoeren is dus willekeurig en daar zit hem nou net de moeilijkheid (voor iemand met mijn kennis van excel dan

kan 1 van jullie mij hier misschien mee helpen?

als bijlage heb ik even een opzetje gemaakt.

Bekijk bijlage Uitleg.xlsx

Alvast bedankt voor jullie hulp!!

 

[yizzll]

bedoel je gewoon de lookup formule?
zie voorbeeld.
in de B colom van de database tab zoekt hij naar de waarde van de A colom. hij zoekt in sheet 1 naar die waarde.
=LOOKUP(A2,Blad1!A:A)
Uitleg formule.
A2 is de lookup value.
Blad1!A:A is de plek waar gezocht moet worden.
Bekijk bijlage Uitleg.xlsx

 

[Cezarius]

Dag Yizzll,

Dank voor je bericht maar dit is mij bekend, in mijn bestandje had ik het gewenste resultaat al gemaakt.
Als ik een regel in een een tabblad (1, 2, 3) invul dan moet hij deze in het blad database opsommen.

Hij heeft dus bijv. 3 keer een rij 2 van elk tabblad maar deze moet hij dus onder elkaar zetten in blad database.

Wel bedankt voor het reageren.

 

[AlexCEL]

Denk dat de meest elegante oplossing middels VBA verkregen wordt. Nu ben ik daar geen specialist in, dus heb ik het via een macrotje geprobeerd die je kan activeren met een knop...

Zie hier: Bekijk bijlage Uitleg 2.xlsm

Misschien kan een VBA specialist dit nog ombatterijen... maar dit werkt ook volgens mij.

 

[Cezarius]

Jep dit moet ik hebben.

Kan je ook uitleggen wat je doet zodat ik het ook begrijp

Alvast bedankt natuurlijk!

 

[Cezarius]

En om daar even op in te haken! kan je hem ook zo maken dat hij de hele regel pakt?

kom namelijk meerdere eigenschappen achter te staan (adres, projectnummer, enz....)

 

[VenA]

Als de gegevens in A1 beginnen en in een aaneengesloten bereik staan kan het bv zo. Anders graag een representatief voorbeeldje.

Sub VenA()
With Sheets("Database")
    For Each sh In Sheets
        If sh.Name <> "Database" Then sh.Cells(1).CurrentRegion.Offset(1).Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Next sh
    .Cells(1).CurrentRegion.Sort .Cells(1), , , , , , , 1
End With
End Sub

 

[gast0660]

Hoi,
Hier heb je er nog eentje
in mijn vbtje heb je een lege rij in blad 1, zie het resultaat
Maar zoals Alexcel aan aangaf

Denk dat de meest elegante oplossing middels VBA verkregen wordt.

En VenaA

Anders graag een representatief voorbeeldje.

In ieder geval , eventueel een oplossing
Groet

 

[Cezarius]

Kijk aan, sorry voor de late reactie!... was gelijk even aan het proberen geslagen

Ik heb mijn formulier nu bijna voor elkaar maar loop nog tegen 1 ding aan:

Ik wil in mijn DATABASe alle cellen met een 0 waarde wissen.

Ik heb zelf de volgende 2 dingen geprobeerd:
- Voorwaarden in de formule gebakken: Dit zorg voor een enorm bestand (18MB)
- Opties 0 verbergen: dit werk visueel wel maar voor het kopiëren naar word (t.b.v. Sticker) houd hij de waarde wel vast.

Hopelijk weten jullie hier ook iets voor.

 

[gast0660]

Hoi,
Ik neem aan dat je rijen wil verwijderen

Ik wil in mijn DATABASe alle cellen met een 0 waarde wissen.

Met volgende mischien?

Sub dotchie()
Dim lRow As Long
Dim iCntr As Long

lRow = Sheets("Uw blad naam").Range("A60000").End(xlUp).Row
[COLOR="#008000"]' Hier 60000,Range aanpassen naar uw behoeften
' Uw blad naam = hier de naam van uw werkblad invullen
[/COLOR]
For iCntr = lRow To 1 Step -1
    If Cells(iCntr, 1) = "0" Then ' [COLOR="#008000"]Hier 1 is Kolom Number (A),0, rijen waar 0 in voorkomt worden verwijderd.[/COLOR]
        Rows(iCntr).Delete
    End If
Next
End Sub

 

[Cezarius]

dank voor je reactie,

Nee de rij moet gewoon blijven staan gaat echt om losse waarden.

misschien wil ik iets wat niet kan......maar excel kennende moet dat lukken

 

[VenA]

Plaats een voorbeeldbestand waarin je het probleem duidelijk maakt. De vragen/wensen wijzigen iedere keer en dan is het voor de helpers een beetje hopeloze zaak om telkens de code aan te passen.