springen op werkblad

[RobTHMG]

ik heb een werkblad met veel kolommen
de rijen zijn cliënten
het werkblad heb ik gesplitst;
de eerste rij zijn de titels van de kolommen
de eerste kolom zijn de cliënnummers

ik wil via een userform met buttons kunnen springen naar specifieke kolommen, zodat de kolom links in beeld komt te staan (dus naast de eerste rij A, waar het cliëntnummer instaat)

hoe kan ik dat met vba code maken

(Ik kan userforms maken en buttons, etc.)

gaat hier dus om de vba om het werkblad te laten schuiven

Alvast weer dank voor jullie hulp

Rob

 

[VenA]

Volgens mij haal je kolommen en rijen door elkaar.

de eerste rij zijn de titels van de kolommen
de eerste rij zijn de cliënnummers

Best druk op de eerste rij.
Hoe je een werkblad kan laten schuiven weet ik niet. Van het ene scherm naar het andere of wil je de focus op een bepaalde cel zetten? Plaats het bestand even misschien dat, dat wat duidelijkheid geeft.

 

[emields]

bedoel je zoiets?


ps. plaats in het vervolg zelf een voorbeeld

 

[RobTHMG]

hoi

Ik heb je bestand verspringen gedownload en opgeslagen.
Ik zie dat je een userform hebt gemaakt.

de code onder de knoppen heb ik gezien.
Ik heb het geprobeerd. Het werkt deels

Zoals je in bijgevoegde excel zie heb ik het werkblad gesplutst, zodat de eerste rij en de eerste kolom zichtbaar blijven.
Wat nu moet verspringen is wat er onder en rechts van rij 1 en kolom A staat

Als ik jouw oplossing toepas verspringt juist rij 1 en kolom 1 en dat is niet de bedoeling


Dank.
rob

 

[emields]

en hoe kom je te weten wat daar moet komen te staan?

 

[RobTHMG]

Op de rijen 2 t/m .... en de kolommen 2 t/m ..... worden gegevens ingevoerd.
kolom a de ellen zijn reeds genummend van 1 t/m 300

maar omdat de gegevens gespreid binnen komen wil ik kunnen springen naar een bepaalde kolom om dan de gegevens in te voeren.

Is er dus een vba code toe te voegen aan jou code, zodat de kolommen waarin ik wil werken verspringen?

Ik hoop dat je me kunt helpen

Rob

 

[VenA]

Je kan beter titels blokkeren gebruiken. 'Splutsen' heeft weinig toegevoegde waarde.

Je kan gewoon de cel invullen waar je naar toe wil gaan. Na een druk op <Enter> sta je in A500 (zie plaatje)

 

[RobTHMG]

Vena,

dank voor je suggestie , maar dat is niet de oplossing die ik zoek

dank Rob

 

[VenA]

Maar welke oplossing zoek je dan? Zie ook de vraag in #5. Het blijven schrijven dat je naar een bepaalde kolom en/of rij wil hoef je niet steeds te herhalen. Het geeft geen antwoord op wat de bedoeling is.

Plaats een representatief voorbeeld. Rijen hebben al nummers en kolommen ook.

 

[RobTHMG]

opgelost

De suggestie van Emiel werkt ook als ik de titels blokkeer. Daarmee is mijn probleem opgelost.

dankvoor het meedenken allen.

Rob

 

[emields]

Voor het gemak nog een andere manier.


P.S. Als de vraag opgelost is vergeet ze dan niet in uw eerste post als opgelost te stellen.

 

[HSV]

Ter vervanging van de code van @emields.

Private Sub CommandButton2_Click()
If ComboBox1.ListIndex > 0 And ComboBox2.ListIndex > 0 Then
 Application.Goto Cells(ComboBox1.Value, Columns(ComboBox2.Value).Column + 1), True
End If
End Sub

 

[snb]

Of alle knoppen weghalen in het userform

Private Sub UserForm_Initialize()
    ComboBox1.List = Blad1.Cells(1).CurrentRegion.Value
    ComboBox2.List = Application.Transpose(Blad1.Cells(1, 3).Offset(, 1).CurrentRegion.Value)
End Sub

Private Sub ComboBox1_Change()
   M_spring
End Sub

Private Sub ComboBox2_Change()
   M_spring
End Sub

Sub M_spring()
   If (ComboBox1.ListIndex > -1) * (ComboBox2.ListIndex > -1) Then
        Application.Goto Range(ComboBox2 & ComboBox1).Offset(, 1), 1
        Hide
    End If
End Sub