Leandroarb
Board Regular
- Joined
- Oct 7, 2014
- Messages
- 157
Hi,
Please, a need delete cells equal "*".
I try use this code:
But... suceless
The datas are in columns
<tbody>
</tbody>
Every form of help is appreciated.
Thank you.
Please, a need delete cells equal "*".
I try use this code:
Code:
Sub DelTry()
On Error Resume Next
Do While ActiveCell <> ""
If ActiveCell.Value <> "*" Then
ActiveCell.Offset(1, 0).Select
Else
Selection.Delete Shift:=xlUp
End If
Loop
End Sub
But... suceless
The datas are in columns
* |
* |
03/11/2018 |
* |
04/11/2018 |
* |
* |
* |
* |
* |
* |
* |
* |
* |
15/11/2018 |
* |
* |
* |
02/11/2018 |
10/11/2018 |
11/11/2018 |
* |
* |
17/11/2018 |
18/11/2018 |
* |
* |
24/11/2018 |
25/11/2018 |
* |
* |
<tbody>
</tbody>
Every form of help is appreciated.
Thank you.