Lỗi " Sub or function not defined"

[xkibboy]

Chào a c
Xki muốn viết code để lặp lại trình Solver nhưng viết xong Code chạy hoài không được. Chỉ hiện lên lỗi "Sub or function not defined", mà ko biết sai chỗ nào. Mong a c góp ý giúp.
XKi có gởi file đính kém, các a c xem code trong Module 2 nhé. Cảm ơn nhiều.
Đây là code

Sub toiuu()
        SolverAdd CellRef:="$N$16", Relation:=2, FormulaText:="1"
        SolverAdd CellRef:="$F$16:$M$16", Relation:=3, FormulaText:="0"
        SolverAdd CellRef:="$F$16:$M$16", Relation:=1, FormulaText:="1"
        SolverOk SetCell:="$O$16", MaxMinVal:=1, ValueOf:="0", ByChange:="$F$16:$M$16"
       SolverSolve UserFinish:=True
End Sub

Public Sub lap()


    For i = 1 To 40
        Range("c") = -0.003 + i * 0.0005
        Solve
        Application.SendKeys ("{Enter}")
        .Cells(i, 1) = ActiveSheet.Range("c")
        .Cells(i, 2) = ActiveSheet.Range("mean")
        .Cells(i, 3) = ActiveSheet.Range("sigma")
        .Cells(i, 4) = ActiveSheet.Range("x1")
        .Cells(i, 5) = ActiveSheet.Range("x2")
        .Cells(i, 6) = ActiveSheet.Range("x3")
        .Cells(i, 7) = ActiveSheet.Range("x4")
        .Cells(i, 8) = ActiveSheet.Range("x5")
        .Cells(i, 9) = ActiveSheet.Range("x6")
        .Cells(i, 10) = ActiveSheet.Range("x7")
        .Cells(i, 11) = ActiveSheet.Range("x8")
        .Cells(i, 12) = ActiveSheet.Range("sum")
        .Cells(i, 13) = ActiveSheet.Range("theta")
        
        Next i
End Sub

 

[ptm0412]

Bạn đọc lại bài #9. Rồi làm theo: Bật đèn pin rồi tìm ông A (tim_dong_cuoi)

 

[SA_DQ]

. . . . . ,tại sao chạy cod thì excel báo lỗi "sub and fuction not defined" và sửa lỗi giúp em với ạ!

Chú ý cho những lần sau: File của bạn có 1 rừng Code & 1 rừng Form thế kia, thì biết lỗi ở chổ nào đây ta. . . ?

Bạn thêm nội dung hàm này trong module1

Function Tim_Dong_Cuoi(ShName As String, Col As String)

With Sheets(ShName)
    Tim_Dong_Cuoi = .Cells(65500, Col).End(xlUp).Row
End With
End Function

Lúc đó các dòng lệnh gọi hàm này tất tần tật phải sửa lại cú pháp là:

    lr = Tim_Dong_Cuoi("GHISO", "A") + 1
    lr_pnk = Tim_Dong_Cuoi("PNK", "B")

 

[THANH_THUY_1993]

Cảm ơn anh SA_DQ nhé! sữa như anh là hết lỗi luôn rồi ạ.