Hi Bert
Thanks for your reply, I'm glad to help.
--
Per
"bert" <(E-Mail Removed)> skrev i meddelelsen
news:debc3962-f868-4436-af9b-(E-Mail Removed)...
Per:
Disregard my other message. I combined my approach with yours, and it
works fine, deleting the ^'s and preserving the italics:
C.Characters(Start:=D2, Length:=1).Delete
C.Characters(Start:=D1, Length:=1).Delete
Thanks so much.
Bert
On Oct 12, 9:48 am, "Per Jessen" <per.jes...@mail.dk> wrote:
> Hi
> As your range is already autofitered, I don't see why you want to use the
> autofilter statement again.
>
> Try if this will do it:
>
> Sub MakeItalic(ByVal C As Range)
> Dim D1 As Long
> Dim D2 As Long
> Set C = C.Cells(1, 1)
> Do While InStr(1, C.Text, "^")
> D1 = InStr(1, C.Text, "^")
> D2 = InStr(D1 + 1, C.Text, "^")
> C.Characters(Start:=D1 + 1, Length:=(D2 - 1) - D1).Font.FontStyle =
> "Italic"
> C = Application.WorksheetFunction.Substitute(C.Value, "^", "")
> Loop
> End Sub
>
> BTW: I would rather use "C as Range" than "C as Object"
>
> Regards,
> Per
>
> "bert" <bwhitt...@verizon.net> skrev i
> meddelelsennews:3ad5c5fd-db07-4262-a752-(E-Mail Removed)...
>
>
>
> > I'm using the following subroutine to look at a specific autofiltered
> > cell, and if there are caret characters in it, to make the text in
> > between italic. Then it is supposed to delete the carets (^). It (or
> > a variation of it) worked in non-autofiltered cells. Here, the
> > italics line works, but the delete line causes a 1004 error. Here's
> > the code: ("C" is the specific cell)
>
> > Sub MakeItalic(C As Object)
> > Dim D1 As Integer
> > Dim D2 As Integer
> > Dim rng As Range
> > Set rng = Worksheets("Student_Data").AutoFilter.Range
> > rw1 = C.Row
> > clm1 = C.Column
> > Do While InStr(1, C.Text, "^")
> > D1 = Int(InStr(1, C.Text, "^"))
> > D2 = Int(InStr(D1 + 1, C.Text, "^"))
> > rng.Characters(Start:=D1 + 1, Length:=(D2 - 1) -
> > D1).Font.FontStyle = "Italic"
> > rng.Cells(rw1, clm1).Characters(Start:=D2, Length:=1).Delete
> > Worksheets("Student_Data").Cells(rw1, clm1).Characters(Start:=D1,
> > Length:=1).Delete
> > Loop
> > End Sub- Hide quoted text -
>
> - Show quoted text -
Similar Threads
