Copy data from two cells to another tab

[elsg]

Hi.
I am trying to copy two cells (B4) and (F23) tab ("Orig") and paste values ​​tab ("Dest") but always beneath the cells of Column A and Column B
tab ("Dest")

Private Sub Gravar_Click()
 With Worksheets("Orig")
    With .Range(Cells(4, 2), Cells(23, 6))
    .Copy
    End With
 End With
 Worksheets("Dest").[A65536].End(xlUp)(2).PasteSpecial Paste:=xlValues
 'Sheets("Orig").Range(Cells(4, 2), Cells(23, 6)).Copy
 'Worksheets("Dest").[A65536].End(xlUp)(2).PasteSpecial Paste:=xlValues
End Sub

 

[JoeMo]

Maybe easier to just place the values in your target cells:

Private Sub Gravar_Click()
Dim lR As Long
lR = Worksheets("Dest").[A65536].End(xlUp)
Worksheets("Dest").Range("A" & lR).Value = Worksheets("Orig").Range("B4").Value
Worksheets("Dest").Range("B" & lR).Value = Worksheets("Orig").Range("F23").Value
End Sub

 

[elsg]

Hi.

Runtime Erro 1004

Application-defined or object-defined error

 

[JoeMo]

Hi.

Runtime Erro 1004

Application-defined or object-defined error

Works fine for me. What line is highlighted when you get the error?

 

[elsg]

I tried to hit my mistakes here, but generated another error

Run-time error '13 ':
Type mismatch

this line turns yellow

[COLOR=#333333]lR = Worksheets("Dest").[A65536].End(xlUp)[/COLOR]

 

[JoeMo]

I tried to hit my mistakes here, but generated another error

this line turns yellow

[COLOR=#333333]lR = Worksheets("Dest").[A65536].End(xlUp)[/COLOR]

Change that line to this:

lR = Worksheets("Dest").[A65536].End(xlUp).Row+1

 

[elsg]

Hi
solved the problem of the error, but I need to click again the data
cells go low.
example
Every time I click
A2 B2
A3 B3
A4 B4
A5 B5
A6 B6
A7 B7
A8 B8
A9 B9
and so on

Thanks

 

[JoeMo]

Hi
solved the problem of the error, but I need to click again the data
cells go low.
example
Every time I click
A2 B2
A3 B3
A4 B4
A5 B5
A6 B6
A7 B7
A8 B8
A9 B9
and so on

Thanks

Sorry, but I don't understand what you mean by the data cells go low. Each time you run the macro it will add entries to Column A & B in the first empty row below the last filled cell in column A. If that's not what you want, please provide more detail on what you want the result of running the macro to be.

 

[elsg]

Hi.
to run the macro, I need to enter the data, one below the other.

 

[elsg]

Hi.

Any tips?


thank you!