makroda hata

Hayırlı günler. Bir forumdan aldığım makronun verilerini değiştirdim, bazı kodlarını da haliyle sildim. Bur da hata veriyor, ama hatayı çözemedim. im BlnVal As Boolean Private Sub UserForm_Initialize() Dim IdVal As Integer IdVal = fn_LastRow(Sheets("Data")) frmData.txtId = IdVal...