copy valye from cell without using .copy but still get dame font, text align and font bolt.

[newapa]

i wonder is there possible to not using .copy but still get the value from range and put it to another range and still got same text alignt, text size, font bolt?

 

[Gary's Student]

Say we want to get A1 into B9, but not using .Copy

Sub NoCopy()
Dim A1 As Range
Dim B9 As Range
Set A1 = Range("A1")
Set B9 = Range("B9")
B9.Value = A1.Value
B9.Font.Name = A1.Font.Name
B9.Font.Size = A1.Font.Size
B9.HorizontalAlignment = A1.HorizontalAlignment
End Sub

 

[newapa]

thx gary!

but lets say if u have alot of row and column and have alot of diferent font size and so on. it will be alot of code then.
is there any other way without using copy or that much of code.

best regard

 

[Rick Rothstein]

but lets say if u have alot of row and column and have alot of diferent font size and so on. it will be alot of code then.
is there any other way without using copy or that much of code.

It would help if you told us where your data is now and where you want it to be copied to.

 

[Norie]

Why not use Copy and Paste Special values and formats?

 

[Gary's Student]

Sure.....we could do the macro in a loop. Little extra code with an unlimited capacity to handle data.