*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Laatste cellen selecteren  (gelezen 2771 keer)

0 leden en 1 gast bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Laatste cellen selecteren
« Gepost op: 16 februari 2017, 09:01:24 »
Beste Excellers/Oplossers,

Ik ben al een paar dagen aan het zoeken om via een macro de laatste vier ingevulde cellen van kolom A te selecteren.

In mijn voorbeeld heb ik een macro opgenomen en lukt dit maar dan gebeurd dit steeds met dezelfde cellen,
hij zou steeds de laatste vier ingevulde cellen moeten selecteren.

Met dank bij voorbaat.

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 SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.169
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Laatste cellen selecteren
« Reactie #1 Gepost op: 16 februari 2017, 10:41:21 »
Hallo JP,

dit zou moeten werken:

Code: [Selecteer]
Sub Selecteren()

rij = Sheets("2017").Cells(Cells.Rows.Count, 1).End(xlUp).Row   'Geeft de variabele "rij" de waarde van de laatst ingevulde rij (Row)

    Range("A" & rij, "A" & rij - 3).Select
    Selection.Copy

End Sub
:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Laatste cellen selecteren
« Reactie #2 Gepost op: 16 februari 2017, 10:59:45 »
SoftAid, je bent een schat, en nee mensen, daar is niks verkeerd mee bedoeld........ 0:-)

Reuze bedankt hoor.  ;)

JP.
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 SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.169
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Laatste cellen selecteren
« Reactie #3 Gepost op: 16 februari 2017, 13:28:19 »
Graag gedaan, hoor...

:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !
Pagina's: [1]   Omhoog
 


www.combell.com