Я новичок в VBA и почти ничего не знаю. Я пытался код, чтобы найти значение, введенное в поле ввода "CXRG", найти на листе "ESTOQUEV" вырезать все строки и вставить на листе "SAIDA" (вниз от других значений) и стереть пустую строку из "ESTOQUEV""
Кто-нибудь может мне помочь?
Private Sub CommandButton1_Enter()
linha = Worksheets("SAIDA").Range("A100000").End(xlUp).Row + 1
Worksheets("SAIDA").Cells(linha, 1) = CXOS.Value
Worksheets("SAIDA").Cells(linha, 2) = CXRG.Value
CXOS.Text = ""
CXRG.Text = ""
SendKeys "{TAB}", True ' Envia TAB para pular par o inicio.
Call refresh.Macro8
End Sub