Prezados... boa noite.
Peço a gentileza do auxílio de vcs, uma vez que, não estou conseguindo descobrir a origem deste erro !!!
Obs: no momento da depuração, ao clicar F8, esta é a linha d programa que acredito, apresente o erro (pesquisa = Worksheets("plan1").UsedRange.Rows.Count).
Segue abaixo o programa:
Private Sub Excluir_Click()
If Localizarnome.ListIndex = -1 Then
MsgBox "Você não selecionou o nome"
Exit Sub
End If
linha = Localizarnome.ListIndex + 2
With Worksheets("plan1")
.Rows(linha).Delete
MsgBox "Nome Excluído !!!"
End With
End Sub
Private Sub Fechar_Click()
Unload Tela
End Sub
Private Sub Limpar_Click()
Nome = ""
Data1 = ""
Email1 = ""
NumeroVooChegada = ""
HorarioVooChegada = ""
NumeroVooSaida = ""
HorarioVooSaida = ""
Status1 = ""
Data2 = ""
Cliente1 = ""
Email2 = ""
Aniversario1 = ""
Cliente2 = ""
Email3 = ""
Aniversario2 = ""
Cliente3 = ""
Email4 = ""
Aniversario3 = ""
Cliente4 = ""
Email5 = ""
Aniversario4 = ""
Cliente5 = ""
Email6 = ""
Aniversario5 = ""
Cliente6 = ""
Email7 = ""
Aniversario6 = ""
Cliente7 = ""
Email8 = ""
Aniversario7 = ""
Cliente8 = ""
Email9 = ""
Aniversario8 = ""
Duracao1 = ""
Valor1 = ""
Localizarnome = ""
End Sub
Private Sub Salvar_Click()
totalregistro = Worksheets("plan1").UsedRange.Rows.Count + 1
With Worksheets("plan1")
.Cells(totalregistro, 1) = Nome
.Cells(totalregistro, 2) = Data1
.Cells(totalregistro, 3) = Email1
.Cells(totalregistro, 4) = NumeroVooChegada
.Cells(totalregistro, 5) = HorarioVooChegada
.Cells(totalregistro, 6) = NumeroVooSaida
.Cells(totalregistro, 7) = HorarioVooSaida
.Cells(totalregistro,
= Status1
.Cells(totalregistro, 9) = Data2
.Cells(totalregistro, 10) = Cliente1
.Cells(totalregistro, 11) = Email2
.Cells(totalregistro, 12) = Aniversario1
.Cells(totalregistro, 13) = Cliente2
.Cells(totalregistro, 14) = Email3
.Cells(totalregistro, 15) = Aniversario2
.Cells(totalregistro, 16) = Cliente3
.Cells(totalregistro, 17) = Email4
.Cells(totalregistro, 18) = Aniversario3
.Cells(totalregistro, 19) = Cliente4
.Cells(totalregistro, 20) = Email5
.Cells(totalregistro, 21) = Aniversario4
.Cells(totalregistro, 22) = Cliente5
.Cells(totalregistro, 23) = Email6
.Cells(totalregistro, 24) = Aniversario5
.Cells(totalregistro, 25) = Cliente6
.Cells(totalregistro, 26) = Email7
.Cells(totalregistro, 27) = Aniversario6
.Cells(totalregistro, 28) = Cliente7
.Cells(totalregistro, 29) = Email8
.Cells(totalregistro, 30) = Aniversario7
.Cells(totalregistro, 31) = Cliente8
.Cells(totalregistro, 32) = Email9
.Cells(totalregistro, 33) = Aniversario8
.Cells(totalregistro, 34) = Duracao1
.Cells(totalregistro, 35) = Valor1
End With
MsgBox "Gravado com sucesso"
End Sub
Private Sub UserForm_Initialize()
Status1.AddItem "Aguardando Confirmação"
Status1.AddItem "Confirmado"
pesquisa = Worksheets("plan1").UsedRange.Rows.Count
If pesquisa > 1 Then
Localizarnome.RowSource = "a2:a" & pesquisa
End If
End Sub