Erro de execução 91: variável no bloco WITH não definida
Enviado: 14 Jul 2020 às 14:58
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
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