làm sao cố định range ?

[SoiBien]

Công thức như thế này mà bạn ấy cứ cho là đúng thì tôi thật ko hiểu nỗi...
ttphong2007 và ThuNghi nghĩ sao? Hay tôi bị nhằm ???
ANH TUẤN

SUMPRODUCT(DRP!$Q$2:$Q$67*(DRP!$E$2:$E$67=$B6)*(DR P!$M$2:$M$67=G$5))

Sai cái chỗ đó đó bác ơi.

 

[vumian]

Dear all,
Chân thành đã giúp đỡ , nhưng còn 1 vấn đề nữa là
- Trong file DRP...xls thì cột Itemcode thường có những Itemcode mới (tức là chưa có bên cột SKUs của file Output, loadingplan Sheet)
=> Khi chạy macro, thì sẽ bị thiếu sót phần Itemcode mới này
Vậy : VIết module như thế nào để duyệt từ Itemcode bên DRP so với SKUs bên Output, nếu chưa có thì msgbox cho từng cái, nếu đầy đủ thì im re
Cám ơn nhiều

 

[tedaynui]

Hi hi, tui đây nè. Cha nội này là chiến hữu của mình nè. Hôm nào offline CFC nhớ đi nha.
Ông chạy thử code củ chuối này coi, nếu không vừa ý thì mình chỉnh tiếp hé

Sub IsItemCode()
Dim i As Integer, k As Integer, temp As Long
If bIsBookOpen("Report File.xls") Then
    i = 6
    Do While Sheet3.Cells(i, 2) <> ""
        temp = Sheet3.Cells(i, 2)
        If Evaluate("=COUNTIF('[Report File.xls]Sheet1'!$E:$E," & temp & ")") = 0 Then _
            MsgBox "Hix, thieu ItemCode nay roi :  " & temp
        i = i + 1
    Loop
Else
    MsgBox "Open now !", vbCritical
End If
End Sub

____________________
Lâu quá không gặp, hôm nào rãnh alô tui cái há, hi hi

Thân!
TDN

 

[ThuNghi]

SUMPRODUCT(DRP!$Q$2:$Q$67*(DRP!$E$2:$E$67=$B6)*(DRP!$M$2:$M$67=G$5))
SUMPRODUCT((DRP!$E$2:$E$67=$B6)*(DRP!$M$2:$M$67=G$5)*DRP!$Q$2:$Q$67)
SUMPRODUCT((DRP!$Q$2:$Q$67)*(DRP!$E$2:$E$67=$B6)*(DRP!$M$2:$M$67=G$5))
Cái này gọi là cái gì tóan tử, quên rồi.
Tất cả ct trên đầu OK, trừ Blank (SoiBien chỉ), khi copy ct từ bảng tính sang hay bị như vậy.
Còn Offset(Qty,0,-14) là lấy Name Qty tính lùi về trái 14 cột. (Offset(Qty,Row,Column)

 

[vumian]

hi TeDayNui,
Choài, tui thấy nick này tui nghi lắm, ai dè là cha nụi thiệt, haha,hôm nào lấy cục gạch alô quậy tưng luôn , mà sao cái code của ông kỳ kỳ vậy, - Sheet3 ở đâu ra, sao cho i chạy từ dòng 6,
- cái dòng Evaluate() sẽ báo lỗi vì sau khi copy xong, tui exit cái file DRP..xls rùi


hi ThuNghi,
Bác hiểu ý tui, hehe


Hi anhtuan1066,SoiBien,
Rõ rùi nhá, do copy vô đây nó bị vậy thôi à

Anyway, thanks all

 

[tedaynui]

hi TeDayNui,
Choài, tui thấy nick này tui nghi lắm, ai dè là cha nụi thiệt, haha,hôm nào lấy cục gạch alô quậy tưng luôn , mà sao cái code của ông kỳ kỳ vậy, - Sheet3 ở đâu ra, sao cho i chạy từ dòng 6,
- cái dòng Evaluate() sẽ báo lỗi vì sau khi copy xong, tui exit cái file DRP..xls rùi

+ Sheet3 <> SheetName = "Sheet3" mà
+ i=6 vì data của ông bắt đầu từ dòng 6 mà
+ Còn Evalueate() báo lỗi vì File đóng, hi hi.. Nhưng bây giờ kết quả mĩ mãn rồi nên khỏi ngâm cứu hé.

@ hôm nào rãnh alô tui cái hé.

 

[vumian]

Hi hi, tui đây nè. Cha nội này là chiến hữu của mình nè. Hôm nào offline CFC nhớ đi nha.
Ông chạy thử code củ chuối này coi, nếu không vừa ý thì mình chỉnh tiếp hé

Sub IsItemCode()
Dim i As Integer, k As Integer, temp As Long
If bIsBookOpen("Report File.xls") Then
    i = 6
    Do While Sheet3.Cells(i, 2) <> ""   
        temp = Sheet3.Cells(i, 2)
        If Evaluate("=COUNTIF('[Report File.xls]Sheet1'!$E:$E," & temp & ")") = 0 Then _
            MsgBox "Hix, thieu ItemCode nay roi :  " & temp
        i = i + 1
    Loop
Else
    MsgBox "Open now !", vbCritical
End If
End Sub

____________________
Lâu quá không gặp, hôm nào rãnh alô tui cái há, hi hi

Thân!
TDN

hi TeDayNui oi,

Trong Output file, tui muốn xem những Itemcode nào thuộc DRP sheet chưa có bên Loading Plan sheet, thì msgbox, Với code sau

i = 2
Do While Sheet1.Cells(i, 5) <> "" <=== cái chỗ này làm sao cho chạy từ dòng 2 -> đến dòng cuối của range dữ liệu
temp = Sheet1.Cells(i, 5)
If Evaluate("=COUNTIF('LoadingPlan'!$B:$B," & temp & ")") = 0 Then _
MsgBox "Hix, thieu ItemCode nay roi : " & temp
i = i + 1
Loop

Chạy chưa đúng, hixhix

Thanks