| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
I need this to copy only the range that has "Yes"
Sub Complete() 'This is to copy completed Fraud Audits to Complete Page
Application.ScreenUpdating = False Dim Mycell As Object Sheets("Sheet1").Select If Range("B32,C32,D32,E32,F32,G32,H32,I32,J32,K32,L32 ,M32,N32,O32,P32,Q32") = ("Yes") Then Range("B8:Q31").Copy Sheets("Completed").Select For Each Mycell In Range("A:A") If Mycell.Value = "" Then Mycell.Offset(rowOffset:=0, columNoffset:=0).Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True 'transpose from the origanl setupExit For Exit For End If Next |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Selecting "Save As" adds "Copy of" to file name- MS Excel 2007 | Excel Discussion (Misc queries) | |||
| use variable in Workbooks("book1").Worksheets("sheet1").Range("a1" | Excel Programming | |||
| compare ranges in different workbooks and copy "not matching values" at bottom of range 1 | Excel Programming | |||
| Using "Cells" to write "Range("A:A,H:H").Select" | Excel Programming | |||
Threaded Mode
