destination paste to Table >>ONLY VALUE

[a_t_a]

hi
when i press save button ,

my value pastet to sheet "data" With border

i want past to data sheet without any border , just value

download file :
https://ufile.io/ql5uk

Sub Rectangle2_Click()
 
z1 = Range("B5").End(xlDown).Row

z2 = Sheets("Data").Cells(Sheets("Data").Rows.Count, "c").End(xlUp).Row + 1

Range("b6:e" & z1).Copy Destination:=Sheets("Data").Range("c" & z2) 'problem here

z3 = Sheets("Data").Cells(Sheets("Data").Rows.Count, "c").End(xlUp).Row

For i = z2 To z3

Sheets("Data").Range("b" & i) = Range("b2") '
Next

MsgBox ("succ")
End Sub

tanx

 

[Yongle]

One way is to attribute values from one range to the other

Sub Rectangle2_Click()
    Dim z1 As Long, z2 As Long, z3 As Long, i As Long
    [COLOR=#ff0000]Dim rng1 As Range, rng2 As Range[/COLOR]
    
    z1 = Range("B5").End(xlDown).Row
    z2 = Sheets("Data").Cells(Sheets("Data").Rows.Count, "c").End(xlUp).Row + 1
[COLOR=#ff0000]    Set rng1 = Range("b6:e" & z1)
    Set rng2 = Sheets("Data").Range("c" & z2).Resize(rng1.Rows.Count, rng1.Columns.Count)[/COLOR]
    [COLOR=#ff0000]rng2.Value = rng1.Value[/COLOR]
    z3 = Sheets("Data").Cells(Rows.Count, "c").End(xlUp).Row
    For i = z2 To z3
       Sheets("Data").Range("b" & i) = Range("b2")
    Next

    MsgBox ("succ")
End Sub

Variable declaration made for ALL varables
- declaring variables is voluntary
- can help you spot problems in your code

 

[Yongle]

and ...
... to avoid an unnecessary loop (which makes code slower)

replace

    For i = z2 To z3
       Sheets("Data").Range("b" & i) = Range("b2")
    Next

with

    Sheets("Data").Range("b" & z2).Resize(z3 - z2 + 1) = Range("b2")