Eerste lege cel kolom

[Atwist]

Hallo,

Ik gebruik altijd onderstaande om de eerste lege regel te laten invullen door een userform, maar is er ook zoiets om de eerste lege cel van een kolom in te vullen.

Private Sub CommandButton1_Click()
 Range("A10").Select
Dim iRow As Long
'Vind de eerste lege rij in uw database
iRow = Sheets("Layers").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'check op invoer

Het iemand een tip.

 

[Warme bakkertje]

Bedoel je de eerste lege cel onderaan, of een onbepaalde lege cel in een kolom ?

 

[Atwist]

Hallo Warme bakkertje,

Ik bedoel de eerste vrij cel onderaan dus als bv van kolom a cel 1 t/m 8 gevuld zijn dan cel 9 pakken enz.

 

[Warme bakkertje]

Sheets("Layers").Range("A65536").End(xlUp).Offset(1)= ......

 

[Atwist]

Als ik de code gebruik krijg in een syntax error

Private Sub CommandButton1_Click()
Sheets("Layers").Range("A65536").End(xlUp).Offset(1)= ......

of begrijp ik de code verkeerd

 

[Roncancio]

Niet helemaal duidelijk hoe je het bedoelt.
Dus:

1e lege cel in A-kolom:

iRow = Sheets("LAyers").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

1e lege cel in A-kolom: (waarbij ook gekeken wordt naar andere kolommen)

iRow = Sheets("Layers").Range("A" & UsedRange.Rows.Count).Offset(1, 0).Row

Als in cel C6 iets ingevuld is, dan zal iRow in het 2e geval de waarde 7 krijgen.

Met vriendelijke groet,


Roncancio

 

[Atwist]

Roncancio,

Je bent weer geweldig

iRow = Sheets("LAyers").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

Werk voor mij zeer goed.

Ik wou dat ik 10% van jou kennis had

 

[Roncancio]

Iets begrijp ik niet helemaal.
In je 1e bericht schreef je onder meer:

iRow = Sheets("Layers").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Dit doet precies hetzelfde.

Met vriendelijke groet,


Roncancio

 

[Atwist]

Roncancio

Als ik deze code goed begrijp

iRow = Sheets("Layers").Range("A" & UsedRange.Rows.Count).Offset(1, 0).Row

Als A10 gevuld is dan A11 en als B20 gevuld is dan B21 enz.

Heb zojuist het geprobeerd maar dan krijg ik een foutmelding "424"

 

[Roncancio]

i

Row = Sheets("Layers").Cells(Rows.Count, ActiveCell.Column).End(xlUp).Offset(1, 0).Row

De 1e nieuwe cel van de huidige kolom wordt bepaald.

Met vriendelijke groet,


Roncancio

 

[Atwist]

Dank voor je hulp Roncancio,

Je hebt mij weer grandioos geholpen, kan nu weer lekker verder bouwen:thumb: