Macro Changing Text in a Cell Based on Text in Another

[bematthe]

Hello,
I'm looking for help with a macro(s) that changes the text of one cell based on the text of another as well as changing the content of some cells based on their own content.

Example
If the text in Row B is "TextA," "TextB," or "TextC", it would need to return "Text1" in Row A; if the text in Row B is "TextD," then it would need to return "Text2" in Row A; and if the text is "TextE" it would need to return "Text3" to row A.
If the text in Row A is "TextA1" then that cell text would need to be changed to "TextB"

I've been working off what I know about creating macros that change the formatting based on the value of another cell, thinking I could just adjust accordingly, but with no luck.

Thank you!

[Grilleman]

Hi -

First, rows are referred to by number... row 1 row 2, etc. Not row A, row B, etc. That said, the following code checks the values in cells A2 thru A5 and if it finds TextA, TextB or TextC, it will populate Text1 to cell A1. Hope this helps!

Please Login or Register  to view this content.

[Grilleman]

Ooops. Missed your point. Try the following instead.

Please Login or Register  to view this content.

[bematthe]

Oops, sorry, I mean columns, not rows. More specifically, columns L and M.

I've tried the second one, and while I'm not getting any errors when I run through it or use debugger, it's not making any of the updates.


Sub GetText()

Dim myCell As Variant
Dim i As Long
Dim myArray(1 To 3) As String

myArray(1) = "New Application"
myArray(2) = "Forwarded to Child Requisition"
myArray(3) = "Pre-Offer"

With Range("L2:L5000")

For i = 1 To UBound(myArray)

If .Value = myArray(i) Then
Range("L1:L5000") = "New Applicants"
ElseIf .Value = myArray(2) Then
Range("L1:L5000") = "Interview"
ElseIf .Value = "Pre-Offer" Then
Range("L1:L5000") = "Offer"
End If

Next i

End With

With Range("M1:M5000")

If .Value = "New Application" Then
.Value = "New Applicants"
End If

End With

End Sub