Find Copy and Paste

[Closed]
Report
Posts
1
Registration date
Monday August 6, 2012
Status
Member
Last seen
August 6, 2012
-
Hello,

I'm new in the forum. I need help to combine my 2 macro codes into one. Can anyone help?

The macro is written as below:
Sub UpdateSales()

Dim rc As Long

rc = Range("Date").CurrentRegion.Rows.Count

For Each C In Range("Date", "H" & rc + 1)
If C.Value = Range("B12").Value Then
With Worksheets("321")

.Range("SalesEntry").Copy
.Range(C.Offset(0, 1), C.Offset(0, 3)).PasteSpecial (xlPasteValues), Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

End With
Exit Sub
End If
Next C

End Sub

Sub UpdateOtherSales()

Dim rd As Long

rd = Range("Date").CurrentRegion.Rows.Count
For Each D In Range("Date", "H" & rc + 1)
If Range("B12").Value Then
With Worksheets("321")
.Range("OtherSales").Select
Selection.Copy
.Range(D.Offset(0, 8), D.Offset(0, 8)).PasteSpecial (xlPasteValues), Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
.Range("Deposit").Select
Selection.Copy
.Range(D.Offset(0, 16), D.Offset(0, 16)).PasteSpecial (xlPasteValues), Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

End With
Exit Sub
End If
Next D

End Sub

Thank you for the help.

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!