Foutieve validatielijst?

[henri77]

ABSOLUUT slaat die leek op mij. En denk ik dat jij dat ook wel door hebt. haha!
Je hebt me immers al zo vaak geholpen. Ik heb me maar eens via internet een 50-tal
bladen geprint over werken met VBA. Ik hoop dat ik daar iets mee kan.

Ondertussen heb ik de volgende vraag alweer geplaatst. Dit is één van de laatste moeilijke gevallen waar voor ik hulp nodig ben. Als deze vraag opgelost kan worden
bespaar ik ontzettend veel tijd in m'n werkzaamheden, en hoop ik dat ik dan eerder naar huis mag. haha!

Groeten,
henri!

 

[HSV]

Mijn excuses,

Er is toch een foutje in het tellen van de kolommen gekomen (tijdstip denk ik).
Verander in de code de I in een J, of de 10 in een 9.

Sub tst()
  Dim cl As Range
    Dim y As String
      y = 2
        Sheets("Blad1").[[COLOR="red"]J[/COLOR]1:[COLOR="red"]J[/COLOR]100].Clear
  For Each cl In Sheets("Blad1").Range("A2:H14").SpecialCells(2, 2)
                   cl.Copy Sheets("Blad1").Cells(y, 10)
            Cells(y, 10).Interior.ColorIndex = 15
         y = y + 1
     Next
   Range("J2:J" & Cells(Rows.Count, 10).End(xlUp).Row).Sort [J2], xlAscending
End Sub

Sorry voor het ongemak.

 

[henri77]

Hallo Harry,

Dank voor je reactie.
Ik ben allang blij dat je erop terug bent gekomen!

Mag ik overigens een advies van jou?
Ik heb vandaag nog een vraag gesteld over tabellen zichtbaar en onzichtbaar maken.
Zou je daar naar willen kijken en mij willen vertellen of het een haalbare zaak is wat ik wil? Deze vraag heb ik nl. een tijd terug ook gesteld en nooit een reactie op gehad.
Dus of, ik leg het niet goed uit, of het kan niet. Ik ben benieuwd!!

Gr. Henri!

 

[HSV]

Hallo Henri,

Ik zal eens gaan zoeken waar je vraag staat.

Ik kan niet beloven of ik een oplossing kan bieden.

 

[henri77]

Hallo Harry,

Daar is hij weer.
Mag ik een gunst aan je vragen?
vlgs mij zit er een onvolkomenheid in de validatielijst van tabblad blad1.
Als ik mijn tabel wil uitbreiden (naar onderen) zie ik ze niet terug in m'n (jou) validatielijst. Kan dat kloppen? Of doe ik iets niet goed?

Zie bijlage.

groeten,
Henri

 

[Warme bakkertje]

Als je de aanpassing uit Post#22 ingevoerd hebt en je gaat niet voorbij Rij 14 (anders simpel het bereik in de macro aanpassen) dan zou er toch geen probleem mogen zijn (heb het in jouw laatste bestand getest)

 

[danny147]

Beste henri77

Normaal zou het goed moeten zijn als je de lijst aanvuld op tabblad "hulpblad_ventilatie" in kolom R
In cel R2 staat er nu 2, voeg je er eentje bij dan moet het 3 zijn.

Groetjes Danny. :thumb:

 

[henri77]

Bedankt allemaal.

Hoe simpel kan het zijn. Stom hé.

Ik denk nog niet in "macrotaal"

Nogmaals dank!

 

[HSV]

Henri,

Mocht de lijst nog groter worden (A2:H14 zijn 13 rijen, maal 6 kolommen = 78)
Eén rij is gelijk zes rijen voor de validatielijst.

Denk dan ook aan de formule voor je validatielijst (ruimte), staat nu op $J$2:$J$128.
De 128 verhogen dus naar een groter bereik.

 

[henri77]

Dank dank dank