*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Naar eerste lege cel in kolom  (gelezen 1927 keer)

0 leden en 1 gast bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 835
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Naar eerste lege cel in kolom
« Gepost op: 13 maart 2021, 09:28:21 »
Best oplossers,

Ik heb een macro om in kolom A naar de eerste lege cel te gaan, maar nu zou ik willen om dat bereik uit te breiden, dwz als de cel A42 ingevuld is dat de cursor dan naar

kolom G gaat en ook later naar kolom M.

Is dat mogelijk?

Met dank bij voorbaat,

Grts,
Jean-Pierre.
Gelogd
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 425
Re: Naar eerste lege cel in kolom
« Reactie #1 Gepost op: 13 maart 2021, 09:49:11 »
Met 1 regeltje ;)

Code: [Selecteer]
Sub jv()
Range("A3:A42, G3:G42, M3:M42").Find("").Select
End Sub
Gelogd

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 835
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Naar eerste lege cel in kolom
« Reactie #2 Gepost op: 13 maart 2021, 10:13:16 »
Dank u wel Veerj,  :thumbsup:

Hoe simpel kan het soms zijn...... :-[

Nog een prettig w-end gewenst.

Jean-Pierre
Gelogd
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 835
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Naar eerste lege cel in kolom
« Reactie #3 Gepost op: 13 maart 2021, 11:24:45 »
Sorry hoor toch nog even terug....

In eerste instantie werkte het perfect, maar nu wil ik dit in mijn origineel gebruiken waar dit in een user form moet komen en op geen enkele denkbare manier lukt me dat....

Private Sub CommandButton17_Click()
Sub jv()
Range("A3:A42, G3:G42, M3:M42").Find("").Select
End Sub

Wat zit hier verkeerd in??? Ik kom er niet meer uit, of het werkt niet of het geeft foutmeldingen.

Jean-Pierre
Gelogd
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 425
Re: Naar eerste lege cel in kolom
« Reactie #4 Gepost op: 13 maart 2021, 11:29:47 »
Daarvoor hebben we toch het echte voorbeeld nodig ben ik bang
Gelogd

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 835
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Naar eerste lege cel in kolom
« Reactie #5 Gepost op: 13 maart 2021, 11:43:41 »
Sorry voor de storing is opgelost.

Toch nogmaals bedankt,

Jean-Pierre
Gelogd
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 425
Re: Naar eerste lege cel in kolom
« Reactie #6 Gepost op: 13 maart 2021, 11:44:32 »
Mooizo! ;D
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com