Sub CopyPastVal()
Cells.Copy
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Thanks, David
On Sunday, December 17, 2017 at 12:12:31 AM UTC-8, Ravi K wrote:
>
> Thanks David.
> Will try to incorporate this into the macro.
>
> Cheer
Sub chkdt()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim rw, cl, i, q As Double 'rw - no of used rows, cl - no of used column, i
- lookup for row,q - lookup for column
Dim dif, t, dt As Long
t = 4
dt = 5
rw = ThisWorkbook.Sheets("MINUTES").Range("A" & Rows.
Thanks David.
Will try to incorporate this into the macro.
Cheers
Ravi
On 17 Dec 2017 7:20 am, "who" wrote:
> Might try this too. Thanks, David
>
> Sub CopyPasteAll()
> Cells.Select
> Selection.Copy
> Selection.PasteSpecial Paste:=xlPasteValues
> ActiveSheet.Paste
> Applicat
Might try this too. Thanks, David
Sub CopyPasteAll()
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
End Sub
On Friday, December 15, 2017 at 10:14:17 PM UTC-8, Ravi K wrote:
>
> Hi
