删除与文本框日期不相同的行

ke3088

把小于文本框1，大于文本框2的行删除，我的代码如下：
    x= Sheet3.[a1048576].End(xlUp).Row
    Sheet3.Activate
    If CDate(Range("B" & x)) < CDate(TextBox1) And CDate(Range("B" & x)) > CDate(TextBox2) Then
       ActiveSheet.Rows("x:x").Delete
    End If
但没有效果，该代码如何写，向老师请教，谢谢！

剑指E

ActiveSheet.Rows(x).Delete

wanao2008

希望能够帮助到你：

1.     With Sheet3
   
2.         n = .Cells(Rows.Count, 1).End(xlUp).Row
   
3.         For i = n To 1 Step -1
   
4.             If CDate(Range("B" & i)) <> CDate(TextBox1) Then
   
5.                 .Rows(i).Delete
   
6.             End If
   
7.         Next
   
8.     End With

复制代码

wanao2008

两个文本框的代码如下：

1.     With Sheet3
   
2.         n = .Cells(Rows.Count, 2).End(xlUp).Row
   
3.         For i = n To 1 Step -1
   
4.             If CDate(Range("B" & i)) < CDate(TextBox1) And CDate(Range("B" & i)) > CDate(TextBox2) Then
   
5.                 .Rows(i).Delete
   
6.             End If
   
7.         Next
   
8.     End With

复制代码

liulang0808

楼主看下各位大佬给的解决方案，如果还不可以，建议上传模拟附件进行说明

ke3088

liulang0808 发表于 2023-3-19 07:16
楼主看下各位大佬给的解决方案，如果还不可以，建议上传模拟附件进行说明

各位大佬，不行喔，没有响应，正把用的工作薄进行删减数据，调整设置，做好后上传，再向各位大佬请教，谢谢

ke3088

wanao2008 发表于 2023-3-19 02:55
两个文本框的代码如下：

wanao2008，谢谢您！去掉“ And CDate(Range("B" & i)) > CDate(TextBox2)”这句，才删除成功。
要分两步走，稍麻烦点，再次感谢！