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

You'rte nearly theFunction 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:If
sh1.Cells(rw, 6) = cell.Offset(0, 10) Then CenterAndBold sh1.Cells(rw,
6)
which should also work.


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=130222

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





"p45cal" wrote:


You'rte nearly theFunction 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:If
sh1.Cells(rw, 6) = cell.Offset(0, 10) Then CenterAndBold sh1.Cells(rw,
6)
which should also work.


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=130222

I'm sorry, I don't understand at all what you're wanting.


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=130222

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



"p45cal" wrote:


I'm sorry, I don't understand at all what you're wanting.


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=130222