Các bạn giúp mình code copy cho button (1 người xem)

[hoang0569]

Mình gửi file, các bạn giúp mình với nhé, cảm ơn nhiều.

 

[giaiphap]

Khi nào mới copy vậy bạn, mở file lên là nó copy hay đóng file nó mới copy.

 

[hoang0569]

Ý mình là dùng 1 button mà khi nhập xong data vào vùng A2:E12 và chọn A1 thì sẽ copy sang vùng tương ứng.

 

[luongsonlong211]

Sub cooppppy()
If Sheet1.Range("A1") = "Ha Noi" Then
Sheet1.Range("a2:e12").Copy Sheet1.Range("H5:L15")
ElseIf Sheet1.Range("A1") = "Nam Dinh" Then
Sheet1.Range("a2:e12").Copy Sheet1.Range("H16:L26")
ElseIf Sheet1.Range("A1") = "Thai Binh" Then
Sheet1.Range("a2:e12").Copy Sheet1.Range("H27:L37")
End If

End Sub
loáng thoáng kiểu dáng như vậy.. tớ cũng gà nên ..

 

[chaoban888]

Bạn xem bài này của mình, mình hỏi xong tự giải luôn
http://www.giaiphapexcel.com/forum/...py-dữ-liệu-đến-vị-trí-chỉ-định-theo-điều-kiện

 

[VetMini]

Sub cooppppy()
If Sheet1.Range("A1") = "Ha Noi" Then
Sheet1.Range("a2:e12").Copy Sheet1.Range("H5:L15")
ElseIf Sheet1.Range("A1") = "Nam Dinh" Then
Sheet1.Range("a2:e12").Copy Sheet1.Range("H16:L26")
ElseIf Sheet1.Range("A1") = "Thai Binh" Then
Sheet1.Range("a2:e12").Copy Sheet1.Range("H27:L37")
End If

End Sub
loáng thoáng kiểu dáng như vậy.. tớ cũng gà nên ..

vung = Application.Match(Sheet1.Range("a1").Value, [ { "Ha Noi", "Nam Dinh", "Thai Binh" } ], 0)
If IsNumeric(vung) Then _
Sheet1.Range("a2:12").Copy Destination:=Sheet1.Range(Choose(vung, "H5", "H16", "H27"))

 

[luongsonlong211]

vung = Application.Match(Sheet1.Range("a1").Value, [ { "Ha Noi", "Nam Dinh", "Thai Binh" } ], 0)
If IsNumeric(vung) Then _
Sheet1.Range("a2:12").Copy Destination:=Sheet1.Range(Choose(vung, "H5", "H16", "H27"))

hay..procó khác. thank bạn nhé..