Este fórum está sendo desativado

[douglasgoulart40]

Boa tarde!
Estou desenvolvendo um pequeno sistema usando o inputbox. Refiz todo o código e pra cadastrar apareceu o seguinte erro:

"A variável do objeto ou a varíavel do bloco With não foi definida"

Eis o código:

Option Explicit

Sub cadastro()

Dim vlmatricula As Variant
Dim vlnome As Variant
Dim vltpsang As Variant
Dim linOpt As Long
Dim vlrCadastro As Worksheet

With vlrCadastro
Do
vlmatricula = InputBox("Informe a matrícula: ")
Loop While vlmatricula = vbNullString

Do
vlnome = InputBox("Informe o nome: ")
Loop While vlnome = vbNullString

Do
vltpsang = InputBox("Informe o Tipo Sanguíneo: ")
Loop While vltpsang = vbNullString

linOpt = .Range("A1").End(xlUp).Row + 1 <- erro está aqui!

.Cells(linOpt, 1) = vlmatricula
.Cells(linOpt, 2) = vlnome
.Cells(linOpt, 3) = vltpsang
End With
End Sub

Se alguém possa me ajudar nesse sentido, ficarei agradecido!
Aguardo respostas! []'s

[babdallas]

Se vlrCadastro for o codename da planilha

Código: Selecionar todos

Option Explicit

Sub cadastro()

Dim vlmatricula As Variant
Dim vlnome As Variant
Dim vltpsang As Variant
Dim linOpt As Long

With vlrCadastro
Do
vlmatricula = InputBox("Informe a matrícula: ")
Loop While vlmatricula = vbNullString

Do
vlnome = InputBox("Informe o nome: ")
Loop While vlnome = vbNullString

Do
vltpsang = InputBox("Informe o Tipo Sanguíneo: ")
Loop While vltpsang = vbNullString

linOpt = .Range("A1").End(xlUp).Row + 1 <- erro está aqui!

.Cells(linOpt, 1) = vlmatricula
.Cells(linOpt, 2) = vlnome
.Cells(linOpt, 3) = vltpsang
End With
End Sub

Se vlrCadastro não for um codename da planilha e sim uma variável qual deverá ser atribuída uma planilha:

Código: Selecionar todos

Option Explicit

Sub cadastro()

Dim vlmatricula As Variant
Dim vlnome As Variant
Dim vltpsang As Variant
Dim linOpt As Long
Dim vlrCadastro As Worksheet

Set vlrCadastro = Thisworkbook.Worksheets("Nome da sua planilha")

With vlrCadastro
Do
vlmatricula = InputBox("Informe a matrícula: ")
Loop While vlmatricula = vbNullString

Do
vlnome = InputBox("Informe o nome: ")
Loop While vlnome = vbNullString

Do
vltpsang = InputBox("Informe o Tipo Sanguíneo: ")
Loop While vltpsang = vbNullString

linOpt = .Range("A1").End(xlUp).Row + 1 <- erro está aqui!

.Cells(linOpt, 1) = vlmatricula
.Cells(linOpt, 2) = vlnome
.Cells(linOpt, 3) = vltpsang
End With
End Sub