Trong sub nhap_lieu mình đã khai báo biến dong_cuoi rồi; đến khi mình viết điều

Chào bạn bạn có thể đẩy code hoặc hình ảnh lên được không?  trong phần Nhap_lieu của bạn có hàm dong_cuoi không?

Sub nhap_lieu2()

    If Range("B2").Value = "" Then

         MsgBox "Ban phai nhap ho va ten"

    Exit Sub

        ElseIf Range("B3").Value = "" Then

        MsgBox "Ban phai nhap muc luong"

    Exit Sub

        ElseIf Range("B4").Value = "" Then

        MsgBox "Ban phai nhap ngay"

    Exit Sub

        Else

        Call nhap_lieu

     ' Dim dongcuoi As Long

    'Theo minh nghi thi dongcuoi da duoc khai báo o sub nhap_lieu roi

    'dongcuoi = Sheet1.Range("F" & Rows.Count).End(xlUp).Row

   Range("F2:H" & dongcuoi).Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

   End If

chào bạn bạn cần tách như thế này

sub nhaplieuluu

      If Range("B2").Value = "" Then

         MsgBox "Ban phai nhap ho va ten"

    Exit Sub

        ElseIf Range("B3").Value = "" Then

        MsgBox "Ban phai nhap muc luong"

    Exit Sub

        ElseIf Range("B4").Value = "" Then

        MsgBox "Ban phai nhap ngay"

    Exit Sub

        Else

        Call nhap_lieu

   end if

 call dindangnhaplieu

end sub

sub dindangnhaplieu

     Dim dongcuoi As Long

    dongcuoi = Sheet1.Range("F" & Rows.Count).End(xlUp).Row

   Range("F2:H" & dongcuoi).Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

end sub

cám ơn thầy - như vậy mình hiểu như vầy không biết có đúng không 

- Biến dòng cuối đã sử dụng ở sub nhaplieuluu  sub này đã thực hiện xong và đã đóng lại

- Kế đó mình định dạng thì phải khai báo lại cho sub dinhdangnhaplieu

Chào bạn đúng rồi ạ