UDF help to centre and bold

E

Eddy Stan

Hi

sub Banlisting() ' given 2 lines of my macro

Instead of the following two lines, can there be a UDF to center, bold, like
given below

sh1.Cells(rw, 6) = cell.Offset(0, 10) ' Date
sh1.Cells(rw, 6).HorizontalAlignment = xlCenter
sh1.Cells(rw, 6).Font.Bold = True

Is it possible:
CenterAndBold(sh1.Cells(rw, 6)) = cell.Offset(0, 10) ' Date
end sub

Function CenterAndBold(somevalue) ' number, string or date
With Selection
.HorizontalAlignment = xlCenter
.font.bold = True
End With
End Function
 
P

p45cal

You'rte nearly there:Function CenterAndBold(somerange)
With somerange
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
End Function

Sub test()
CenterAndBold Selection
For i = 1 To 13 Step 2
CenterAndBold Cells(i, 2)
Next
End Sub
It won't work as a worksheet function though.

Perhaps you're looking for the likes of:I
sh1.Cells(rw, 6) = cell.Offset(0, 10) Then CenterAndBold sh1.Cells(rw
6)
which should also work
 
E

Eddy Stan

HI

I have checked something in the rng and then only i am copy data from sh to
sh1 (ws)
so now for some cells i need to put in bold & color, something like that to
highlight the difference.
so i cannot use "if" in the copying statements, how to do that

Regards,
Stan
 
E

Eddy Stan

sorry my mistake.

see i have data sheet of 4000 rows
i want to pull(copy) for specific entries and show in another sheet
i have put at b1 - one pull down list (validation)
i have put a button in this sheet - "Process"
and stored a list in that.
when the customer is selected in range(b1) and then when pressed "ok" button
then the list is generated. In the list i want specific cells be "bold "
(such as bill number, date, etc.,)

but instead of writing code for each row i want VB code to generate
the list
 
Top