Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Cursor naar een cel verplaatsen met een macro  (gelezen 6209 keer)

0 leden en 1 gast bekijken dit topic.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Cursor naar een cel verplaatsen met een macro
« Gepost op: 27 september 2006, 12:32:43 »
Goedemiddag,

Ik heb een simpele vraag, maar helaas weet ik geen oplossing te vinden.
Met het opnemen van een macro lukt dit niet.

In de cellen A1, A2, A3 heb ik data staan.
Rij 4 is leeg.
Ook in de cellen A5, A6, A7 staan data.
Rij 8 is leeg.

In rij 8 zijn gevuld A8, B8 en C8.
Ook de rijen 9, 10 enz. zijn gevuld met data in de kolommen A,B en C.

Wat ik nu graag zou willen is dat de cursor met een macro geplaatst wordt in cel A8, (dus de bovenste rij waarin de kolommen A tot en met C data bevatten).

Is dit mogelijk ?

Alvast bedankt,
Eric



Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:Cursor naar een cel verplaatsen met een macro
« Reactie #1 Gepost op: 27 september 2006, 13:15:44 »
Eric

Range("A" & Range("B1").End(xlDown).Row).Select

Wigi
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Re:Cursor naar een cel verplaatsen met een macro
« Reactie #2 Gepost op: 27 september 2006, 14:35:54 »
Hallo Wigi,

Bedankt voor je snelle reactie.
Helaas gebeurt er met jouw oplossing niet wat ik graag zou willen.
Als ik dat doe gaat de cursor naar cel A65536.
Ik heb een voorbeeldbestandje meegestuurd. Wellicht is het dan gemakkelijker wat ik bedoel.
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:Cursor naar een cel verplaatsen met een macro
« Reactie #3 Gepost op: 27 september 2006, 14:41:05 »
Probeer het nog maar eens want als ik dat stukje code in jouw bestand plak, gaat het wel.
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Re:Cursor naar een cel verplaatsen met een macro
« Reactie #4 Gepost op: 27 september 2006, 16:05:57 »
Dag Wigi,

Sorry, ik heb het nogmaals geprobeerd en het werkt perfect !
Vermoedelijk heb ik de eerste keer iets verkeerd gedaan, maar ik weet absoluut niet wat.

Intussen heb ik zelf ook nog een oplossing gevonden.
Deze is misschien minder elegant maar het werkt ook.
Is dit ook goed ? Wat denk je ervan ?

Nogmaals bedankt.

Gr.
Eric
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:Cursor naar een cel verplaatsen met een macro
« Reactie #5 Gepost op: 27 september 2006, 16:07:19 »
Waar vind ik jouw oplossing?
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Re:Cursor naar een cel verplaatsen met een macro
« Reactie #6 Gepost op: 27 september 2006, 19:06:25 »
Sorry,

Vergeten mee te sturen.
Hierbij alsnog:

Sub selecteren01()
Range("b1").End(xlDown).Select
ActiveCell.Offset(0, -1).Select
End Sub

Graag je reactie of dit goed is.

Gr.
Eric
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:Cursor naar een cel verplaatsen met een macro
« Reactie #7 Gepost op: 27 september 2006, 19:22:26 »
Dit werkt, maar je moet niet selecteren. Dat vertraagt de code aanzienlijk. (natuurlijk niet voor 1 cel, maar wel bij meerdere cellen). Dus:

Sub selecteren01()
Range("B1").End(xlDown).Offset(, -1).Select
End Sub

De 0 bij Offset mag ook weg.

Wigi
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

 


www.combell.com