Macro to paste special values
Closed
karthikha
Posts
1
Registration date
Friday February 3, 2017
Status
Member
Last seen
February 4, 2017
-
Updated by Ambucias on 4/02/17 at 04:33 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Feb 6, 2017 at 11:40 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Feb 6, 2017 at 11:40 AM
Related:
- Macro to paste special values
- Special character letter - Guide
- How to type special e - Guide
- Spell number in excel without macro - Guide
- Macro excel download - Download - Spreadsheets
- How to paste photo in resume - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
552
Feb 6, 2017 at 11:40 AM
Feb 6, 2017 at 11:40 AM
Hi Karthikha,
The code below will paste the formulas in A1:A3 as value in A1:A3 when all the cells in A4:A400 are the same as the value in A3. Workbook is automatically saved, so you might want to test this code on a copy of your workbook first.
Here is the code:
Best regards,
Trowa
The code below will paste the formulas in A1:A3 as value in A1:A3 when all the cells in A4:A400 are the same as the value in A3. Workbook is automatically saved, so you might want to test this code on a copy of your workbook first.
Here is the code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.WorksheetFunction.CountIf(Range("A4:A400"), Range("A3").Value) = 397 Then
Range("A1:A3").Copy
Range("A1:A3").PasteSpecial xlPasteValues
End If
ActiveWorkbook.Close SaveChanges:=True
End Sub
Best regards,
Trowa
