DTPicker

S

Syed Haider Ali

Dear freinds,

hi

I have DTPicker1 and DTPicker2 on my userform through these i copy data
from Sheet1 for a specific period to paste data sheet2. The following
codes i am using

Private Sub CommandButton1_Click()

Worksheets("sheet1").Select
Dim x As Long
Dim y As Long
y = 1
For x = 1 To 65536
If Cells(x, 1).Value >= CDate(DTPicker1) And Cells(x, 1).Value <=
CDate(DTPicker2) Then
Sheets("sheet2").Cells(y, 1).Value = Cells(x, 1).Value
Sheets("sheet2").Cells(y, 2).Value = Cells(x, 2).Value
Sheets("sheet2").Cells(y, 3).Value = Cells(x, 3).Value
y = y + 1
End If
Next x
End Sub

I am copying data only from one sheet1 through DTPickers to paste into
Sheet2. My question is if i have two sheets i.e sheet1 and sheet2
having date field at col A in each sheet . What would be the code to
copy data from sheet1 and sheet2 to paste into sheet3 using same
DTPicker1 and DTPicker2.

Thanks

SYED HAIDER ALI
 

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

Top