restrict copy data from userform to all sheets based on row number

[Hasson]

hi

I would add condition like message box to this code . the code works for one sheet, but I want through all the sheets are existed in the file . so when I fill data in first sheet and reach to 1000 rows should pop up message has two choices " it 's filled 1000 rows" .if press ok then should move to next sheet and fill just 1000 rows and so on for rest of sheets and if I press no then should keep in first sheet and fill data without any limition.

Private Sub CMDS()
Dim LR As long
LR = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(LR, 1).Value = Me.TETPR.Value
Cells(LR, 2).Value = Me.TXTMM.Value
Cells(LR, 3).Value = Me.TXTNB.Value
Cells(LR, 4).Value = Me.TXTAA.Value
MsgBox "DONE"
TETPR.Value = ""
TXTMM.Value = ""
TXTNB.Value = ""
TXTAA.Value = ""
End Sub

 

[Hasson]