Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
text inclusion
Can someone please amend this so that copy/paste occurs if column D 1 AND column E contains text 'inc'
Thank you Private Sub CommandButton1_Click( CopyData Range("D9:D13"), "FEEDER CopyData Range("D16:D58"), "MACHINE CopyData Range("D63:D73"), "DELIVERY CopyData Range("D78:D82"), "PECOM CopyData Range("D88:D94"), "ROLLERS CopyData Range("D104:D128"), "MISCELLANEOUS End Su Private Sub CopyData(rngD As Range, Target As String Dim rng As Range, cell As Rang Dim rng1 As Range, rng2 As Rang Dim rng3 As Rang Dim nrow As Long, rw As Lon Dim Sh As Workshee nrow = Application.CountIf(rngD, "0" If nrow = 0 Then Exit Su Set Sh = Worksheets("Quote2" Set rng = Sh.Columns(1).Find(What:=Target, After:=Sh.Range("A1"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False Set rng3 = rn rng.Offset(1, 0).ClearContent If Application.CountA(rng3) 2 The Els Set rng3 = rng.Offset(2, 0 End I rw = rng3.Ro rng3.Resize(nrow * 2, 1).EntireRow.Inser For Each cell In rng If Not IsEmpty(cell) The If IsNumeric(cell) The If cell 0 The Cells(cell.Row, 1).Resize(1, 2).Copy Destination:=Sh.Cells(rw, 1 rw = rw + End I End I End I Nex End Su |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Inclusion in Outlook Express | Excel Discussion (Misc queries) | |||
Insert column : lose inclusion in functions | Excel Worksheet Functions | |||
How do we make Inclusion-Exclusion Principles on Excel? | Excel Worksheet Functions | |||
inserting columns inclusion in formula | Excel Worksheet Functions | |||
Automatic Inclusion of Comments on Chart Data Points?? | Excel Discussion (Misc queries) |