Caros, sou novo em VBA e para meu projeto estou tentando fazer um userform que alimente uma planilha de acordo com as informações que o usuário inputar. Estou tendo um erro que não entendo como resolver..
O erro mostra ser na linha: Lin = ws.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row
Segue o script:
Private Sub Enter_Click()
Dim iLin As String
Dim ws As Worksheet
Set ws = Worksheets("ADAE")
lin = ws.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row
If Trim(Me.title) = "" Then
MsgBox "Informe o Título da Planilha"
Me.title.SetFocus
Exit Sub
End If
If Not (IsNumeric(Me.nidaula)) Then
MsgBox "Digite um número válido"
Me.nidaula.SetFocus
Exit Sub
End If
If Not (Me.TM) And Not (Me.TC) Then
MsgBox "Selecione o tipo de tarefa"
Exit Sub
End If
If Not (IsNumeric(Me.group)) Then
MsgBox "Digite um número válido"
Me.nidaula.SetFocus
Exit Sub
End If
ws.Cells(lin, 1).Value = Me.title.Value
ws.Cells(lin, 2).Value = Me.nidaula.Value
If (Me.TM) Then
ws.Cells(lin, 3) = "2"
Else
ws.Cells(lin, 3) = "3"
End If
ws.Cells(l, 4).Value = Me.group.Value
ws.Columns("A:D").AutoFit
Me.title.Value = ""
Me.nidaula.Value = ""
Me.TM.Value = False
Me.TC.Value = False
Me.group.Value = ""
Me.title.SetFocus
End Sub