Excel ComboBox sem data dando Tipos Incompatíveis

[jcgmcs]

Boa noite..

Utilizo esse código abaixo pra gravar alteração de data, mas quando não há data à ser colocada no ComboBox o código dá Erro '13' Tipos incompatíveis

Sheets("Clientes").Cells(Linha, "M") = CDate(UserForm1.cbCadComprouDia.Text)

Alguma solução pra isso..?

 

[Midori]

Use a função IsDate para verificar o texto do Combo,

If IsDate(UserForm1.cbCadComprouDia.Text) Then
    Sheets("Clientes").Cells(Linha, "M") = CDate(UserForm1.cbCadComprouDia.Text)
End If

 

[jcgmcs]

Midori bom dia amigo! obrigado por seu retorno..

Olha só, vejae os códigos q tenho...

Onde eu colocaria essa sua função?

 

Sub Alterar_Registro_Cliente()

Dim cod As String
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Clientes")
With ws
Linha = 5
cod = UserForm1.Pesquisa_Codigo.Text

Do Until Sheets("Clientes").Cells(Linha, 2) = "" 'Coluna
If Sheets("Clientes").Cells(Linha, "B") = cod Then

Sheets("Clientes").Cells(Linha, "C") = UserForm1.cbCadEmpresaCliente.Text
Sheets("Clientes").Cells(Linha, "D") = UserForm1.cbCadNomeContato.Text
Sheets("Clientes").Cells(Linha, "E") = UserForm1.txtCadFixoCelular.Text
Sheets("Clientes").Cells(Linha, "F") = UserForm1.txtCadCelularWhatsApp.Text
Sheets("Clientes").Cells(Linha, "G") = UserForm1.cbCadCidade.Text
Sheets("Clientes").Cells(Linha, "H") = UserForm1.cbCadBairro.Text
'Sheets("Clientes").Cells(Linha, "I") = UserForm1.cbCadContatoHáDias.Text
Sheets("Clientes").Cells(Linha, "J") = CDate(UserForm1.cbCadContatoDia.Text)
Sheets("Clientes").Cells(Linha, "K") = UserForm1.cbCadObservações.Text
Sheets("Clientes").Cells(Linha, "L") = UserForm1.cbCadContatoPor.Text
Sheets("Clientes").Cells(Linha, "M") = CDate(UserForm1.cbCadComprouDia.Text)
Sheets("Clientes").Cells(Linha, "N") = UserForm1.cbCadStatusWhatsApp.Text
Sheets("Clientes").Cells(Linha, "O") = UserForm1.cbCadCompraCom.Text
'Sheets("Clientes").Cells(Linha, "P") = UserForm1.cbCadRetornouHáDias.Text
'Sheets("Clientes").Cells(Linha, "Q") = CDate(UserForm1.cbCadRetornouDia.Text)
Sheets("Clientes").Cells(Linha, "R") = UserForm1.cbCadPretensãoCompraEm.Text
Sheets("Clientes").Cells(Linha, "S") = UserForm1.cbCadAmostra.Text '13
Sheets("Clientes").Cells(Linha, "T") = UserForm1.cbCadEndereçoSN.Text
Sheets("Clientes").Cells(Linha, "U") = UserForm1.cbCadRamo.Text
Sheets("Clientes").Cells(Linha, "W") = UserForm1.cbCadListarTodos.Text
Sheets("Clientes").Cells(Linha, "X") = UserForm1.cbCadEmail.Text '22
'Sheets("Clientes").Cells(Linha, "Y") = UserForm1.cbCadVendaMA.Text
Sheets("Clientes").Cells(Linha, "Z") = UserForm1.cbCadVisitadoSN.Text
Sheets("Clientes").Cells(Linha, "AA") = UserForm1.cbCadVisitadoDia.Text
Sheets("Clientes").Cells(Linha, "AC") = UserForm1.cbCadTotalApresentação.Text
Sheets("Clientes").Cells(Linha, "AD") = UserForm1.cbCadComprouNoConcorrenteEm.Text
'Sheets("Clientes").Cells(Linha, "AE") = CDate(UserForm1.cbCadVistoOnlineDia.Text)
'Sheets("Clientes").Cells(Linha, "AF") = UserForm1.cbCadContatoAno.Text
'Sheets("Clientes").Cells(Linha, "AG") = UserForm1.cbCadRetornouAno.Text
'Sheets("Clientes").Cells(Linha, "AH") = UserForm1.cbCadContatoMA.Text
'Sheets("Clientes").Cells(Linha, "AJ") = UserForm1.cbCadRetornouMA.Text
Sheets("Clientes").Cells(Linha, "AK") = UserForm1.cbCadTeste.Text
Sheets("Clientes").Cells(Linha, "BL") = UserForm1.cbCadEndereço.Text

MsgBox "Cadastro Alterado com Sucesso!", vbInformation, "ALTERADO"

Exit Sub
End If
End If
Linha = Linha + 1
Loop

End With

End Sub

[jcgmcs]

Me ajudae pessoal...!!