First here is code currently being executed:
Sub Transpose_PasteModified()
Dim source As Worksheet
Dim destination As Worksheet
Dim emptyColumn As Long
Set source = Sheets("Master")
Set destination = Sheets("Log")
'Data Source
source.Range("D4:E1858").Copy
'Gets Empty Column
emptyColumn = destination.Cells(4, destination.Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
If IsEmpty(destination.Range("G4")) Then
destination.Cells(4, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
emptyColumn = emptyColumn + 1
destination.Cells(4, emptyColumn).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
destination.Cells(3, emptyColumn).Value = Format(Now, "dd:mm:yy hh:mm")
End If
Application.CutCopyMode = False
source.Range("A1").Select
Application.ScreenUpdating = True
End Sub
Originally the source was source.Range("D4:D1858").Copy
Then I added colE E4:E1858
The problem is colE is a percentage field, whereas colD is a numbers field.
I am not quite sure how to go about formatting this additional field. Perhaps there is a different approach I should be taking.
Any help would be most appreciated.
Patrick
Bookmarks