PaiDeLaura
-
Total de itens
2 -
Registro em
-
Última visita
Posts postados por PaiDeLaura
-
-
Boa tarde!
Gostaria de saber ou quem puder me ajudar, fazer uma validação que, ao aparecer a caixa do Inputbox e ao clicar no campo vazio, fornecer uma mensagem de campo obrigatório e logo após aparecer novamente para digitar. Vou colocar o código aqui:
Sub cadastro_agenda()
nome = InputBox("Digite o nome:")
telefone = InputBox("Digite o telefone:")
setor = InputBox("Digite o setor:")
lin = Range("A1").End(xlDown).Row + 1
Cells(lin, 1) = nome
Cells(lin, 2) = telefone
Cells(lin, 3) = setorEnd Sub
Espero que possam me dar essa luz! Forte abraço!
Erro em tempo de execução: -2147467259 (80004005): Erro não especificado
em VBA
Postado
Bom dia,
Erro em tempo de execução '-2147467259(80004005)': Erro não especificado
Eis o código:
Private Sub btnPesquisar_Click()
Dim linhaFinal, linha, x As Integer
ListBox1.Clear // o erro para aqui e não depura mais
linhaFinal = Planilha1.Cells(Rows.Count, 1).End(xlUp).Row
x = 0
For linha = 2 To linhaFinal
If Planilha1.Cells(linha, 1).Value >= MonthView1 And Planilha1.Cells(linha, 1).Value <= MonthView2 Then
ListBox1.AddItem Planilha1.Cells(linha, 1).Value
ListBox1.List(x, 1) = Planilha1.Cells(linha, 2).Value
ListBox1.List(x, 2) = Planilha1.Cells(linha, 3).Value
ListBox1.List(x, 3) = Planilha1.Cells(linha, 4).Value
ListBox1.List(x, 4) = Planilha1.Cells(linha, 5).Value
x = x + 1
End If
Next
End Sub
Porque isso acontece e o que pode ser feito?
Preciso da ajuda dos colegas!
Forte abraço!