rijen tellen met offset

[mrnico]

Hallo ik ben opzoek naar het volgende

Ik wil waardes automatisch in laten vullen op een nieuwe lege regel.

 rij = .Range("A1").CurrentRegion.Rows.Count + 1
.Rows(rij).Columns(1).Value = Sh
.Rows(rij).Columns(2).Value = Si

Echter wil ik niet bij A1 beginnen maar bij A61
aangezien er van alles boven staat voor andere doeleinden.

 rij = .Range("A61").CurrentRegion.Rows.Count + 1
.Rows(rij).Columns(1).Value = Sh
.Rows(rij).Columns(2).Value = Si

Toen dacht ik verander A1 in A61 dit was te simpel gedacht dit werkt niet maar ik weet ook niet hoe het wel moet.
dus bij deze.

Het zou vast heel simpel zijn.

 

[HSV]

 cells(application.max(60, cells(rows.count, 1).end(xlup).row), 1).offset(1) = "vanaf A61"

 

[mrnico]

Oke bedankt maar hoe plaats ik dat dan?

 rij1 = Cells(Application.Max(60, Cells(Rows.Count, 1).End(xlUp).Row), 1).Offset(1)
.Rows(rij1).Columns(1).Value = Si
.Rows(rij1).Columns(2).Value = Sj

werkt niet.

 

[Joske2000]

Werkt deze niet ?

rij = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Rows(rij).Columns(1).Value = Sh
.Rows(rij).Columns(2).Value = Si

Groet,

Joske

 

[Timshel]

Denk zo:

 rij1 = Application.Max(60, Cells(Rows.Count, 1).End(xlUp).Row) + 1
.Cells(rij1, 1) = Si
.Cells(rij1, 2) = Sj

 

[HSV]

Of:

cells(application.max(60, cells(rows.count, 1).end(xlup).row), 1).offset(1) .resize(,2) = array("si", "sj")