A może tak:
Sub ProbaJ()
Dim a As String
With ThisWorkbook.ActiveSheet
a = .Cells(6, 4)
.Cells(6, 6).NumberFormat = .Cells(6, 4).NumberFormat
.Cells(6, 6) = a
End With
End Sub Albo tak: Sub ProbaJ1()
Dim a As String
With ThisWorkbook.ActiveSheet
a = .Cells(6, 4)
.Cells(6, 6).NumberFormat = "@"
.Cells(6, 6) = a
End With
End Sub |