Insert additional data into cell if date already exists.

[Livin404]

Greetings, I successfully am able to use the VBA below to insert text in Column D based on date in Column B. I want to have it be added if there is text already in Column D, naturally with a space. I don't want the inserted text to overwrite what is already in the cell. Thank you,

Sub COVID()
    Dim lr As Long
    Dim i As Long
    Dim wsAct As Worksheet
  
  Set wsAct = ActiveSheet
  Application.ScreenUpdating = False
  With Sheets("Outbound FIDS")
    .Activate
    lr = Range("C" & Rows.Count).End(xlUp).Row
    
    For i = 1 To lr
        If Range("D" & i).Value = "" And Range("B" & i).Value <> "" Then
            Range("D" & i).Value = "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"

        End If
    Next i
    End With
wsAct.Activate
  Application.ScreenUpdating = True
End Sub

 

[JoeMo]

Change this line:
Range("D" & i).Value = "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"
to this:
Range("D" & i).Value = "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL " & Range("B" & i).Value

Note the space after MANUAL.

 

[VBasic2008]

Try this:

    If Range("B" & i).Value <> "" Then
        If Range("D" & i).Value = "" Then
            Range("D" & i).Value = "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"
        Else
            Range("D" & i).Value = Range("D" & i).Value & " " & Range("B" & i).Value
        End If
    End If

 

[Livin404]

Change this line:
Range("D" & i).Value = "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"
to this:
Range("D" & i).Value = "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL " & Range("B" & i).Value

Note the space after MANUAL.

Hello I tried what you suggested and it moved the data from Column B to Column D, I want the statement "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL" to put into Column D. This is based on if there is data in Column B. If there is data already in Column D I would need the statement place after the data already in Column D. Thank you.

 

[VBasic2008]

Then try this:

    If Range("B" & i).Value <> "" Then
        If Range("D" & i).Value = "" Then
            Range("D" & i).Value = "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"
        Else
            Range("D" & i).Value = Range("D" & i).Value & " " & "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"
        End If
    End If

 

[Livin404]

Try this:

    If Range("B" & i).Value <> "" Then
        If Range("D" & i).Value = "" Then
            Range("D" & i).Value = "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"
        Else
            Range("D" & i).Value = Range("D" & i).Value & " " & Range("B" & i).Value
        End If
    End If

Thank you for getting back. Your code had the same result as mine with suggestions by the other person in this thread. What happens if there is a time in Column B then the statement will go into Column D. If there is a data already in Column D then add the statement after the preexisting statement. Note this is for a schedule for three days which means the word "Remark" is also in a cell in Column D three time, so that word can be ignored. It does not share a row with a time, so I don't think that will make a difference. Thank you.

 

[Livin404]

Then try this:

    If Range("B" & i).Value <> "" Then
        If Range("D" & i).Value = "" Then
            Range("D" & i).Value = "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"
        Else
            Range("D" & i).Value = Range("D" & i).Value & " " & "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"
        End If
    End If

That is a lot better, I am hoping I can get it to ignore the REMARKS cell. Everything else is spot on. Thank you.

 

[Livin404]

Then try this:

    If Range("B" & i).Value <> "" Then
        If Range("D" & i).Value = "" Then
            Range("D" & i).Value = "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"
        Else
            Range("D" & i).Value = Range("D" & i).Value & " " & "REFER TO DEPARTMENT OF STATE TRAVEL MANUAL"
        End If
    End If

Hello again, I'm finally nearly finished with this project, so I'm trying to get the code you provided to ignore cells in Column D to ignore cells containing "REMARKS". Thank you in advance.