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

Woord

Status
Niet open voor verdere reacties.
Strange

Blijft HEEL gek
als ik de werkblad de beveilging eraf haal dan werkt bv Jan H dan de pulldown menu wel
maar zodra ik de wachtwoord er weer opzet dan werkt het weer niet
Grrrrrrrrrrrr.
dan sluit ik de file en open hem opnieuw dan werkt het weer niet
haal ik de beveiliging eraf werkt het weer wel :evil: :evil: :evil: :evil:
 
De scenario's moeten wel aan te passen zijn.
Code: 
Private Sub Workbook_Open()
Worksheets("Adressen").Unprotect
Worksheets("Adressen").Range("B1").Locked = False
Worksheets("Adressen").Protect [B]Scenarios:=False[/B],  UserInterfaceOnly:=True
End Sub
Met vriendelijke groet,


Roncancio
 
Yippie

Roncancio,

heb je code toegevoegt en zoals ik het bekijk is de dropdownmenu naar 3 keer gewoon open gegaan en geen errors meer gezien.

Laten we hopen dat het zo blijft :thumb: :thumb: ;)

Super bedankt
 
Grrrrrrrrrr.

de lijst werkt gewoon perfect........

Maar ik dacht dan maak ik er ook een voor de papierroute
nu werkt alles wel alleen die dropdownmenu geeft een gekke error

Als ik nu een A ingeef en ik klik op de dropdownmenu blijft hij aangeven

De waarde die u hebt ingevoerd is ongeldig
Een gebruiker heeft de waarden beperkt die in de cel kunnen worden ingevoerd :confused::confused::confused:
 
xbox360 zei:
de lijst werkt gewoon perfect........

Maar ik dacht dan maak ik er ook een voor de papierroute
nu werkt alles wel alleen die dropdownmenu geeft een gekke error

Als ik nu een A ingeef en ik klik op de dropdownmenu blijft hij aangeven

De waarde die u hebt ingevoerd is ongeldig
Een gebruiker heeft de waarden beperkt die in de cel kunnen worden ingevoerd :confused::confused::confused:
Klik om te vergroten...

Dan moet je controleren of er ook een lege cel wordt meegenomen in het bereik.
Er dient namelijk minimaal 1 lege cel te worden meegenomen.

Met vriendelijke groet,


Roncancio
 
Tjonge

Pfff, Wat zou de werld zonder jou moeten!!!!!!!!!!!!.

zo klein dingen die je heel de tijd bezig kan houden en binnen 5 seconden opgelost kan worden :o:shocked::evil::thumb:
 
Ha........

Nu de dropmenu werkt en de lijst goed is, kom ik ECHT met de laatste vraagje

De selectie A3 plus de formules van B4 t/m B13 is voor de huis aan huis adressen

Nu wil ik de papier opnieuw gaan bouwen en dan wel vanaf regel A33

de dropmenu werkt dan wel op A32 maar als ik de Cel A4 / J4 ga kopieeren naar cel A33

dan staat de formule er wel in maar werk voor geen meter. :confused: :confused::confused:

heb de regel ook opnieuw ingezet maar op 1 of andere manier werkt die formule niet:evil:

mag hij om de wachtwoord vragen dat is bat
 

Bijlagen

Ik heb de formule naar regel 33 gekopieerd.
Het is een matrix formule en ik vermoed dat het daarmee te maken heeft dat het misging.
Verder heb ik de macro aangepast omdat er in elke cel gekeken werd of er een kleur vermeld stond, terwijl er uitsluitend in de J-kolom de kleuren vermeld staan.
Het werkt nu wat sneller.

Mocht je nog een "allerlaatste" :p vraag hebben dan hoor ik het wel.

Met vriendelijke groet,


Roncancio
 

Bijlagen

Super

Roncancio

zou je mijn in het kort kunnen verder hoe je het hebt gedaan

als je file wil aanpassen komen die errors weer tevoorschijn

graag zou ik in de excel bestandje wat jij bijna hebt gemaakt
toch zelf die regel willen kunnen kopieeren zodat ik daar ook weer eens van leer
want van matrix weet ik HELEMAAL niks :thumb::thumb:
 
xbox360 zei:
Roncancio

zou je mijn in het kort kunnen verder hoe je het hebt gedaan

als je file wil aanpassen komen die errors weer tevoorschijn

graag zou ik in de excel bestandje wat jij bijna hebt gemaakt
toch zelf die regel willen kunnen kopieeren zodat ik daar ook weer eens van leer
want van matrix weet ik HELEMAAL niks :thumb::thumb:
Klik om te vergroten...

Het is een kwestie van kopieren en eventueel het bereik aanpassen.
Matrix-formules moet je afsluiten met ctrl-shift-enter zodat er accolades aan het begin en eind van de formule staan.

Met vriendelijke groet,


Roncancio
 
Yippie

Heb het gedaan wat je zei alleen doet hij het niet

heb jou A32 overgekopieerd nu werkt het YIPPIE

Als ik nu toch bijna alles weet, is het dan ook mogelijk dat die hyperlink die in B1 tevoorschijn komt
ook te laten verschijnen in C31 voor de betreffende straat in die in invult in A33
 
Laatst bewerkt:
Het onderste gedeelte van WorkSheet_Change kan je vervangen door:

Code: 
    If Target.Column = 1 And Target.Value > "" Then
        With Worksheets("2008").Range("B1:B5000")
            Set sHyp = .Find(Target, LookIn:=xlValues, lookat:=xlWhole)
            If Not sHyp Is Nothing Then
                If Worksheets("2008").Range(sHyp.Address).Hyperlinks.Count > 0 Then
                    Worksheets("Adressen").Range(Target.Address).Offset(-2, 1).Hyperlinks.Delete
                    Worksheets("Adressen").Range(Target.Address).Offset(-2, 1).Hyperlinks.Add Anchor:=Worksheets("Adressen").Range(Target.Address).Offset(-2, 1), _
                    Address:=Worksheets("2008").Range(sHyp.Address).Hyperlinks(1).Address, TextToDisplay:=Worksheets("2008").Range(sHyp.Address).Value
                End If
            Else
                Worksheets("Adressen").Range(Target.Address).Offset(-2, 1).ClearContents
            End If
        End With
    End If

Met vriendelijke groet,


Roncancio
 
Hyperlink

Als ik je code toevoeg zegt hij dat een cel beveiligt is dus haal ik de beveiliging eraf
dan is die melding weg, maar als ik in A32 de straatnaam invul kan ik DIE hyperlink niet vinden? :(:thumb:

Pfff ben wel lastig he....?
 
Ik heb het bestand aangepast.
Het punt was/is dat cel B30 nog geblokkeerd was.
Bij mij werkt het programma naar behoren.

Ik neem aan bij jou ook.

Met vriendelijke groet,


Roncancio
 

Bijlagen

Pffff

Roncancio

Bijna is hij klaar, dit werkt nu ook

als ik een nieuwe tabblad aanmaak met papier en daar alle adressen van papier in doe

maak een valideren menu ( werkt ook,)

maar zodra ik B33 ipv 2008 vervangt naar papier geeft hij

Fout 13 tijdens uitvoering:
Typen komen niet met elkaar overeen

maar als ik een adres invul die voorkomt in 2008 werkt het wel

Als ik de adressen in 2008 toevoeg en een andere validate namen geef dan is ALLES weg

Kan je wel 2 dropmenu in de zelfde tabblad zetten?

Dit is echt het laatste dan moet ik toch wel een goude excel lijst hebben :thumb:;)
 
Laatst bewerkt:
Kan je wel 2 dropmenu in de zelfde tabblad zetten?
Klik om te vergroten...
Jazeker.

Kan je je nieuwste bestand sturen, dan kan ik kijken wat er aan de hand is.

Met vriendelijke groet,


Roncancio
 
Strange

Hierbij de nieuwe file...

nog weer een andere melding :evil:

de onderste moet eigenlijk voor papier worden

Maar zo ga je steeds meer leren van vba en excel......:shocked::o
 

Bijlagen

Grrrrrrrrrrrrr

xbox360 zei:
Hierbij de nieuwe file...

nog weer een andere melding :evil:

de onderste moet eigenlijk voor papier worden

Maar zo ga je steeds meer leren van vba en excel......:shocked::o
Klik om te vergroten...

Heb van alles geprobeert maar als ik een tabblad aan maak en laat de cel zoeken in 2009 of tabblad papier blijft hij toch in de tabblad 2008 zoeken..........
ook de dropmenu aangepast..........geen resultaat.:evil:
 
xbox360 zei:
Heb van alles geprobeert maar als ik een tabblad aan maak en laat de cel zoeken in 2009 of tabblad papier blijft hij toch in de tabblad 2008 zoeken..........
ook de dropmenu aangepast..........geen resultaat.:evil:
Klik om te vergroten...

In de code wordt verwezen naar 2008 omdat in het oorspronkelijke bestand slechts werkblad 2008 als bron fungeerde.
We moeten even kijken hoe VBA kan herkennen in welk werkblad moet worden gezocht.

Met vriendelijke groet,


Roncancio
 
Hmmmmmmm

Zelf als ik een kopie maak van adressen en papier noem , dan alles verandere naar 2009 en papier de formule alles naar 2009 verwijs, dan zelfs blijft die blad zelf nog zoeken in 2008... :evil::evil::evil:

Zal wel iets over het hoofd zien
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan