Help!

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

Hulp bij posten

Recente topics

Auteur Topic: lege regel  (gelezen 2399 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
lege regel
« Gepost op: 13 januari 2023, 21:43:18 »
Klein vraagje,

als je veel regels heb, zeg maar dat tot a1200 is gevuld met tekst is er dan optie of macro dat je altijd naar regel gaat die leeg is?
na de gevulde regel

bij deze dan 1201
of een andere willekeurig cel die na de gevulde cel komt

Alvast super bedankt

PS een of andere manier werkt dit helaas niet voor mijn

Sub LaatsteRegel()
    Dim lngRow As Long
    'bepaal aantal rijen in werkblad
    lngRow = Me.Range("A:A").Rows.Count
    'ga naar de eerstvolgende niet-lege cel boven de laatste cel van kolom A
    'en ga dan 1 cel naar beneden
    Me.Range("A" & lngRow).End(xlUp).Offset(1, 0).Select
End Sub
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: lege regel
« Reactie #1 Gepost op: 13 januari 2023, 22:29:36 »
Sunnybat,

Sub LaatsteRegelPlusEen()
    Dim Sunny As variant
        Sunny = Me.Range("A:A").Rows.Count + 1
        Range.Cells(Sunny, 1).Select
End Sub

(Niet getest omdat ik geen 365 heb....)

:) SoftAid :)             
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 Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: lege regel
« Reactie #2 Gepost op: 13 januari 2023, 22:52:59 »
@SoftAid

ik ook helaas niet maar op me werk wel
dus mss werkt het op 365

Alvast toppie  _/-\o_
Excel 365 NL

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: lege regel
« Reactie #3 Gepost op: 14 januari 2023, 10:47:48 »
Ctrl + down

Gaat naar de laatste ingevulde regel in de kolom waar je staat.
|-|aije

ik gebruik Office 2016 Professional Plus

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: lege regel
« Reactie #4 Gepost op: 14 januari 2023, 11:28:28 »
@ SoftAid,

Aangenomen dat we tegenwoordig allemaal een versie met 1048576 rijen hebben probeert jouw code A1048577 te selecteren ;)

@ Haije,

De vraag was specifiek om het binnen vba te doen (ongetwijfeld te implementeren in een andere code). Los daarvan werkt jouw manier enkel als er tussenin geen lege cellen zijn!

@ Sunnybat,

Welgeteld één regeltje code heb je nodig, zonder gedoe met dim's want ook zonder variabelen.
Maar voorlopig krijg je die niet van mij :D
Met ook je vroegere vragen in gedachten moet ik wel denken dat je allerlei zaken doet of probeert te doen zonder een duidelijk beeld over hoe, wat, waar en waarom. Dat is geen kritiek maar enkel een introductie tot wat goede raad: bedenk dat het geen schande is om er eens een beginnerscursus bij te nemen.

Waar heb je bv. "Me.Range("A:A").Rows.Count" vandaan gehaald?
Daar staat "tel de rijen van range("a:a")". Die range is dus de ganse kolom A, en die heeft evenveel rijen als elk werkblad van je Excel-versie, niet?
Op voorwaarde evenwel dat je die range op een compleet werkblad bekijkt (want die "Me" bevalt me al helemaal niet).
Antwoord daarom eerst maar eens op volgende: waar staat die code? en naar wat verwijst "Me" volgens jou?
Daarna zien we wel verder ;)

Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: lege regel
« Reactie #5 Gepost op: 14 januari 2023, 13:43:44 »
@MollyVH

ik had even rond gekeken op google en kwam deze code tegen, daarom dacht ik zal het even neer zetten
helemaal niks van mijn maar gevonden met youre best friend ( google )
sorry voor de verwarring  :-[
 
dank je wel @Haije en @SoftAid
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: lege regel
« Reactie #6 Gepost op: 14 januari 2023, 15:47:09 »
@SoftAid

ik ook helaas niet maar op me werk wel
dus mss werkt het op 365

Alvast toppie  _/-\o_

Sunnybat,

in je profiel heb je nochtans "Excel 365 NL" opgegeven ???

:) SoftAid :)             
 
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 MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: lege regel
« Reactie #7 Gepost op: 14 januari 2023, 16:33:40 »
Hallo Sunnybat,

Het is niet zozeer een kwestie van verwarring, hoor, het verbaast me hoegenaamd niet. Ik dacht zo: of van internet geplukt, of uit een andere code gekopieerd (wat ongeveer op hetzelfde neerkomt).
Ik wil je voorlopig nog het voordeel van de twijfel laten en dus geloven dat je de dingen wil proberen begrijpen.
Maar waarom antwoord je dan niet op
Citaat
waar staat die code? en naar wat verwijst "Me" volgens jou?
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: lege regel
« Reactie #8 Gepost op: 14 januari 2023, 17:54:52 »
@MollyVH

Me is dat de naam dat eigenlijk de naam van het tabblad hoort te zijn?

nou even verder de code bekeken en de macro werkt :blink:

Sub LaatsteRegel()
    Dim lngRow As Long
    'bepaal aantal rijen in werkblad
    lngRow = Sheet1.Range("A:A").Rows.Count
    'ga naar de eerstvolgende niet-lege cel boven de laatste cel van kolom A
    'en ga dan 1 cel naar beneden
    Sheet1.Range("A" & lngRow).End(xlUp).Offset(1, 0).Select
End Sub

Thnx MollyVH
Excel 365 NL

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: lege regel
« Reactie #9 Gepost op: 14 januari 2023, 18:09:29 »
Dit is voldoende

application.goto range("A"&rows.count).end(xlup).offset(1)

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: lege regel
« Reactie #10 Gepost op: 14 januari 2023, 19:23:12 »
@JEC

 :blink:

Dank je wel
Excel 365 NL

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: lege regel
« Reactie #11 Gepost op: 14 januari 2023, 19:49:28 »
Alstu!

 


www.combell.com