xlDownは

Question

を意図したとおりに動作していない私は、ボタンのアクションを処理するためにthisチュートリアル

を追ってきました。ボタンをクリックするたびに新しい行にデータを書きたいが、既存のデータを上書きするか、新しい行にデータを書き込んだり（上書きする）

コード：

Private Sub cmdUnesiUBazu_click() 
    Sheet1.Activate 

    Range("B2").End(xlDown).Offset(1, 0).Select ' want to start write from C2 cell 
    ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1 

    ActiveCell.Offset(0, 1).Value = txtSifraOsobe.Value 
    ActiveCell.Offset(0, 2).Value = txtImeIPrezime.Value 
    ActiveCell.Offset(0, 3).Value = txtAdresa.Value 
    ActiveCell.Offset(0, 4).Value = cboGrad.Value 
    ActiveCell.Offset(0, 5).Value = cboDrzava.Value 
    ActiveCell.Offset(0, 7).Value = txtDatumRodjenja.Value 

    End Sub 

Answer 1

ではなく、それらを選択し、ActiveCellを参照するので、直接セルを参照することをお勧めします。時計

あなたのレコードを参照する一意のID（ID）を作成しようとしているようです。代わりにあなたがActiveCell.Value = ActiveCell.Offset(上のセルの値に1を加算しなければならないActiveCell.Value = ActiveCell.Offset(, 0).Value + 1 -1, 0).Value + 1

Sheet1.Activate 

With Range("B2").End(xlDown).Offset(1, 0) 
    .Value = .Offset(-1, 0).Value + 1 
    .Offset(0, 1).Value = txtSifraOsobe.Value 
    .Offset(0, 2).Value = txtImeIPrezime.Value 
    .Offset(0, 3).Value = txtAdresa.Value 
    .Offset(0, 4).Value = cboGrad.Value 
    .Offset(0, 5).Value = cboDrzava.Value 
    .Offset(0, 7).Value = txtDatumRodjenja.Value 
End With 

Answer 2

を避けるために非常に整然とだろう場合：しかし、あなたは下の空のセルに1を加えていますセルOffsetsによってActivateとセル、おそらくすなわち：

Dim ws As Worksheet 
Dim rng1 As Range 

Set ws = Sheets(1) 
Set rng1 = ws.Cells(Rows.Count, "B").End(xlUp) 
rng1.Offset(1, 1).Resize(1, 7) = Array(Me.txtSifraOsobe, Me.txtImeIPrezime, Me.txtAdresa, Me.cboGrad, Me.cboDrzava, , Me.txtDatumRodjenja)