Cho mình hỏi về address

[namlinhtinh]

Mình có các lệnh sau:
Dim add As String
Dim add2 As String
add2 = Range("GB214").End(xlDown).Address(, , xlR1C1)
add = Range("D24").End(xlDown).Address(, , xlR1C1)
Range("add:add2").Select

Kio hiểu sao nó ko range được.Mong các bác giúp đỡ

 

[ptm0412]

Range("add:add2").Select sửa thành

Range(add & ":" &add2).Select

hoặc:

Range(add, add2).Select

 

[namlinhtinh]

Ko hiểu sao nó vẫn báo lỗi
run-time error "1004"
Method 'Range' of Object '_Global' failed.
Mong các bác giúp đỡ

 

[ptm0412]

Bạn thử xoá cái này: (, , xlR1C1)
Hoặc bạn xem dòng cuối dữ liệu lớn hơn hay nhỏ hơn 214. nếu nhỏ hơn phải sửa thành 1 hoặc số nào phù hợp

 

[Po_Pikachu]

Thử như vầy xem! add2 = Range("GB214").End(xlToLeft).Address(0,0) add = Range("D24").End(xlDown).Address(0,0) Range(add & ":" & add2).Select Bạn có thể nói rõ hơn, Range("add:add2").Select dùng để chọn gì không? Thân.

 

[namlinhtinh]

Mình xóa cái đấy thì ok rồi.Cám ơn các bác nhiều nhé(bác có thể giải thích cho e tại sao như thế lại ok không?).Sau đó mình dùng lệnh
Selection.Copy
Range(add).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Thực hiện lệnh nào tiếp để bảng tính ko còn cái vòng chạy xung quanh sau khi paste? Giống như kiểu nháy đúp vào 1 ô khác để mất cái vòng đó đi.
Cám ơn bác ptm0412 1 lần nữa
To Po_Pikachu : Cái Range("add:add2").Select mình muốn chọn vùng dữ liệu từ 2 ô mà địa chỉ là add và add2.sau đó copy và paste theo value.
Tiện thể cho mình hỏi hàm nó kiểm tra file nào đó có trong thư mục nào đó ko,ví dụ như
ActiveCell.FormulaR1C1 = "='\\hunglk\DUNG CHUNG TOMBD\baocaongay\20" & nam & "\" & Format(thang, "00") & "-" & nam & "\[" & Format(ngay, "00") & "-" & Format(thang, "00") & ".xls]NMD'!R33C156"
mình thực hiện hàm trên,nhưng muốn kiểm tra xem file có dạng như thế đã có trong thư mục kia chưa,nếu có mới tính.
-Nhân thể chỉ cho mình cách đếm số file trong 1 thư mục.Cám ơn mọi người nhiều

 

[Po_Pikachu]

Muốn mất cái vòng copy đó thì dùng thêm câu này ở cuối các dòng lệnh: Application.CutCopyMode = False Thân.