Khi nhập code, các dòng liên quan sẽ xuất hiện!

[zzelldaa]

Chào các bạn GPE,
Hiện tại mình bí ở chổ ... giống như tiêu đề.
Những điều mình mong muốn đã ghi sẳn trong Sheet NHATKY
Các bạn giúp mình với,
Thanks!!!!

 

[nmhung49]

Dùng Vlookup bình thường dùng ô tạm để công thức gọn hơn
Ở I2:
="OS0"&LEFT($C$2,2)&RIGHT($C$2,2)

Khi đó B7 dùng Vlookup bình thường

=VLOOKUP($I$2,HOATDONG!$B$3:$N$9,1,0)

Chỗ màu đỏ thay vị trí cột cần lấy

 

[zzelldaa]

cám ơn bác đã giúp đỡ ạ! Nhưng có lẽ bác hiểu sai ý em rùi.
Như vầy đi cho dễ! Mình muốn cột ID xuất hiện mã ID khi gõ CID trong Sheet NHATKY.
ID = CID Sheet NHATKY (Tên viết tắt cty Sheet DMKH + Tên Cty Sheet HOATDONG)
Ví dụ:
CID: 800002
Tên công ty: Công ty TNHH B & KHO - Công ty TNHH B
Nguyên liên hệ: chị B,
thì trong cột ID sheet NHATKY sẽ xuất hiện lần lượt các ID có liên quan tới tên công ty từ trên xuống dưới ạ.
Một lần nửa cám ơn các bạn đã giúp đỡ ạ ^^!

 

[nmhung49]

cám ơn bác đã giúp đỡ ạ! Nhưng có lẽ bác hiểu sai ý em rùi.
Như vầy đi cho dễ! Mình muốn cột ID xuất hiện mã ID khi gõ CID trong Sheet NHATKY.
ID = CID Sheet NHATKY (Tên viết tắt cty Sheet DMKH + Tên Cty Sheet HOATDONG)
Ví dụ:
CID: 800002
Tên công ty: Công ty TNHH B & KHO - Công ty TNHH B
Nguyên liên hệ: chị B,
thì trong cột ID sheet NHATKY sẽ xuất hiện lần lượt các ID có liên quan tới tên công ty từ trên xuống dưới ạ.
Một lần nửa cám ơn các bạn đã giúp đỡ ạ ^^!

Vậy dùng code xem
[GPECODE=vb]
Sub Test()
Dim DMKH, i As Long, k As Long, j As Long, iR As Long
Dim HDong, KQ, KQTam, TenCT, NguoiLH
DMKH = Sheets("DMKH").Range("B4:E7").Value2
HDong = Sheets("HOATDONG").Range("B3:N9").Value2
ReDim KQTam(1 To UBound(DMKH), 1 To 1)
ReDim KQ(1 To UBound(HDong), 1 To UBound(HDong, 2))
For i = 1 To UBound(DMKH, 2)
If DMKH(i, 1) = Sheets("NHATKY").Range("C2").Value Then
k = k + 1
KQTam(k, 1) = DMKH(i, 2)
TenCT = TenCT & " - " & DMKH(i, 3)
End If
Next
For j = 1 To k
For i = 1 To UBound(HDong)
If KQTam(j, 1) = HDong(i, 3) Then
iR = iR + 1
NguoiLH = HDong(i, 4)
KQ(iR, 1) = HDong(i, 1)
KQ(iR, 2) = HDong(i, 9)
KQ(iR, 3) = HDong(i, 5)
KQ(iR, 4) = HDong(i, 12)
KQ(iR, 5) = HDong(i, 6)
KQ(iR, 6) = HDong(i, 13)
KQ(iR, 7) = HDong(i, 8)


End If
Next
Next
If iR Then
With Sheets("NHATKY")
.Range("B7:H14").ClearContents
.Range("B7").Resize(iR, 7).Value = KQ
.Range("C4").Value = NguoiLH
.Range("C3").Value = Mid(TenCT, 4, 1000)
End With
End If
End Sub

[/GPECODE]

 

[zzelldaa]

xài công thức & hàm được hok bác? Mình không biết gì về code cả, sau này mà sử dụng đại trà là mình bó tay hic hic

 

[nmhung49]

xài công thức & hàm được hok bác? Mình không biết gì về code cả, sau này mà sử dụng đại trà là mình bó tay hic hic

Vậy dùng công thức vì dữ liệu nhiều có thể nặng file tôi dùng cột phụ ở các sheet các công thức đơn giản bạn có thể chỉnh sửa phù hợp hoặc ẩn cột để sheet đẹp hơn

 

[zzelldaa]

Cám ơn bác ạ, file bác đưa đúng ý em rùi ạ, em đang thử trên file chính. Cho mình hỏi là bác làm thế nào để chèn được công thức trên các ký được ạ? ví dụ trong file CTB, khi click vo ô CTB thì nó chứa công thức ạ. với công thức bác để đầu, mình có thể chuyển công thức về cuối hết được ko? Có ảnh hưởng gì đến công thức hok bác??

Một lần nửa thanks bác nhiều lắm ạ hihihi...

 

[nmhung49]

Ví dụ trong file CTB, khi click vo ô CTB thì nó chứa công thức ạ. với công thức bác để đầu, mình có thể chuyển công thức về cuối hết được ko? Có ảnh hưởng gì đến công thức hok bác??

Một lần nửa thanks bác nhiều lắm ạ hihihi...

File CTB ô CTB là ô nào không hiểu bạn cho ví dụ đưa phải lên tôi sẽ xem giúp.

 

[zzelldaa]

À không! Có lẽ do mình làm sai nên nó ko hiện! Mình đã làm được trên file chính rùi ạ. Thanks bạn nhìu lắm

 

[tanbinh2002]

Gởi bạn: zzelldaa
Mình phát triển công thức từ 01 file của bạn Let'GâuGâu giúp đỡ mình trước đây, gởi bạn file mình làm bạn xem sao nhé.
Do Mã khách hàng và Tên khách hàng có trùng nhau về mã (80002: CTB và CTB_KHO) nên mình phải thêm cột phụ ở sheet HOATDONG