Mong mọi người giúp khắc phục code bị lỗi (chuyển dòng thành cột) (1 người xem)

[hhoang_56]

Dựa vào code có trên GPE, mình mới mày mò sửa lại được đoạn code sau:

Private Sub UserForm_Initialize()
'On Error Resume Next
    txt_bd = "A"
    txt_kt = 2
    txt_num = 10
    txt_num.SetFocus
  
End Sub


Private Sub Button_OK_Click()
    Dim Rng As Range, ToRng As Range, i As Long
    Dim lRow As Long
    Dim a As Long, col_des As Long, col_kt As Long
    Dim sh As String, col_bd  As String
    Application.ScreenUpdating = False


    col_bd = txt_bd
    col_kt = txt_kt
    col_des = txt_num
    
    col_des = col_des * col_kt
    If OptionButton1.Value = True Then
        sh = "Data1"
    Else
        sh = "Data2"
    End If
    
    a = Worksheets(sh).Range("A65000").End(xlUp).Row
    If a < 2 Then
        MsgBox "Khong co du lieu de xoa"
    Else
        Worksheets(sh).Range("A2:BD" & a).ClearContents
    End If
      Set ToRng = Worksheets(sh).Range(Cells(2, 1), Cells(2, col_des)) 
  
    Application.ScreenUpdating = True
    
End Sub

Nhưng khi chạy code thì luôn báo lỗi ở dòng này:

 Set ToRng = Worksheets(sh).Range(Cells(2, 1), Cells(2, col_des))

Mình không biết các khắc phục, mong mọi người gỡ rối dùm mình.

 

[sealand]

Các đoạn trên không lỗi thì đến 90% là lỗi từ col_des.
Mà bạn đã gán col_des=txt_num nên rất có thể txt_num mắc lỗi sau:
1/ Là số <=0 hay lớn hơn số cột của sheet (Tùy theo phiên bản)
2/Là ký tự, trống không phải là số

 

[hhoang_56]

Các đoạn trên không lỗi thì đến 90% là lỗi từ col_des.
Mà bạn đã gán col_des=txt_num nên rất có thể txt_num mắc lỗi sau:
1/ Là số <=0 hay lớn hơn số cột của sheet (Tùy theo phiên bản)
2/Là ký tự, trống không phải là số

mình thử test với số là 1, 2, 3.... thì có lỗi
Nó báo lỗi như thế này : Error 1004 "Application-defined or Object-defined error"

 

[giangleloi]

mình thử test với số là 1, 2, 3.... thì có lỗi
Nó báo lỗi như thế này : Error 1004 "Application-defined or Object-defined error"

Muốn nhanh có kết quả thì đính kèm file lên, nói "suông" đến bao giờ mới tới nơi.

 

[hhoang_56]

Đã giải quyết xong đoạn code