xin giúp đỡ copy bằng vba

[lehungbx]

chào anh chị .e có một file như bên dưới
1 có một bảng dữ liệu gồm tên công ty và chuyên nghành
và có 1 data validation dùng để lựa chọn tên công ty
em muốn dùng recod macro để copy chuyên nghành của từng công ty vào vị trí e muốn
chẳng hạn khi e lựa chọn công ty nào thì nó sẽ tự đông copy tên chuyên nghành vào vị trí e muốn như ở bên trái
code như sau ạ
Sub CHAY()
'
' CHAY Macro
'

'
Range("L11:L12").Select
Selection.Copy
Range("C12:C13").Select
ActiveSheet.Paste
Range("D23").Select
End Sub

e có thêm 1 bảng nữa đó là thay chuyên nghành thành các ô dòng
ý em muốn đó làkhi e lựa chọn tên công ty thì trong code copy ở trên tự động thay Range("L11:L12").Select
thành các ô dòng tương ứng với tên công ty
chẳng hạn công ty A là L11:L12
khi lựa chọn công ty b thì thay thành L13:L14
mong anh chị giúp đỡ ạ

 

[SA_DQ]

Chắc xài VLOOKUP() hay hơn; Còn vẫn muốn xài VBA thì đưa lên diễn đàn có ngôn ngữ của file bạn mà hỏi.

 

[quanluu]

Bạn sử dụng vòng lặp và if là được.
For i = 12 to 18
if CotTenCty = TenCty then
.....
end if
Next

 

[Maika8008]

Ngành chứ sao lại là nghành bạn? Nhìn chữ nghành vậy mà cũng không thấy "trái con mắt" thì cũng lạ!