moving cells value and font only (no other formats i.e. boarders)
 

I would like to move a cells value and font as well ... but with no other
cell formating. I have the following code that works perfectly with the cells
value, except that the cells that are moved take on the cell format of the
cells that the original content is being moved to.


Dim vTemp As Variant
With Selection
If .Count < 2 Then
MsgBox "2 courses only."
Else
If .Areas.Count = 2 Then
vTemp = .Areas(1).Cells.Value
.Areas(1).Cells.Value = .Areas(2).Cells.Value
.Areas(2).Cells.Value = vTemp
vTemp = .Areas(1).Offset(1, 0).Cells.Value
.Areas(1).Offset(1, 0).Cells.Value = .Areas(2).Offset(1,
0).Cells.Value
.Areas(2).Offset(1, 0).Cells.Value = vTemp

Else
vTemp = .Cells(1).Value
.Cells(1).Value = .Cells(2).Value
.Cells(2).Value = vTemp
End If
End If
End With
End Sub

moving cells value and font only (no other formats i.e. boarders)
 

hi
you have to add a line to move the font when you move the values
somthing like...
..Areas(1).Cells.Value = .Areas(2).Cells.Value
..areas(1).cells.font.name = .areas(2).cells.font.name

Regards
FSt1

"Prohock" wrote:

I would like to move a cells value and font as well ... but with no other
cell formating. I have the following code that works perfectly with the cells
value, except that the cells that are moved take on the cell format of the
cells that the original content is being moved to.


Dim vTemp As Variant
With Selection
If .Count < 2 Then
MsgBox "2 courses only."
Else
If .Areas.Count = 2 Then
vTemp = .Areas(1).Cells.Value
.Areas(1).Cells.Value = .Areas(2).Cells.Value
.Areas(2).Cells.Value = vTemp
vTemp = .Areas(1).Offset(1, 0).Cells.Value
.Areas(1).Offset(1, 0).Cells.Value = .Areas(2).Offset(1,
0).Cells.Value
.Areas(2).Offset(1, 0).Cells.Value = vTemp

Else
vTemp = .Cells(1).Value
.Cells(1).Value = .Cells(2).Value
.Cells(2).Value = vTemp
End If
End If
End With
End Sub

moving cells value and font only (no other formats i.e. boarde
 

This unfortunately only puts the font name in the other cell i.e. arial. I
want the value and the cells font format.

"FSt1" wrote:

hi
you have to add a line to move the font when you move the values
somthing like...
.Areas(1).Cells.Value = .Areas(2).Cells.Value
.areas(1).cells.font.name = .areas(2).cells.font.name

Regards
FSt1

"Prohock" wrote:

I would like to move a cells value and font as well ... but with no other
cell formating. I have the following code that works perfectly with the cells
value, except that the cells that are moved take on the cell format of the
cells that the original content is being moved to.


Dim vTemp As Variant
With Selection
If .Count < 2 Then
MsgBox "2 courses only."
Else
If .Areas.Count = 2 Then
vTemp = .Areas(1).Cells.Value
.Areas(1).Cells.Value = .Areas(2).Cells.Value
.Areas(2).Cells.Value = vTemp
vTemp = .Areas(1).Offset(1, 0).Cells.Value
.Areas(1).Offset(1, 0).Cells.Value = .Areas(2).Offset(1,
0).Cells.Value
.Areas(2).Offset(1, 0).Cells.Value = vTemp

Else
vTemp = .Cells(1).Value
.Cells(1).Value = .Cells(2).Value
.Cells(2).Value = vTemp
End If
End If
End With
End Sub

moving cells value and font only (no other formats i.e. boarde
 

no, that put the font style in the cell. at least in did on my pc. using xp
here. i tested before i posted.

regards
FSt1

"Prohock" wrote:

This unfortunately only puts the font name in the other cell i.e. arial. I
want the value and the cells font format.

"FSt1" wrote:

hi
you have to add a line to move the font when you move the values
somthing like...
.Areas(1).Cells.Value = .Areas(2).Cells.Value
.areas(1).cells.font.name = .areas(2).cells.font.name

Regards
FSt1

"Prohock" wrote:

I would like to move a cells value and font as well ... but with no other
cell formating. I have the following code that works perfectly with the cells
value, except that the cells that are moved take on the cell format of the
cells that the original content is being moved to.


Dim vTemp As Variant
With Selection
If .Count < 2 Then
MsgBox "2 courses only."
Else
If .Areas.Count = 2 Then
vTemp = .Areas(1).Cells.Value
.Areas(1).Cells.Value = .Areas(2).Cells.Value
.Areas(2).Cells.Value = vTemp
vTemp = .Areas(1).Offset(1, 0).Cells.Value
.Areas(1).Offset(1, 0).Cells.Value = .Areas(2).Offset(1,
0).Cells.Value
.Areas(2).Offset(1, 0).Cells.Value = vTemp

Else
vTemp = .Cells(1).Value
.Cells(1).Value = .Cells(2).Value
.Cells(2).Value = vTemp
End If
End If
End With
End Sub