Copy and paste data only if value is above 0 Tech Support

Copy and paste data only if value is above 0

I've almost got it....

I'm trying to copy and paste data from one section to another section in the same worksheet.
 The following code copies all rows.

My worksheet has parts to order.
A person will simply type a number into the "Qty to Order" cell.
The code needs to understand that the person only wants two line items (rows) of data.
The two rows (below) that have a number in the "Qty to Order" column need to be copied to another specific area of the worksheet.



qty to order
part number
description
price

1
2342
cups
12

 
3942
plates
15

 
29043
knives
11

1
23040
forks
9



Any suggestions would be highly appreciated!!!

Sub Check_Sheet()

For Row = 1 To 15
    For col = 1 To 15
        If ThisWorkbook.Sheets("Sheet2").Cells(Row, col).Value > 0 Then
            ThisWorkbook.Sheets("Sheet2").Activate
            ThisWorkbook.Sheets("Sheet2").Range("A1:F16").Copy Range("A21:F21")
                Else
                If ThisWorkbook.Sheets("Sheet2").Cells(Row, col).Value = " " Then
                ThisWorkbook.Sheets("Sheet2").Activate
            End If
        End If
    Next
Next
        
End Sub

Anwsers to the Problem Copy and paste data only if value is above 0

Download SmartPCFixer to Fix It (Free)

OK, I've gone back over the dialog here and I believe your last reply clears up a few things.
If you want the copy process to be run as a macro from a command button or the
Alt+F8 Macros dialog box them this should do,

Sub ABS_Sales_Order()
    Dim r As Long
    With ThisWorkbook.Sheets("ASSET DIAGNOSTIC SERVICES")
        For r = 67 To 78
            If Application.Sum(.Cells(r, 1).Value) > 0 And _
              CBool(Len(.Cells(241, 19))) Then
                .Cells(r, 1).Resize(1, 6).Copy _
                  Destination:=.Cells(Rows.Count, 19).End(xlUp).Offset(1, 0)
            ElseIf Application.Sum(.Cells(r, 1).Value) > 0 Then
                .Cells(r, 1).Resize(1, 6).Copy _
                  Destination:=.Cells(241, 19)
            End If
        Next r
        .Activate
    End With
End Sub

    

If you want the copy process to be automated when a salesperson types in a number, then that macro command will have to be replaced with a
Worksheet_Change event and a decision has to be made as to when the quantities are zeroed.

If you failed to fix it, another option is to call Microsoft and walk through the process with a technician. To do this, dial "1-800-936-5700". Explain the error that you received and the steps in the update process during which it was displayed. The technician will be able to walk through the steps from getting a new product key to finishing the installation.

Another Safe way to Fix the Problem: Copy and paste data only if value is above 0:

How to Fix Copy and paste data only if value is above 0 with SmartPCFixer?

1. Download Error Fixer . Install it on your system.  Click Scan, and it will perform a scan for your computer. The errors will be shown in the list.

2. After the scan is done, you can see the errors and problems need to be fixed. Click Fix All.

3. The Repair part is done, the speed of your computer will be much higher than before and the errors have been removed. You can also use other functions in SmartPCFixer. Like dll downloading, windows updating and print spooler error repair.

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: convert file xps to excel [Anwsered],Troubleshooter of Error: CTRL + A problem in MS Word 2007,Fast Solution to Error: Cross-reference problem: extra digit,Troubleshoot:Creating multi-file documents?,Troubleshoot:cross site script error when playing facebook game,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