Change value of two cells based on one cell VBA

Hi All,

I am trying to write a code that will change the value in Column I if Column K has value "Orange" to "Fruit". But I also want the value of the next cell down in Column I change to "Fruit" as well.
My macro below only works when I have one singular value change but not multiple. Could you please help?
For example: desired result is if Column K3 = "Orange" then Column I3 & I4 = "Fruit". I have about 300 lines of data to go through. Thank you for your help!!!!

Sub test()


    Dim LastRow As Long
    Dim i As Long
    LastRow = Range("K" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        If Range("K" & i).Value = "Orange" Then
            Range("I" & i).Value = "Fruit" And Range("I" & i).Offset(1, 0).Value = "Fruit"  'the statement works only if I have first value met; I want value change down from the first cell in Column I to "Fruit" as well.  I get type mismatch error everytime I ran this statement. 
    
        End If
    Next i
End Sub

Re: Change value of two cells based on one cell VBA

Hi All,

I am trying to write a code that will change the value in Column I if Column K has value "Orange" to "Fruit". But I also want the value of the next cell down in Column I change to "Fruit" as well.
My macro below only works when I have one singular value change but not multiple. Could you please help?
For example: desired result is if Column K3 = "Orange" then Column I3 & I4 = "Fruit". I have about 300 lines of data to go through. Thank you for your help!!!!

Sub test()


 Dim LastRow As Long
 Dim i As Long
 LastRow = Range("K" & Rows.Count).End(xlUp).Row
 For i = 2 To LastRow
 If Range("K" & i).Value = "Orange" Then
 Range("I" & i).Value = "Fruit" And Range("I" & i).Offset(1, 0).Value = "Fruit" 'the statement works only if I have first value met; I want value change down from the first cell in Column I to "Fruit" as 'well. I get type mismatch error everytime I ran this statement. [COLOR=#00ff00][/COLOR]


 End If
 Next i
 End Sub

Re: Change value of two cells based on one cell VBA

Quote from KjBox;784485

codepro

You have posted enough times on this forum to know that code must be wrapped in code tags. Also do not format anything in the code to a different font colour or make any font bold (including code comments).

Please edit your post to do the above, thank you.

how do I do that? how do I put quotation marks?

Re: Change value of two cells based on one cell VBA

Sub test()


 Dim LastRow As Long
 Dim i As Long
 LastRow = Range("K" & Rows.Count).End(xlUp).Row
 For i = 2 To LastRow
 If Range("K" & i).Value = "Orange" Then
 Range("I" & i).Value = "Fruit" And Range("I" & i).Offset(1, 0).Value = "Fruit" 'the statement gives me mismatch error
 End If
 Next i
 End Sub

Re: Change value of two cells based on one cell VBA

Quote from KjBox;784512

First remove the colour and bold text from the code you pasted and the quotation marks, then highlight all the code and click the # icon in the menu bar at the top of the Reply window.

thank you for your help! but couldn't remove the green color from the code. I tried multiple times and I couldn't remove it. Thank you!