Xin Giúp Đở về VBA Xóa Dữ Liệu tại ngày nhất định

[letrongnghia.la]

dạ em xin chào anh chị!
hiện tại em đang làm 1 file nhưng do tình hình là em buộc phải share thông tin cho 1 số ng,
để tránh việc họ thấy thông tin của em! xin anh chị chỉ giúp em làm sao xóa thông tin vào 1 ngày nhất định ak!
code em đã viết như sau:
Private Sub Workbook_Open()
Sheets("BOM").Select
Dim theDate As Date
theDate = Date
If theDate - Range("BB1") >= 30 Then Cells.Select
Columns("AS:BJ").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 5
Range("C6").Select
End Sub
em đã thử rất nhiều cách nhưng nó cứ xóa, dù là hạn ngày chưa đến ak!

ak! ngoài ra anh chị có thể cho em hỏi là em có 1 phép tính , nhưng em muốn nó nếu thấp hơn 2 thì thề 2, thấp hơn 3 nhưng lớn hơn 2 thì về 3.5, mà bằng VBA dc ko ak!
rất mong anh chị giúp em!
em xin cám ơn!

 

[VetMini]

Advanced Filter là xong. Cốt kiếc chi cho mệt.
Nếu không biết sửu dụng Advanced Filter thì lo đi học cái ấy đi. Học cốt kiếc chi cho mệt.

 

[HUONGHCKT]

dạ em xin chào anh chị!
làm sao xóa thông tin vào 1 ngày nhất định ak!

Ngày nhất định là ngày trước hay sau ngày theDate .
Nếu ngày nhất định là ngày sau ngày theDate thì Thử thay đoạn code này

If theDate - Range("BB1") >= 30 Then Cells.Select
Columns("AS:BJ").Select
Selection.ClearContents

thành.

dim ngaynhatdinh as Date
Ngaynhatdinh=Ô nào đó , hay ngaynhatdinh=DateSerial(năm, tháng, ngày)
If theDate >= ngaynhatdinh Then  ' trong trường hợp ngaynhatdinh là ngày trước ngày theDate thì khi mở lên sẽ xóa luôn. còn không thì hẹn khi đến ngaynhatdinh sẽ xóa.
'Cells.Select
      Columns("AS:BJ").ClearContents
end if
'--- hoặc
If ngaynhatdinh -  theDate >=30 Then  ' trong trường hợp hẹn sau 30 ngày kể từ ngày theDate thì sẽ xóa cột AS:BJ (ngaynhatdinh là ngày sau ngày theDate) 
'Cells.Select
      Columns("AS:BJ").ClearContents
end if

 

[VetMini]

Ngày là theDay.
theDate là người hò hẹn.

Code muốn xóa dữ liệu thì nó gom các chỗ cần xóa vào một Union.
Sau đó nếu chỉ muốn xóa ô cho trống thì ClearContents, muốn xóa cả dòng thì EntireRow.Delete

 

[Cá ngừ F1]

dạ em xin chào anh chị!
hiện tại em đang làm 1 file nhưng do tình hình là em buộc phải share thông tin cho 1 số ng,
để tránh việc họ thấy thông tin của em! xin anh chị chỉ giúp em làm sao xóa thông tin vào 1 ngày nhất định ak!
code em đã viết như sau:
Private Sub Workbook_Open()
Sheets("BOM").Select
Dim theDate As Date
theDate = Date
If theDate - Range("BB1") >= 30 Then Cells.Select
Columns("AS:BJ").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 5
Range("C6").Select
End Sub
em đã thử rất nhiều cách nhưng nó cứ xóa, dù là hạn ngày chưa đến ak!

ak! ngoài ra anh chị có thể cho em hỏi là em có 1 phép tính , nhưng em muốn nó nếu thấp hơn 2 thì thề 2, thấp hơn 3 nhưng lớn hơn 2 thì về 3.5, mà bằng VBA dc ko ak!
rất mong anh chị giúp em!
em xin cám ơn!

Bạn không gửi File thì sao làm được?

 

[VetMini]

Bạn không gửi File thì sao làm được?

File bị AK47 rỉa te tua rồi.