Este fórum está sendo desativado

[denisluan]

Bom dia a todos
Tenho uma TextBox1 no meu form, e gostaria que quando clicasse no botão (CommandButton1) o que estiver escrito na TextBox1 seja e escrito em uma determinada célula de outra aba (aba “Notas”)
Na aba “Notas” tenho na coluna A todos os dias do ano, gostaria que o texto do TextBox1 fosse para a célula da coluna B correspondente a data que tenho na célula C13.
Usei a função Match (corresp)
Mas estou apanhando disso, vejam como escrevi...

Private Sub CommandButton1_Click()

Dim I
I = WorksheetFunction.Match(Sheets("Relatório").Range("C13"), Sheets("Notas").Range("A:A"), 0)

Sheets("Notas").Select
Range(Cells(I, 2)).Select
Selection = TextBox1.Value

End Sub

[Jimmy]

Anexe a planilha

[denisluan]

SEGUE ANEXO... AINDA ESTÁ EM CONSTRUÇÃO

[Jimmy]

O que foi digitado não está indo pra planilha NOTAS porque há um erro.

Altere
Range(Cells(I, 2)).Select
para
Cells(I, 2).Select

Se não tiver a necessidade de selecionar a célula, por outros motivos, pode trocar
Sheets("Notas").Select
Range(Cells(I, 2)).Select
Selection = TextBox1.Value
por
Sheets("Notas").Cells(I, 2).value = TextBox1.Value

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.

Jimmy San Juan

[denisluan]

Perfeito.... muito obrigado pela ajuda!!!