Snasui Excel Forum

Posted: **Fri Dec 04, 2020 9:25 pm**

Hi Dear

I need to transfer data from C2:C6.
For example I input 3 in C2 it would transfer data from C2:C6 to row 3 of the output data.
I also attached a sample file uploaded here.

Posted: **Fri Dec 04, 2020 9:47 pm**

try it

Code: Select all

Sub Sumpan()
Dim r, t As Long
t = Sheet1.[c2]
r = Sheet1.Range("a" & (10 + t)).Row
Sheet1.Range("a" & r) = Sheet1.Range("c2")
Sheet1.Range("b" & r) = Sheet1.Range("c3")
Sheet1.Range("c" & r) = Sheet1.Range("c4")
Sheet1.Range("d" & r) = Sheet1.Range("c5")
Sheet1.Range("e" & r) = Sheet1.Range("c6")
Sheet1.[c2:c6].ClearContents
End Sub

Posted: **Sat Dec 05, 2020 12:06 pm**

Thank you

Snasui Excel Forum

data entry

data entry

Re: data entry

Re: data entry