vòng lặp có điều kiện bị lỗi (1 người xem)

[loy]

chào các bạn.

mình cũng mới tập viết macro, vòng lặp bị lỗi, như thế này, mình có đính kèm file theo bài viết
mình tạo vòng lặp để nó lấy giá trị bên sheet KiemtraKNCL qua sheet DataBDTT mà không được.
nhờ các anh em xem rồi hiệu chỉnh giúp mình với, chứ mình cũng không rành cái này lắm.

cảm ơn các bạn nhiều nha!

Private Sub XuatMN_Click()
    i = 27
    n = 24
    While Sheets("KiemTraKNCL").Cells(n, "D") <> ""
        If Sheets("KiemTraKNCL").Cells(n, "D") = Cells(13, "D") Then
            Cells(i, "Q") = Sheets("KiemTraKNCL").Cells(n, "F")
            Cells(i, "N") = Abs(Sheets("KiemTraKNCL").Cells(n, "G"))
            Cells(i, "O") = Abs(Sheets("KiemTraKNCL").Cells(n, "H"))
            Cells(i, "P") = Abs(Sheets("KiemTraKNCL").Cells(n, "I"))
            
        End If
    n = n + 1
    Wend
End Sub

 

[ndu96081631]

chào các bạn.

mình cũng mới tập viết macro, vòng lặp bị lỗi, như thế này, mình có đính kèm file theo bài viết
mình tạo vòng lặp để nó lấy giá trị bên sheet KiemtraKNCL qua sheet DataBDTT mà không được.
nhờ các anh em xem rồi hiệu chỉnh giúp mình với, chứ mình cũng không rành cái này lắm.

cảm ơn các bạn nhiều nha!

Private Sub XuatMN_Click()
    i = 27
    n = 24
    While Sheets("KiemTraKNCL").Cells(n, "D") <> ""
        If Sheets("KiemTraKNCL").Cells(n, "D") = Cells(13, "D") Then
            Cells(i, "Q") = Sheets("KiemTraKNCL").Cells(n, "F")
            Cells(i, "N") = Abs(Sheets("KiemTraKNCL").Cells(n, "G"))
            Cells(i, "O") = Abs(Sheets("KiemTraKNCL").Cells(n, "H"))
            Cells(i, "P") = Abs(Sheets("KiemTraKNCL").Cells(n, "I"))
            
        End If
    n = n + 1
    Wend
End Sub

Biến i không cho tăng lên thì code làm sao chạy?

Private Sub XuatMN_Click()
  i = 27
  n = 24
  While Sheets("KiemTraKNCL").Cells(n, "D") <> ""
    If Sheets("KiemTraKNCL").Cells(n, "D") = Cells(13, "D") Then
      Cells(i, "Q") = Sheets("KiemTraKNCL").Cells(n, "F")
      Cells(i, "N") = Abs(Sheets("KiemTraKNCL").Cells(n, "G"))
      Cells(i, "O") = Abs(Sheets("KiemTraKNCL").Cells(n, "H"))
      Cells(i, "P") = Abs(Sheets("KiemTraKNCL").Cells(n, "I"))
     [COLOR=#ff0000][B] i = i + 1[/B][/COLOR]
    End If
    n = n + 1
  Wend
End Sub

 

[loy]

hihi!
cảm ơn sư huynh nhé!
mềnh là mềnh thích cái diễn đàn này rồi đó nha! hihi