Este fórum está sendo desativado

[Dunguinha]

Olá.
Poderiam me ajudar com um código para salvar as TextBox do formulário na planilha?
Só preciso que não duplique a data na Coluna "B".
Caso já exista a data digitada no TextBox1 na coluna "B" só fazer alteração na coluna "C".

[osvaldomp]

Experimente:

Private Sub CommandButton1_Click()
Dim r As Range
Set r = [B:B].Find(CDate(TextBox1.Value))
If Not r Is Nothing Then
r.Offset(, 1).Value = TextBox2.Value
Else: Cells(Rows.Count, 2).End(3)(2).Resize(, 2).Value = Array(CDate(TextBox1.Value), TextBox2.Value)
End If
Unload Me
End Sub

[Dunguinha]

Obrigado Osvaldo, ficou perfeito.