Aanvulling geraagd

[kibus]

Beste kenners

De volgende code (heb ik ook via jullie gekregen) staat in een textbox is het mogelijk deze aan te vullen met een formule die f deelt door G

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rij As Long
rij = ActiveCell.Row
Box2.Text = Range("A" & rij) & " " & Range("d" & rij)

End Sub

alvast bedankt

 

[Wigi]

Begrijp je wat deze regel doet?

Box2.Text = Range("A" & rij) & " " & Range("d" & rij)

 

[kibus]

voegt bepaalde cellen samen in de textbox vermoed dus dat ik de formule in een andere kolom moet zetten. en dan laten samenvoegen is dat correct?

 

[Wigi]

En wat dan met dit?

Box2.Text = Range("A" & rij) & " " & Range("d" & rij) & " - " & Range("F" & rij) / Range("G" & rij)

Wigi

 

[kibus]

dat werkt idd maar krijg nou een foutmelding overloop op het moment dat je pijltje naar beneden ingedrukt houd

 

[Wigi]

Geef dan eens de hele code.

Is die hetzelfde als in de eerste post, met verandering van hetgeen ik aangaf?

Of is Rij als een Integer gedeclareerd?

 

[kibus]

hezefde als in de eerste post ik heb de verandering erachter geplakt en verder niks

 

[Wigi]

Hang dan maar een bestandje bij aub.

 

[Ginger]

Wigi, ligt het niet aan deze handeling van de TS...

krijg nou een foutmelding overloop op het moment dat je pijltje naar beneden ingedrukt houd

???

Je doet in dat geval 'selection_change' na 'selection_change' na enz.... Daar wil volgens mij wel een overflow door ontstaan!

Goret, Leo

 

[Wigi]

Op zich mag dat geen fout geven.

OK, de code zal trager gaan en je zal zien dat Excel er moeite mee heeft. Maar in principe zou het moeten gaan.

Het zou anders zijn als je in de macro zelf nog eens de selectie laat wijzigen. Dan kom ke in een oneindige lus terecht.