text inclusion

G

GeoffM

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Code error 4
Expand column to copy 3
Column not copying 2
VBA code needing alteration 0
Whats wrong with this code 5
Additional column 0
Copy text only 3
protection with cells 2

Top