Lỗi chạy VBA - File Quản Lý Khách Hàng

[winnies]

Chào cả nhà,

Mình có làm theo clip VBA để chạy file quản lý khách hàng

Liên kết: https://www.youtube.com/watch?v=cmMuv4zEKlY&t=0s

Khi chạy bị lỗi ko biết sữa như thế nào (mình ko rành vè VBA). Mong được cả nhà chỉ cách khắc phục.


Báo lỗi:

Private Sub cmdSearch_Click()

Dim x As Long
Dim y As Long
--> x = Sheet1.Range("A" & Rows.Count).End(x1Up).Row
For y = 2 To x
If Sheet1.Cells(y, 1).Value = TextBox22.Text Then

……………

Private Sub cmdUpdate_Click()

Dim x As Long
Dim y As Long
--> x = Sheet1.Range("A" & Rows.Count).End(x1Up).Row
For y = 2 To x

 

[giaiphap]

Thử thế này.
[

x = Sheet1.Range("A65000").End(xlUp).Row
[

 

[BuiQuangThuan]

--> x = Sheet1.Range("A" & Rows.Count).End(x1Up).Row

Chữ này sai chính tả thì phải. Phải là xlup chứ nhỉ

 

[winnies]

Thử thế này.
[

x = Sheet1.Range("A65000").End(xlUp).Row
[

mình thấy vẫn bị lỗi

Bài đã được tự động gộp: 11/1/23

Chữ này sai chính tả thì phải. Phải là xlup chứ nhỉ

thanks bạn nha. Mình sữa như bạn và hết lỗi rồi