VBA inserting Text in addition to preexisting text in a cell.

[Livin404]

Greetings, I have a VBA which had changed slightly, but now I'm running into an issue where it will not add text to a cell if data already exists. The formula I'm using is:

Sub Depositioner()
  Dim i As Long
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Left(Cells(i, 1).Value, 2) Like "*V" Then
      
     If ActiveSheet.Range("F" & i) = "" Then
 ActiveSheet.Range("F" & i) = "DEPOSITIONER"
      Else
ActiveSheet.Range("F" & i) = ActiveSheet.Range("F" & i) & "/DEPOSITIONER"
    End If
    End Select
Next i

End Sub

The bottom portion beginning with "If ActiveSheet" worked properly if I used the syntax "CASE" in the first portion of the VBA, but now I am using a wildcard "*V" I am getting an error on the "End Select" Portion of the VBA. Any assistance would be wonderful.

 

[Osvaldo Palmeiro]

Hi. Maybe this could work.

Sub Depositioner()
 Dim i As Long
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   If Left(Cells(i, 1).Value, 2) Like "*V" Then
    If ActiveSheet.Range("F" & i) = "" Then
     ActiveSheet.Range("F" & i) = "DEPOSITIONER"
    Else
     ActiveSheet.Range("F" & i) = ActiveSheet.Range("F" & i) & "/DEPOSITIONER"
    End If
   End If
  Next i
End Sub

 

[SQUIDD]

Hi

So just checking. Is my understanding correct?

If column A 2nd letter is a V or a v then
check to see if F is blank
if blank answer is "DEPOSITIONER"
if not blank is current text and "/DEPOSITIONER"

if so try this

dave

Sub Depositioner()
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If Left(Range("A" & i), 2) Like "V" Then
        If Range("F" & i) = "" Then
            Range("F" & i) = "DEPOSITIONER"
        Else
            Range("F" & i) = Range("F" & i) & "/DEPOSITIONER"
        End If
    End If
Next i
End Sub

 

[Livin404]

Thank you very much it worked perfectly.

 

[SQUIDD]

glad its all working

 

[Peter_SSs]

If you are interested, you could process all the rows at once instead of looping through one at a time.

Sub Depositioner_v2()
  With Range("F1:F" & Range("A" & Rows.Count).End(xlUp).Row)
    .Value = Evaluate(Replace(Replace("if(exact(mid(%,2,1),""V""),if(#="""","""",#&""/"")&""DEPOSITIONER"",if(#="""","""",#))", "%", .Offset(, -5).Address), "#", .Address))
  End With
End Sub

 

[Peter_SSs]

glad its all working

I'm not sure it is your code that the OP is referring to since this line will never be true unless the column A cell contains a single "V" and nothing else.

If Left(Range("A" & i), 2) Like "V" Then

 

[SQUIDD]

Hi Peter

so it would, missed the *