• 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.

Waarden overnemen

Status
Niet open voor verdere reacties.
W

wacco

Gebruiker
Lid geworden
9 mrt 2006
Berichten
229
Hallo,

Ik ben (nog steeds) bezig met een rooster applicatie, maar loop nu tegen een probleem aan waar ik geen oplossing voor weet te verzinnen.
Het probleem bestaat uit het overnemen van een aantal waarden uit een tabblad op een ander tabblad met een aan
tal voorwaarden.
Wat ik graag zou willen :
In het tabblad Rooster, is een rooster ingevuld.
De verschillende diensten worden met de hand ingevuld
De basis gegevens van dit rooster staan in het tabblad Setup, hier kan ook het jaartal voor het rooster worden aangepast
In dit (tabblad)rooster staan in de week-einden ook consignatiediensten (C) ingevuld.
In het tabblad Consignatie,(hierin staan alleen de week-einden) zou ik nu graag een overzicht willen hebben van de consignatie diensten, waarbij op de juiste datum en bij de juiste naam een C wordt ingevuld
overeenkomstig met het rooster.
Verschillende tabbladen zijn beveiligd, maar hebben geen wachtwoord.
Het mooiste zou zijn, middels een functie.
Maar als het beter/mooier of niet anders kan, mag dit ook gebeuren met VBA.
Hopelijk kan iemand mij helpen.

gr,
 

Bijlagen

  • VoorbeeldRooster-1.xlsx
    213,3 KB · Weergaven: 34
met index formule
 

Bijlagen

  • Kopie van VoorbeeldRooster-1.xlsx
    218,9 KB · Weergaven: 47
@JeanPaul,

Heel erg bedankt voor je snelle reactie.
Ben even aan het testen geweest, en alles werkt perfect.
Was ook bezig geweest met index en vergelijken,.....maar kwam daar niet aan uit.
Is toch iets voor de specialisten.
Nogmaals hartelijk dank, kan weer vooruit.

Gr,
 
hou er rekening mee dat de formule hoofdletter gevoelig is,nu staat er een kleine "c", hoofdletter C zal de formule blank geven
 
Vermijd dubbele gegevens in een werkboek:

Code: 
Sub M_snb()
   Application.ScreenUpdating = False
   
   Blad2.Columns.Hidden = False
   For Each it In Blad2.Range("F13:NG13")
     If InStr("zazo", it.Text) = 0 Then it.EntireColumn.Hidden = True
   Next
End Sub
 
@JeanPaul,

iets te vroeg gejuigd.
Het gaat fout op het moment dat ik in setup het jaar verander.
Lijkt of dat gegevens dan ook 1 cel opschuiven.

En als het mogelijk is, dan ook werkend met c of C

Gr,
 
Laatst bewerkt:
@JeanPaul,

Sorry, veel te vroeg geklaagd , alles werkt zoals het moet werken.
Maar ik had in het tabblad rooster, achter de namen een kolom toegevoegd.
En dan werkt het inderdaad niet meer.
Maar wat betreft die "Grote C"......is dat mogelijk, dat het zowel met een grote - als met een kleine c werkt ?

gr,
 
Probeer het eens met en zonder een hoofdletter. Volgens mij is MATCH() niet hoofdletter gevoelig. Er staan ook nog andere suggesties die je kan proberen.
 
@VenA

Ik had het nog niet uit geprobeerd, maar aangenomen dat het zo was.
En inderdaad, je hebt gelijk......is niet hoofdletter gevoelig.
Alles werkt prima,....zolang ik maar geen kolommen ga toevoegen :):)

iedereen bedankt, voor de snelle en prima oplossing.

Gr,
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan