MyRange bepalen

[Jack Nouws]

Hallo

In Kolom "D" staan namen en het begint bij "D4" en het eindigt bij ongeveer "D100".
Om niet te veel lege in m'n Combobox te hebben heb ik gekozen voor deze formule, maar dan krijg ik maar een paar (3-4) namen te zien. Wie kan mij vertellen wat hieraan fout is?

                Set MyRange = Workbooks("Green Trees").Worksheets("Leveranciers").Range("D4:D" & Range("D65536").End(xlUp).Row)

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

Leveranciers").Range("D4[COLOR="Red"]:D[/COLOR]" & Range("D65536

Ik denk dat de rode D er uit moet?

 

[Wigi]

Een Range zonder specificatie van een tabblad wordt dan door VBA op het actieve werkblad genomen, wat niet noodzakelijk hetzelfde is.

Als je F8 gebruikt zou hebben, zou je de waarde van de .Row kunnen zien.

 

[Wigi]

Leveranciers").Range("D4[COLOR="Red"]:D[/COLOR]" & Range("D65536

Ik denk dat de rode D er uit moet?

?

Dan krijg je bv. D410 als je tot rij 10 gaat?

 

[Hoornvan]

Wigi,

.RowSource = "Voorraad" & "!B35:" & Sheets("Voorraad").Range("B65536").End(xlUp).Address

Ik keek naar een andere code van hem uit een andere vraag, dus als ik het mis heb sorry.
Hier in werd een ComboBox gevuld.

 

[Jack Nouws]

Een Range zonder specificatie van een tabblad wordt dan door VBA op het actieve werkblad genomen, wat niet noodzakelijk hetzelfde is.

Als je F8 gebruikt zou hebben, zou je de waarde van de .Row kunnen zien.

Dan zou het er als dit uit moeten zien, maar nu gebeurt er helemaal niets

           Set MyRange = Workbooks("Green Trees").Worksheets("Leveranciers").Range("D4:D" & Sheets("Leveranciers").Range("D65536").End(xlUp).Row).Address

Met vr gr
Jack

 

[Wigi]

Laat die .Address eraf als het om een Range gaat. .Address maakt er een string van.

 

[Jack Nouws]

Laat die .Address eraf als het om een Range gaat. .Address maakt er een string van.

Dit doet het niet

                Set MyRange = Workbooks("Green Trees").Worksheets("Leveranciers").Range("D4:D"  & Sheets("Leveranciers").Range("D65536").End(xlUp).Row)
                 .RowSource = MyRange.Address(External:=True)

En dit doet het wel

                Set MyRange = Workbooks("Green Trees").Worksheets("Leveranciers").Range("D4:D100") 
                 .RowSource = MyRange.Address(External:=True)

En waar kan dat aan liggen?

Met vr gr
Jack

 

[Wigi]

Wat geeft dit terug?

Sheets("Leveranciers").Range("D65536").End(xlUp).Row

 

[Jack Nouws]

Wat geeft dit terug?

Sheets("Leveranciers").Range("D65536").End(xlUp).Row

Dit geeft alleen de laatste naam van het bereik.

Met vr gr
Jack

 

[Wigi]

Dit geeft alleen de laatste naam van het bereik.

Met vr gr
Jack

Welk rijnummer?

 

[Jack Nouws]

Welk rijnummer?

Rij 16

Met vr gr
Jack

 

[Jack Nouws]

Rij 16

Met vr gr
Jack

Sorry foutje
MyRange is Leeg
Dat is wat er staat als ik met F8 doorloop
Maar het moet dus wel Rij 16 zijn

Met vr gr
Jack

 

[Ginger]

'MyRange' is niet leeg! Tenminste dat gok ik van niet. Zet je immediate window maar 'ns aan (in je VBE) en tik dan dit regeltje

Debug.Print MyRange.Address

onder regel met 'Set...'
Als het goed is, zou je dan het resultaat

[COLOR="Blue"]D4:D16[/COLOR]

in je immediate window moeten zien verschijnen bij het doorlopen van je code.

Groet, Leo

 

[Jack Nouws]

Zet je immediate window maar 'ns aan (in je VBE)

Hoe doe ik dat?

Met vr gr
Jack

 

[Warme bakkertje]

Jack, VBE openen >> ctrl-G

Mvg

Rudi

 

[Ginger]

@Warme Bakkertje, dank voor het antwoord aan de TS én dat jij nog zo laat op bent... (dan kan ik tenminste optijd naar bed)

@Jack Nouws, Programmeurs maken ipv 'Debug.Print' ook wel gebruik van een messagebox om even een waarde van een variabele uit te vragen. Dus je zou ook kunnen kiezen voor...

MsgBox MyRange

...om tussentijds te kijken. Beide regels moet je natuurlijk niet vergeten om te verwijderen na het testen!!!

Groet, Leo

 

[Ginger]

...en plaats anders toch maar ff je bestandje. Dat had waarschijnlijk zo'n 16 reacties kunnen schelen...

Groet, Leo

 

[Jack Nouws]

'MyRange' is niet leeg! Tenminste dat gok ik van niet. Zet je immediate window maar 'ns aan (in je VBE) en tik dan dit regeltje

Debug.Print MyRange.Address

onder regel met 'Set...'
Als het goed is, zou je dan het resultaat

[COLOR="Blue"]D4:D16[/COLOR]

in je immediate window moeten zien verschijnen bij het doorlopen van je code.

Groet, Leo

Leo

Met deze code

Set MyRange = Workbooks("Green Trees").Sheets("Leveranciers").Range("D65536").End(xlUp)

Krijg ik dit

$D$16

Als resultaat

Met vr gr
Jack

 

[Wigi]

Zoals al eerder door mij gezegd:

Set MyRange = Workbooks("Green Trees").Worksheets("Leveranciers").Range("D4:D" & Workbooks("Green Trees").Worksheets("Leveranciers").Range("D65536").End(xlUp).Row)

MOET gewoonweg de range D4: D16 geven. Kan niet anders.

Wigi