Sai code khi dùng chung với biến đặt

[hoahuongduong1986]

Kính gửi các anh chị,
em có câu hỏi nhờ anh chị giúp đỡ tìm lỗi sai ạ. Em cảm ơn ạ.

Dim x As String
Dim y As String
Const x1 As String = "208"
Const x2 As String = "240"
x = Sheet7.Range("M200").Value
=> Trong đó giá trị tại M200 có giá trị là $A$207 hoặc giá trị bất kỳ khác có kiểu như này ($B$207, $C$207....)
y = Sheet7.Range("L200").Value
=> Trong đó giá trị tại L200 có giá trị là A hoặc giá trị bất kỳ khác có kiểu như này (B, C,D, E...)

Em thực hiện 3 lệnh dưới đây gắn với các biến đã đặt mà nó báo lỗi. ANh chị xem giúp em với ạ.
Sheet7.Range("x:" & y & x2).ClearContents

Sheet7.[y&x1].Resize(sRow) = res

Sheet7 .Range(x) = "Ban_hang"

 

[befaint]

Úp cả súp, cả file lên xem nào.

 

[giaiphap]

Kính gửi các anh chị,
em có câu hỏi nhờ anh chị giúp đỡ tìm lỗi sai ạ. Em cảm ơn ạ.

Dim x As String
Dim y As String
Const x1 As String = "208"
Const x2 As String = "240"
x = Sheet7.Range("M200").Value
=> Trong đó giá trị tại M200 có giá trị là $A$207 hoặc giá trị bất kỳ khác có kiểu như này ($B$207, $C$207....)
y = Sheet7.Range("L200").Value
=> Trong đó giá trị tại L200 có giá trị là A hoặc giá trị bất kỳ khác có kiểu như này (B, C,D, E...)

Em thực hiện 3 lệnh dưới đây gắn với các biến đã đặt mà nó báo lỗi. ANh chị xem giúp em với ạ.
Sheet7.Range("x:" & y & x2).ClearContents

Sheet7.[y&x1].Resize(sRow) = res

Sheet7 .Range(x) = "Ban_hang"

Bạn tự kiểm tra thử "x:" & y & x2 nó ra cái gì? y&x1 ra cái gì?... Cái này tự kiểm tra được mà.

 

[ptm0412]

Sheet7.Range("x:" & y & x2).ClearContents

Sheet7.[y&x1].Resize(sRow) = res

Sheet7 .Range(x) = "Ban_hang"

Sửa lại:
M200 bỏ các dấu $

Sheet7.Range(x & ":" & y & x2).ClearContents
Sheet7.Range(y & x1).Resize(sRow) = res
Sheet7 .Range(x) = "Ban_hang"

 

[befaint]

M200 bỏ các dấu $

Đô la ngon mà anh, đâu cần bỏ gì đâu. Lẫn lộn tòng phèo vẫn chạy hoàn thoàn bình thường.

Range("$C$5:A1").Value = 1

-----
Thớt:
Dính chưởng ở cái ngoặc vuông [y&x1] ấy.
Không biết code kiểu gì mà đông tây nam bắc tứ kiếm kết hợp ghê vậy.

 

[ptm0412]

Đô la ngon mà anh, đâu cần bỏ gì đâu. Lẫn lộn tòng phèo vẫn chạy hoàn thoàn bình thường.

Oát đờ heo "tòng phèo", "hoàn thoàn"?
Bỏ $ cho gọn nhẹ, cái sai nằm ở "x:" và cái [..]

 

[hoahuongduong1986]

Sửa lại:
M200 bỏ các dấu $

Sheet7.Range(x & ":" & y & x2).ClearContents
Sheet7.Range(y & x1).Resize(sRow) = res
Sheet7 .Range(x) = "Ban_hang"

Em làm được rồi ạ. Em cảm ơn sự giúp đỡ của các anh ạ.