Boa tarde, comecei a pouco a me aprofundar em Excel avançado e estou criando um projeto de cadastro (clientes, produtos e funcionário). Tudo está indo muito bem, porém eu notei algumas coisas que não consegui identificar de onde vem.

Na tela de clientes, por exemplo, consigo inserir, alterar e excluir e utilizei um Combobox para pesquisar entre os cadastros já realizados. Só que, ao excluir um cadastro, na planilha automaticamente, as linha adjacentes se juntam, sem deixar linhas em branco entre elas. Mas no Combobox ficam "espaços como se tivesse algum dado ali, só que está vazio.

Segue a rotina que eu criei no Combobox (lembrando que estou começando hehe)

Private Sub cmb_localizar_Click()
   'Conta o total de linhas cadastradas
   totalcliente = Worksheets("Clientes").UsedRange.Rows.Count
   
   For i = 0 To totalcliente
     If cmb_localizar.ListIndex = i Then
       txt_nome.Enabled = True
       txt_cpf.Enabled = True
       txt_end.Enabled = True
       txt_bairro.Enabled = True
       txt_cidade.Enabled = True
       txt_cep.Enabled = True
       txt_fone.Enabled = True
       txt_celular.Enabled = True
       btn_excluir.Enabled = True
       btn_alterar.Enabled = True
       btn_imprimir.Enabled = True
       btn_gravar.Enabled = False
       
       txt_nome.BackColor = &H80000005
       txt_cpf.BackColor = &H80000005
       txt_end.BackColor = &H80000005
       txt_bairro.BackColor = &H80000005
       txt_cidade.BackColor = &H80000005
       txt_cep.BackColor = &H80000005
       txt_fone.BackColor = &H80000005
       txt_celular.BackColor = &H80000005
       
     
       txt_nome = Cells(i + 2, 1)
       txt_cpf = Cells(i + 2, 2)
       txt_end = Cells(i + 2, 3)
       txt_bairro = Cells(i + 2, 4)
       txt_cidade = Cells(i + 2, 5)
       txt_cep = Cells(i + 2, 6)
       txt_fone = Cells(i + 2, 7)
       txt_celular = Cells(i + 2, 8)
       Exit Sub
     End If
   Next
End Sub

Segue a tela de como está o problema abaixo

http://oi62.tinypic.com/20zbd02.jpg

Agora na tela de fornecedores, o campo A1 aparece quando não tem nenhum cadastro

Private Sub cmb_localizar_Click()
   'Conta o total de linhas cadastradas
   totalf = Worksheets("Fornecedores").UsedRange.Rows.Count
   
   For i = 0 To totalf
     If cmb_localizar.ListIndex = i Then
       txt_nome.Enabled = True
       txt_fone.Enabled = True
       txt_end.Enabled = True
       txt_bairro.Enabled = True
       txt_cidade.Enabled = True
       txt_cep.Enabled = True
       txt_site.Enabled = True
       btn_excluir.Enabled = True
       btn_alterar.Enabled = True
       btn_imprimir.Enabled = True
       btn_gravar.Enabled = False
       
       txt_nome.BackColor = &H80000005
       txt_fone.BackColor = &H80000005
       txt_end.BackColor = &H80000005
       txt_bairro.BackColor = &H80000005
       txt_cidade.BackColor = &H80000005
       txt_cep.BackColor = &H80000005
       txt_site.BackColor = &H80000005
       
     
       txt_nome = Cells(i + 2, 1)
       txt_fone = Cells(i + 2, 2)
       txt_end = Cells(i + 2, 3)
       txt_bairro = Cells(i + 2, 4)
       txt_cidade = Cells(i + 2, 5)
       txt_cep = Cells(i + 2, 6)
       txt_site = Cells(i + 2, 7)
       Exit Sub
     End If
   Next
End Sub

UserForm

Private Sub UserForm_Initialize()
   Worksheets("Fornecedores").Select
   
   'Conta o total de linha cadastradas
   totalcliente = Worksheets("Fornecedores").UsedRange.Rows.Count

   'Código para preencher a caixa Localizar
   cmb_localizar.RowSource = "Fornecedores!a2:a" & totalcliente
End Sub