vba delete rows and find &replace based on criteria

[djossh]

hi. I would like to delete some rows based on the textbox value (as criteria) then to replace the next column with "cancel" please see below sample data

Sample data below (in this example i will input "224" as criteria in my textbox)

	A	B	C	D
1	123	XXX	12	541
2	123	DDS	245	24
3	123	GGS	54	24
4	224	HRR	554	65
5	224	SDFS	645	84
6	415	SDG	25	44
7	415	HRE	564	87
8	415	REE	697	56

<tbody>
</tbody>

RESULT data should be like this. (1 row with "224" was deleted, and retain 1 data but replace the column B with "Cancel" and other data were remove)

	A	B	C	D
1	123	XXX	12	541
2	123	DDS	245	24
3	123	GGS	54	24
4	224	CANCEL
5	415	SDG	25	44
6	415	HRE	564	87
7	415	REE	697	56

<tbody>
</tbody>

thanks in advance

 

[My Aswer Is This]

Your subject title say Delete Rows

But your image shows cancelled being entered.
So I assume you do not want to delete the row.
Otherwise there would be no purpose putting Cancelled into column B if we were to delete the row.

Try this:

Sub Look_For_Value()
'Modified  12/9/2018  10:32:37 PM  EST
Application.ScreenUpdating = False
Dim ans As String
ans = ActiveSheet.TextBox1.Value
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To Lastrow
    If Cells(i, 1).Value = ans Then
        Cells(i, 2).Value = "Canceled"
        Cells(i, 3).Resize(, 2).Value = ""
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[Akuini]

I assumed your data is sorted by column A.
Try this:

Sub a1080281b()
'https://www.mrexcel.com/forum/excel-questions/1080281-vba-delete-rows-find-replace-based-criteria.html
Dim n As Long, c As Long, d As Long
Dim rng As Range
Dim v As String


n = Range("A" & Rows.count).End(xlUp).Row
Set rng = Range("A1:A" & n)

v = 123
c = rng.Find(What:=v, LookIn:=xlValues, After:=Cells(n, "A"), lookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
    Cells(c, "B").Resize(1, 3).ClearContents
    Cells(c, "B") = "cancel"

d = rng.Find(What:=v, LookIn:=xlValues, After:=Cells(1, "A"), lookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row
    If d > c Then Range(Cells(c + 1, "A"), Cells(d, "A")).EntireRow.Delete


End Sub

 

[djossh]

I assumed your data is sorted by column A.
Try this:

Sub a1080281b()
'https://www.mrexcel.com/forum/excel-questions/1080281-vba-delete-rows-find-replace-based-criteria.html
Dim n As Long, c As Long, d As Long
Dim rng As Range
Dim v As String


n = Range("A" & Rows.count).End(xlUp).Row
Set rng = Range("A1:A" & n)

v = 123
c = rng.Find(What:=v, LookIn:=xlValues, After:=Cells(n, "A"), lookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
    Cells(c, "B").Resize(1, 3).ClearContents
    Cells(c, "B") = "cancel"

d = rng.Find(What:=v, LookIn:=xlValues, After:=Cells(1, "A"), lookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row
    If d > c Then Range(Cells(c + 1, "A"), Cells(d, "A")).EntireRow.Delete


End Sub

THANK YOU SO MUCH! GOD Bless.

 

[djossh]

Your subject title say Delete Rows

But your image shows cancelled being entered.
So I assume you do not want to delete the row.
Otherwise there would be no purpose putting Cancelled into column B if we were to delete the row.

Try this:

Sub Look_For_Value()
'Modified  12/9/2018  10:32:37 PM  EST
Application.ScreenUpdating = False
Dim ans As String
ans = ActiveSheet.TextBox1.Value
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To Lastrow
    If Cells(i, 1).Value = ans Then
        Cells(i, 2).Value = "Canceled"
        Cells(i, 3).Resize(, 2).Value = ""
    End If
Next
Application.ScreenUpdating = True
End Sub

Thank you!! God Bless

 

[Akuini]

THANK YOU SO MUCH! GOD Bless.

You're welcome