ExcelBanter - View Single Post

Ron Rosenfeld

On Wed, 22 Aug 2007 08:49:53 -0700, wrote:

I was wondering if there is any way to pull both the data and the
formatting when using an if function? Assuming there is not, any help
me with the VBA code to do such? Thanks.

Depending on what you want to do:

===============================
Option Explicit
Sub PrnFmt()
Dim c As Range
For Each c In Selection
Debug.Print c.Text
Next c

For Each c In Selection
With c.Offset(0, 1)
.NumberFormat = c.NumberFormat
.Value = c.Value
End With
Next c
End Sub
===============================

--ron