If a condition is met enter a value in a specific cell

Hello,

I have a long list. In column "C" there are 3 types of values (text):

1. "Cash" followed by numbers like 1234...
2. "Bank" followed by numbers as above
3. Other

The numbers following Cash or Bank are different.

What I need is a macro that will search for "Cash" and for "Bank" (without the hyphens) in each cell in column "C" and if it finds it than in Column "S"+1 to insert the value "Cash" or "Bank" depending on what was found.

For example if in cell "C4" the string "Cash" was found than in cell "S5" the value or text "Cash" to be inserted. If in cell "C50" the string "Bank" is found that this should become the value in the cell "S51".

Column "S" is blank at the beginning.

Thank you so much.

Thank you so much. This is wonderful. However I would like this to be a macro so that when it is run the task to be complete. The list is generated by a software and I would not like the user to have to enter formulas on his/her own in column S. Just to run a macro but no entries in cells by the user.

And yes, "Other" means any other value.

Once again thank you.

Originally Posted by FDibbins

Perhaps this?

=if(C4="Cash*","Cash,if(C4="Bank*","Bank","")) (You didnt say what you wanted for Other?)

Thank you so much.

I do not need anything inserted in column "S" if there is no string "Bank" or "cash" found in a cell of column "C".

So column C is a list with many rows. I would like the macro to run through each cell in column C and search for string Bank or Cash. If it finds it than in column S, one row below the row in which Cash or Bank was found to insert Cash or Bank.

Thank you so much for all of your help.

Originally Posted by FDibbins

My VBA is not that good, cant you just take that formula and copy it down?

Maybe I will try to insert the formula with a help of a macro. The problem is that I will not be working with this workbook but another user which is not very skillful in Excel. The user knows that a macro can be run with Alt+f8 so this way I can be certain that the work will be done successfully.

This is supposed to be part of a larger macro project which I intend to develop gradually. I am already using code from this forum for it but this piece is missing.

Thank you.

I am most grateful for the help provided. The form will be generated by a software on the users computer. This will be done more than once. I will not be there to copy the formula in each export to Excel. But once again thank you so much for the most useful input.

Maybe:

Sub gokica()
Dim i As Long
For i = Range("C" & Rows.Count).End(3).Row To 2 Step -1
    If Range("C" & i) Like "*Cash*" Then Range("S" & i + 1).Value = "Cash"
    If Range("C" & i) Like "*Bank*" Then Range("S" & i + 1).Value = "Bank"
Next i
End Sub

Originally Posted by JOHN H. DAVIS

Maybe:

Sub gokica()
Dim i As Long
For i = Range("C" & Rows.Count).End(3).Row To 2 Step -1
    If Range("C" & i) Like "*Cash*" Then Range("S" & i + 1).Value = "Cash"
    If Range("C" & i) Like "*Bank*" Then Range("S" & i + 1).Value = "Bank"
Next i
End Sub

This is wonderful. Works beautifully. Thank you so so much.

I am so grateful for everyone's contribution in this thread.

You're welcome. Glad to help out and thanks for the feedback.

Originally Posted by JOHN H. DAVIS

You're welcome. Glad to help out and thanks for the feedback.

I would kindly like to ask just for a little more help. I would also like when Cash or Bank is found than the contents of the adequate row cell in column N to be copied to cell U+1. What would be the macro for copying cell content when the condition is met?

Thank you so much.

Try:

Sub gokica()
Dim i As Long
For i = Range("C" & Rows.Count).End(3).Row To 2 Step -1
    If Range("C" & i) Like "*Cash*" Then
        Range("S" & i + 1).Value = "Cash"
        Range("U" & i + 1).Value = Range("N" & i).Value
    End If
    If Range("C" & i) Like "*Bank*" Then
        Range("S" & i + 1).Value = "Bank"
        Range("U" & i + 1).Value = Range("N" & i).Value
    End If
Next i
End Sub

Originally Posted by JOHN H. DAVIS

Try:

Sub gokica()
Dim i As Long
For i = Range("C" & Rows.Count).End(3).Row To 2 Step -1
    If Range("C" & i) Like "*Cash*" Then
        Range("S" & i + 1).Value = "Cash"
        Range("U" & i + 1).Value = Range("N" & i).Value
    End If
    If Range("C" & i) Like "*Bank*" Then
        Range("S" & i + 1).Value = "Bank"
        Range("U" & i + 1).Value = Range("N" & i).Value
    End If
Next i
End Sub

Amazing. Thank you so much. I will remember to give a rep once the system allows me to.

Wishing you a wonderful day.

Once Again Welcome. Anytime.