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 |
All times are GMT +1. The time now is 06:39 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com