#How to make underline in excel how to
#How to make underline in excel code

#How to make underline in excel code

I am using below code to Select the Visible rows in the target range:

#How to make underline in excel how to

Actually I know how to select the data after applying the data filter but the issue is I am not able to exclude the header row and give the target range as used (non-blank) rows only!! I am looking for the code to select the visible data after applying a data filter. Sheets('Sheet1').Unprotect Password:='temp'ĪctiveSheet.EnableSelection = xlUnlockedCells ' If Not Intersect(Target, MRange) Is Nothing Then Sub Worksheet_Change(ByVal Target As Excel.Range) I think I am close, but I am getting an 'End If without block If' error on the If Clause. If the user selects that cell again, they will get the usual pop-up message, 'The cell or chart that you are trying to change is protected.' If a user enters a date in a cell or range of cells anywhere in the column, the changed cells also need to be locked and protected (Once they enter a date, it is not allowed EVER to be changed again. I have named the cells in that column 'MS96A'. I have a worksheet that is locked and protected now, except for cells in a certain collumn. Ideally this should be the case isnt it ?Īny suggestions on how to go about this. if i really want to join the sentense all i have to do is '=A1&B1&C1&D1&E1&F1' (without quots)Ĭan someone come up with a function to underline just 1 cell Now my question here is for some one who can put up a function for a sell only or formatting.

Therse were the best two answers i could find out for underlineing a part of a sentence in a cell. Length:=1).Font.Underline = xlUnderlineStyleSingle If m圜ell.Characters(Start:=l_Position, Length:=1).Font.Underline _ĬopyNumberWithOneUnderlinedCharacter.Characters(St art:=l_Position, Range('A1').Characters(InStr(1, Range('A1'), 'Customer', vbTextCompare), Len('Customer')).Font.Underline = Trueįunction CopyNumberWithOneUnderlinedCharacter(ByVal m圜ell As Range) Range('A1').Characters(InStr(1, Range('A1'), 'Company', vbTextCompare), Len('Company')).Font.Underline = True ' add underline to the format of the words 'Company' and 'Customer' S1 = ' The Agreement between (The ''Company'') and ' Private Sub Worksheet_Change(ByVal Target As Range) you can do it but only if it is broken up.Īnd have been trying really hard to find en number of ways.

I've been doing alot of research for the past week on this topic and came up with top two answers.