Delete text in row or column after < and delete the < too

[rickadams]

I am looking for a VBA to delete All the text after the < and the < too
My Sheet has Columns A Thru J and can be anywhere from 2 to 200 rows

IE:

Mrs. Melissa <8268513.cskm> Needs to just be Mrs. Melissa

<tbody>
</tbody>

So I need to delete everything after the < and the < too.

<anytown, nj="" 02220="">Everything I have tried in VBA gives me errors.

Thank you</anytown,>

 

[rickadams]

You are welcome.


Try

Range("F" & Rows.Count).End(xlUp).Offset(1).FormulaR1C1 = "=SUM(R1C:R[-1]C)"

Thank you all!!! Everything is working great. My next question (or should I start a new thread?) how would I make that totaled box bold and highlighted yellow?

 

[Joe4]

should I start a new thread?

Yes. Unless it is a follow-up question the depends on previous responses, it is best to post new questions in new threads.
That way they will show up in the "Zero Reply Posts" listing as new unanswered questions, and will get more looks.

 

[Peter_SSs]

Yes. Unless it is a follow-up question the depends on previous responses,...

I agree, but this is a follow-up.

.. how would I make that totaled box bold and highlighted yellow?

Take out the code line I suggested in post #10 , & insert this instead.

With Range("F" & Rows.Count).End(xlUp).Offset(1)
  .FormulaR1C1 = "=SUM(R2C:R[-1]C)"
  .Font.Bold = True
  .Interior.Color = vbYellow
End With

 

[Joe4]

I agree, but this is a follow-up.

That is why I included the part about it being dependent upon the previous response...
It might have not too clear, because I chose the wrong word. It should say "... that depends ...", not "... the depends ...".

Just about everything could be considered a "follow-up". The question is, is it a dependent follow-up?
Can the question stand on its own and make sense without having to know the prior question and answer?

 

[rickadams]

I agree, but this is a follow-up.


Take out the code line I suggested in post #10 , & insert this instead.

Sub ReplaceLessThanAndFollowingText()' Get rid of all the junk in all rows and columns that have <between greater="" less=""> that was inported from the spreadsheet.
  Columns("B:I").Replace "<*", "", xlPart, , , , False, False
  ' We dont use Column G so remove that Column
  Columns(7).EntireColumn.Delete
  ' Autofit all columns
    ActiveSheet.Range("A1:I1").EntireColumn.AutoFit
    ' Now format column F as dollars
   Range("E:F").NumberFormat = "$#,##0.00"
    ' Now Autocalculate Column F, Then Bold and color the total Yellow
    With Range("F" & Rows.Count).End(xlUp).Offset(1)
  .FormulaR1C1 = "=SUM(R2C:R[-1]C)"
  .Font.Bold = True
  .Interior.Color = vbYellow
End With
    ' Put Boarders Boarders arund Everythibg
    With ActiveSheet.UsedRange.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
        
End Sub
End With

This is the code completed (so far) LOL

WOW Peter this works Fantastic!!! I was actually typing a new post when I saw you responded. Thank you!</between>

 

[rickadams]

Thank you to EVERYONE that helped with this project!

I wish I could wrap my head around VBA!

I keep getting confused with some of the old "Basic Programming" code like:

IF LEFT$(Q$, 2) = "SU" THEN OD = VAL(MID$(Q$, 3, (LEN(Q$)))): DE$ = "SU": S = 1: OD = 1: PE = 24: PT$ = "PACKAGING & UPS CHARGE ": SV$ = "UPS ZONE" + (MID$(Q$, 3, (LEN(Q$)))): GOSUB 1530: GOTO 1880:  ELSE DE$ = "EA"

<between greater="" less="">

[/QUOTE]
</between>

 

[Peter_SSs]

Thank you to EVERYONE that helped with this project!

You are welcome. Good to see that it is all coming together.