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

Dropdowns juist zetten in gigantisch Excel document

Status
Niet open voor verdere reacties.

skennis2

Nieuwe gebruiker
Lid geworden
12 jan 2022
Berichten
1
Dag allen,

Ik heb een Excel-document met 198 kolommen (landen) en in totaal 7600+ rijen.
Ik heb een 42 rijen waar masterdata in staat en dat gebruikt wordt om studiespecifieke gegevens op aan te vullen.
Dus elke "studie" bevat 42 rijen en 198 kolommen (de landen).

In die masterdata, maar dus ook in de 7600+ rijen met studies staat 17 verschillende dropdowns.
Jammer genoeg zijn die dropdowns niet meer in orde en moet het allemaal rechtgezet worden.
Maar als ik met filters werk dan wordt alles geselecteerd, ook de niet-zichtbare cellen.

De bedoeling is dat in heel het werkblad de dropdowns terug in orde staan.
Ik heb al wat geprobeerd, maar ik kom er enkel uit dat ik de studies (ca. 250) manueel moet selecteren en dan de dropdown kan activeren.
Maar dan moet ik dat ook naar de kolommen kopieren en soms staan er al gegevens waardoor CTRL+pijl rechts al snel 15 seconden duurt.
Als je dat maal 250 (verschillende studies), maal 17 (aantal dropdowns) doet x 2 (rijen en kolommen), dan ben je eindeloos bezig.

Hopelijk is mijn probleemstelling duidelijk en kan iemand mij helpen.

Met vriendelijke groet,
Sam
 
Wat bedoel je met recht zetten, kan je misschien een voorbeeld documentje uploaden en daarin aangeven wat er recht te zetten valt?
Deze code zet iedere drop-down uit de formulieren "hoek" precies in de cel waar die nu boven ligt:
Code:
Sub PositionDropdowns()
    Dim dd As DropDown
    For Each dd In ActiveSheet.DropDowns
        With dd
            .Left = .TopLeftCell.Left
            .Top = .TopLeftCell.Top
            .Width = .TopLeftCell.Width
            .Height = .TopLeftCell.Height
        End With
    Next
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan