Как найти, вырезать, вставить и стереть с кодом VBA - PullRequest
1 голос
/ 28 октября 2019

Я новичок в 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

1 Ответ

0 голосов
/ 29 октября 2019

Вы должны попробовать этот код (запустить только findAndPast())

Sub findAndPast()

Dim shttoFind As Worksheet
Dim shttoPast As Worksheet
Dim LastRowOffind As Long
Dim inBox As String
Dim cell As Range


Set shttoFind = Worksheets("ESTOQUEV")
Set shttoPast = Worksheets("SAIDA")

    Call Find_Last
    LastRowOffind = shttoPast.Cells(shttoPast.Rows.Count, "A").End(xlUp).Row + 1
    ActiveCell.EntireRow.Copy
    shttoPast.Activate
    shttoPast.Cells(LastRowOffind, 1).PasteSpecial
    shttoFind.Activate
    ActiveCell.EntireRow.Delete

End Sub

Sub Find_Last()
    Dim FindString As String
    Dim Rng As Range
    FindString = InputBox("Enter a Search value")
    If Trim(FindString) <> "" Then
        With Sheets("ESTOQUEV").Range("A:C")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(1), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "Nothing found"
            End If
        End With
    End If
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...