Friday, September 23, 2016

copy and paste values only

copy and paste values only

HI All,
 
I would like help with the following question concerning the code below.
When the macro copies the data from column L it paste the formula on sheet1 Range("F3") and not the value.
How would I change the code to paste the value.
Thanks in advance for any help
 
 
Sub OverPymntSummary()
' This macro moves info from AGNTDATA to sheet1
  Dim X As Long, LastRow As Long, paylastrow As Long
 
  paylastrow = Sheets("PYMNTDATA").Cells(Rows.Count, "A").End(xlUp).Row
 
  ' Delete data from previous query
 
  Sheets("Sheet1").Range("A3:H" & paylastrow).ClearContents
 
  'move info from AGNTDATA to sheet1
  Const DataStartRow As Long = 1
  LastRow = Sheets("AGNTDATA").Cells(Rows.Count, "A").End(xlUp).Row
  Sheets("AGNTDATA").Activate
  With Sheets("AGNTDATA").Columns("A")
  .Replace Sheets("SHEET1").Range("B1").Value, "#N/A"
    With .SpecialCells(xlCellTypeConstants, xlErrors)
    .Replace "#N/A", Sheets("SHEET1").Range("B1").Value
    Intersect(Columns("A:D"), .EntireRow).Copy Worksheets("Sheet1").Range("A3")
    Intersect(Columns("F"), .EntireRow).Copy Worksheets("Sheet1").Range("E3")
    Intersect(Columns("L"), .EntireRow).Copy Worksheets("Sheet1").Range("F3")
      .Value = Sheets("SHEET1").Range("B1").Value
    End With
  End With
  Sheets("sheet1").Activate
End Sub

Keys to the Problem copy and paste values only

Download SmartPCFixer to Fix It (Free)

Sounds a bit odd but split the line into two...
Intersect(Columns("L"), .EntireRow).Copy
Worksheets("Sheet1").Range("F3").PasteSpecial Paste:=xlPasteValues

Rik_UK Please mark the message or messages that answer your question as the "Answer" or vote if a reply has been helpful.

Open Action Center by clicking the Start button Picture of the Start button, clicking Control Panel, and then, under System and Security, clicking Review your computer's status.

Update and run your antivirus software. Windows doesn't come with antivirus software, but Action Center can often monitor the antivirus software that you or your computer manufacturer have installed.

Another Safe way to Repair the Problem: copy and paste values only:

How to Fix copy and paste values only with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your computer.  Open it, and it will scan your computer. The errors will be shown in the scan result.

2. After the scan is finished, you can see the errors and problems which need to be fixed.

3. The Fixing part is finished, the speed of your computer will be much higher than before and the errors have been removed.


Related: How Can You Update & Download NVidia 6100, 6800 GS/XT Display Driver v.260.89 WHQL,Where to Download NVidia GeForce 8800 GT WHQL-certified driver v.196.21,How to Update & Download NVidia GeForce Go 7400 Display Driver v.260.19.12,[Solved] Download NVidia GeForce GTX 460M Driver v.331.82,Download NVidia Quadro Plex Model IV VGA Driver v.304.43 Certified,Way to Download RealTek RTL8100C(L) Driver v.5.01,Way to Download RealTek RTL8100E Drivers v.694,Way to Update & Download RealTek RTL8101L Auto Installation Program v.6.110 driver,Method to Update & Download RealTek RTL8111G PXE and RPL ROM code v.2.58 driver,How to Update & Download RealTek RTL8411B(N) Driver v.10.003,Best Way to Update & Download ASUS A53SV nVidia Graphics Driver v.8.17.12.6686,Method to Herunterladen ASUS K75VJ Intel Rapid Storage Technology Treiber v.11.6.0.1030,How Can You Update & Download ASUS CG8580 Intel Chipset Driver v.9.3.0.1019,Method to Update & Download ASUS K41VD Intel INF Update Driver v.9.1.1.1015,Way to Update & Download ASUS Pro70T NB Probe v.3.0.0026 driver
Read More: How Can You Fix - Corrupted .wav file??,Troubleshoot:Copy Picture command from 2003 and before,[Anwsered] copy a user form,Troubleshoot:Currently have Windows 8 on my laptop but motherboard crashed,Creating a restore point using Task Scheduler in Windows 7,Closing Internet Explorer causes error,Compare 2 Tables and Calculate the PROFIT Faster,Computer goes to Windows Boot Manager after Start,Connect to one of my network computer remotely when don't allow exception box Marked,computer locking up randomly

No comments:

Post a Comment