Meerdere rijen selecteren d.m.v. TextBox

[AdOAdO]

Hallo allemaal,

Ik heb onderstaande macro:

(even een voorbeeld)

Private Sub UserForm_Click()

t1 = TextBox1.Value
t2 = TextBox2.Value

Rows("t1:t2").Select


End Sub


Ik heb een UserForm met 2 textboxen, dus t1 en t2.



Ik wil zo de rijen selecteren van t1 tot en met t2 welke ik in TextBox 1 en 2 invoer.

Maar hij werkt niet.

Als ik dit > Rows(t1).Select < maak dan werkt het wel maar met twee niet.

Graag jullie hulp

 

[VenA]

Rows(t1).Resize(t2 + 1 - t1).Select

Range(t1.Value & ":" & t2.Value).Select

Rows(t1.Value & ":" & t2.Value).Select

 

[AdOAdO]

Bedankt voor uw snelle reactie en hulp.

1e code werkt en andere 2 niet.

 

[VenA]

Bij mij wel. Maar ja, weer geen bestand meegestuurd.

 

[AdOAdO]

Hierbij een voorbeeld.

Ik krijg het niet voor elkaar :d

 

[VenA]

Zo beter

Range(TextBox1.Value & ":" & TextBox2.Value).Select

 

[AdOAdO]

Deze werkt inderdaad ook.

Heel erg bedankt.

 

[VenA]

Als je graag met variabelen werkt dan moet het zo

Range(t1 & ":" & t2).Select

 

[snb]

Waarom bouwen wat ingebakken zit:

 

[AdOAdO]

Jah er zullen vast meer mogelijkheden zijn :d

 

[AdOAdO]

Nu stuit ik op het volgende probleem.
Als ik in t2 een getal lager invoer dan in t1 moet hij een foutmelding geven.

Met 2 tal "nummers" werkt het goed zodra een combinatie is met 2 en 3 tal "nummers" geeft hij een fout.

Mijn macro werkt niet als ik bijvoorbeeld: bij t1 50 invoer en bij t2 150 maar als ik bij t1 050 invoer en bij t2 150 werkt het dan wel.??

Macro die ik heb toegepast:

If t2 < t1 Then
MsgBox "Rij t2 lager dan t1", vbCritical, "Waarschuwing"

 

[VenA]

En wat is jouw macro dan?
Wat je met die overbodige variabelen moet ontgaat mij. En daar gaat het ook op fout. Een textbox geeft standaard een string terug. Dus t1 en t2 worden als tekst gezien. In veel gevallen is VBA slim genoeg om toch te zien dat het om getallen gaat maar niet in alle alle gevallen. Dus dan zal je de tekstwaarden moeten converteren naar Long. Je kan code ook debuggen om te kijken waar het fout gaat.

 

[AdOAdO]

Hierbij een voorbeeld

 

[snb]

Je bent nu overbodige 'problemen' aan het oplossen.
Soms zijn 'mogelijkheden' betere mogelijkheden, zoals #9

 

[VenA]

Misschien #12 even rustig lezen en er wat mee proberen te doen? Waar het fout gaat heb ik al aangeven maar daar heb je niets mee gedaan.

@snb, die RefEdit kende ik niet:thumb:

 

[edmoor]

In plaats van RefEdit kan het ook met een InputBox:

Set r = Application.InputBox("Selecteer aan bereik", Type:=8)
Debug.Print r.Address

 

[AdOAdO]

Sorry, ik heb inderdaad net niet goed gelezen.

Het is opgelost nu.

Nogmaals dank je wel voor je hulp.