Lỗi chọn dòng thứ 6 trong sheet được chọn: rows("6:6").select

[vuha]

Em có file dữ liệu đính kèm, em đã tạo lệnh chọn dòng tiêu đề bảng trong 1 sheet để lọc nhưng bị lỗi như ảnh đính kèm. Em nhờ các anh chị em chỉ giúp em bị lỗi thế là sao và sửa lỗi như thế nào ạ. Em cảm ơn nhiều.

 

[Hoàng Tuấn 868]

Em có file dữ liệu đính kèm, em đã tạo lệnh chọn dòng tiêu đề bảng trong 1 sheet để lọc nhưng bị lỗi như ảnh đính kèm. Em nhờ các anh chị em chỉ giúp em bị lỗi thế là sao và sửa lỗi như thế nào ạ. Em cảm ơn nhiều.

Bạn thử bỏ gộp ô ở dòng 6 đi và thay:
Rows("6:6").Select
Thành:
Sheets("1.1").Rows("6:6").Select
Xem thế nào.

 

[BuiQuangThuan]

Em có file dữ liệu đính kèm, em đã tạo lệnh chọn dòng tiêu đề bảng trong 1 sheet để lọc nhưng bị lỗi như ảnh đính kèm. Em nhờ các anh chị em chỉ giúp em bị lỗi thế là sao và sửa lỗi như thế nào ạ. Em cảm ơn nhiều.

sửa thế này đi bạn.

 

[vuha]

sửa thế này đi bạn. View attachment 305569

Nhưng đoạn lệnh For... next tiếp theo đó là mình muốn sang sheet7 (là sheet HĐ khoán 1.1) để in thì đoạn code dưới đó có phải thêm lệnh chọn để thao tác in từ sheet này chứ nhỉ

Bài đã được tự động gộp: Hôm qua, lúc 15:41

Bạn thử bỏ gộp ô ở dòng 6 đi và thay:
Rows("6:6").Select
Thành:
Sheets("1.1").Rows("6:6").Select
Xem thế nào.

Để mình thử xem, cảm ơn bạn nhiều nhé.

 

[vuha]

sửa thế này đi bạn. View attachment 305569

mình sửa như thế thì lại báo lỗi như ảnh mình đính kèm sau đây bạn ạ.

Bài đã được tự động gộp: Hôm qua, lúc 16:26

Bạn thử bỏ gộp ô ở dòng 6 đi và thay:
Rows("6:6").Select
Thành:
Sheets("1.1").Rows("6:6").Select
Xem thế nào.

mình gộp như thế nhưng lại báo lỗi chính dòng này luôn như ảnh mình đính kèm dưới bạn ạ.

 

[BuiQuangThuan]

mình sửa như thế thì lại báo lỗi như ảnh mình đính kèm sau đây bạn ạ.

mình gộp như thế nhưng lại báo lỗi chính dòng này luôn như ảnh mình đính kèm dưới bạn ạ.

Thử thay code cũ bằng code này coi. Do bạn không khai báo rõ ràng. nên đoán mò

Private Sub CommandButton1_Click()
Dim rng As Range, rng1 As Range, clls As Range, clls1 As Range
    Set rng = Sheet7.Range("L1:L3")
    Set rng1 = Sheet3.Range("A7:A130")
        For Each clls In rng
        [K1] = clls.Value
            Sheet3.Range("$A$6:$AO$130").AutoFilter Field:=41, Criteria1:=Sheet7.Range("K1").Value
            For Each clls1 In rng1
            [I2] = clls1.Value
                If Sheet7.Range("I2").Value <> "" Then
                    Sheet7.PrintOut From:=1, To:=2, Copies:=1, collate:=True
                End If
            Next
        Next
End Sub

 

[vuha]

Thử thay code cũ bằng code này coi. Do bạn không khai báo rõ ràng. nên đoán mò

Private Sub CommandButton1_Click()
Dim rng As Range, rng1 As Range, clls As Range, clls1 As Range
    Set rng = Sheet7.Range("L1:L3")
    Set rng1 = Sheet3.Range("A7:A130")
        For Each clls In rng
        [K1] = clls.Value
            Sheet3.Range("$A$6:$AO$130").AutoFilter Field:=41, Criteria1:=Sheet7.Range("K1").Value
            For Each clls1 In rng1
            [I2] = clls1.Value
                If Sheet7.Range("I2").Value <> "" Then
                    Sheet7.PrintOut From:=1, To:=2, Copies:=1, collate:=True
                End If
            Next
        Next
End Sub

vẫn bị lỗi dòng lọc đó như ảnh đính kèm bạn ạ

 

[BuiQuangThuan]

vẫn bị lỗi dòng lọc đó như ảnh đính kèm bạn ạ

Bạn có thay nguyên đoạn code không vậy

 

[Hoàng Tuấn 868]

Thử thay code cũ bằng code này coi. Do bạn không khai báo rõ ràng. nên đoán mò

Private Sub CommandButton1_Click()
Dim rng As Range, rng1 As Range, clls As Range, clls1 As Range
    Set rng = Sheet7.Range("L1:L3")
    Set rng1 = Sheet3.Range("A7:A130")
        For Each clls In rng
        [K1] = clls.Value
            Sheet3.Range("$A$6:$AO$130").AutoFilter Field:=41, Criteria1:=Sheet7.Range("K1").Value
            For Each clls1 In rng1
            [I2] = clls1.Value
                If Sheet7.Range("I2").Value <> "" Then
                    Sheet7.PrintOut From:=1, To:=2, Copies:=1, collate:=True
                End If
            Next
        Next
End Sub

Dòng này để dùng vào đâu bạn nhỉ:
[K1] = clls.Value

 

[vuha]

Bạn có thay nguyên đoạn code không vậy

mình sửa lại được rồi, mình cảm ơn bạn nhiều nhé.

Bài đã được tự động gộp: Hôm qua, lúc 17:29

Dòng này để dùng vào đâu bạn nhỉ:
[K1] = clls.Value

dùng ở sheet7 bạn à. Thanks bạn nhiều nhé.

 

[Hoàng Tuấn 868]

mình sửa lại được rồi, mình cảm ơn bạn nhiều nhé.

Bài đã được tự động gộp: Hôm qua, lúc 17:29

dùng ở sheet7 bạn à. Thanks bạn nhiều nhé.

Sau dòng đó có thấy xuất hiện thêm lần nào đâu mà lại dùng ở sheet7 được.

 

[HieuCD]

Em có file dữ liệu đính kèm, em đã tạo lệnh chọn dòng tiêu đề bảng trong 1 sheet để lọc nhưng bị lỗi như ảnh đính kèm. Em nhờ các anh chị em chỉ giúp em bị lỗi thế là sao và sửa lỗi như thế nào ạ. Em cảm ơn nhiều.

Dùng mảng khỏi nhảy lò cò qua 2 sheet

Private Sub CommandButton1_Click()
  Dim rng As Range, a(), b(), clls As Range, i&
    
  Set rng = Sheet7.Range("L1:L3")
  a = Sheet3.Range("A7:A130")
  b = Sheet3.Range("AO7:AO130")
  For Each clls In rng
    If clls.Value <> Empty Then
      For i = 1 To UBound(a)
        If b(i, 1) = clls.Value Then
          [I2] = a(i, 1)
          ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, collate:=True
        End If
      Next
    End If
  Next
End Sub

 

[ptm0412]

Hình 1 bài 5 sai chính tả chữ Activate.