Please help with input box

[jah01653]

Hello, below VBA code works for me, i am comparing 2 columns and deleting the entire row if the values are the same. the columns to compare will vary, so i need to add input box(es) so that the user can put in the 2 columns that they want to compare.

Sub Delete_Same_City()
'delete row if property city in Column D and mailing city in column AC are the same


Dim endRow As Long


endRow = Sheet1.Range("A999999").End(xlUp).Row
For i = 1 To endRow
If Sheet1.Range("D" & i).Value = Sheet1.Range("AC" & i).Value Then
Sheet1.Range("AC" & i).EntireRow.Delete

End If
Next i


End Sub

 

[Fluff]

How about

Sub jah01653()
   Dim EndRow As Long, i As Long
   Dim Cols As String, Col1 As String, Col2 As String
   
   Cols = InputBox("Please enter the two columns like D,AC")
   Col1 = Split(Cols, ",")(0)
   Col2 = Split(Cols, ",")(1)
   EndRow = Sheet15.Range("A" & Rows.Count).End(xlUp).Row
   
   For i = EndRow To 1 Step -1
      If Sheet15.Range(Col1 & i).Value = Sheet15.Range(Col2 & i).Value Then
         Sheet15.Rows(i).Delete
      End If
   Next i
End Sub

 

[jah01653]

Thanks Fluff! works great.

How about

Sub jah01653()
   Dim EndRow As Long, i As Long
   Dim Cols As String, Col1 As String, Col2 As String
   
   Cols = InputBox("Please enter the two columns like D,AC")
   Col1 = Split(Cols, ",")(0)
   Col2 = Split(Cols, ",")(1)
   EndRow = Sheet15.Range("A" & Rows.Count).End(xlUp).Row
   
   For i = EndRow To 1 Step -1
      If Sheet15.Range(Col1 & i).Value = Sheet15.Range(Col2 & i).Value Then
         Sheet15.Rows(i).Delete
      End If
   Next i
End Sub

 

[Fluff]

You're welcome & thanks for the feedback