Hi Team,
I have an excel file which contains multiple payments for a month stacked in a single column wherein each payment has approx 10-11 line items. But each payment starts with a fixed text.
What I am trying to do is using this term, insert a row on the top in order to seperate each payments for user reference.
I am using the below codes:
Sub Format_Text()
Dim Text As String
Text = InputBox("Please type the variable factor")
Range("A1").Select
Do Until ActiveCell.Value = ""
Do While ActiveCell.Value = "%Mar%"
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
Loop
ActiveCell.Offset(1, 0).Select
Loop
End Sub
However the line "Do While ActiveCell.Value = "%Text%"" should validate if the cell contains the value specified by the user, but its not working as per my expectation.
Can someone fix this code for me.
Regards,
Raghu
Bookmarks