| Home |
| Search |
| Today's Posts |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help to copy values
Thanks Cecil for you assistance,
Regards, Richard -----Original Message----- Richard, try this Cecil Sub Macro1() Dim i As Long, j As Long, LR As Long i = 3 j = 74 'starting row of column Z LR = Range("Z" & Rows.Count).End(xlUp).Row Range(Cells(70, 3), Cells(70, 12)).ClearContents Do Until i = 13 Or j = LR + 1 If Not IsEmpty(Range("AA" & j).Value) And _ IsNumeric(Range("AA" & j).Value) Then If Abs(Range("AA" & j).Value) 0 Then Cells(70, i).Value = Range("Z" & j).Value i = i + 1 End If End If j = j + 1 Loop End Sub "Richard" wrote in message ... Thanks Cecil, Unfortunately, from time to time there will be one or two letters in the AA column. This must be causing the problem. Is there any way around this. Cheers, Richard. . |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| copy between worksheets does not copy formulae just values | Excel Discussion (Misc queries) | |||
| Copy/Paste how to avoid the copy of formula cells w/o calc values | Excel Discussion (Misc queries) | |||
| copy values generated by conditional formula in one sheet to the other work sheet as values | Excel Worksheet Functions | |||
| compare values between workbooks and copy values | Excel Programming | |||
| Range COPY function - how to copy VALUES and not formulas | Excel Programming | |||
![Richard[_15_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Threaded Mode
