Página 1 de 1

Escrever Valor do TextBox1 em célula

Enviado: 11 Set 2019 às 10:05
por 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

Escrever Valor do TextBox1 em célula

Enviado: 11 Set 2019 às 10:56
por Jimmy
Anexe a planilha

Re: Escrever Valor do TextBox1 em célula

Enviado: 11 Set 2019 às 11:36
por denisluan
SEGUE ANEXO... AINDA ESTÁ EM CONSTRUÇÃO

Re: Escrever Valor do TextBox1 em célula

Enviado: 11 Set 2019 às 12:22
por 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

Escrever Valor do TextBox1 em célula

Enviado: 11 Set 2019 às 13:09
por denisluan
Perfeito.... muito obrigado pela ajuda!!!