|
こんにちわ。
早速ですが質問です。
シート2に売上と売上予定の日付が書かれているセルがあります。
(K3”2014/3/1” L3”〜” M3”2014/3/20”)売上
(K4”2014/3/21” L4”〜” M4”2014/3/31”)売上予定日
シート1に
売上データが記載されています。
A”顧客” B”品名” C”金額” D”担当” E”売上日or売上予定日”
シート1のデータのE列の日付から(K3からM3まで)シート2の売上の日付のデータを抽出し
シート6へ行ごとコピーしたいのです。
下記のマクロで
K3の日付のマクロを抽出することはできたのですが、
2014/3/1のデータしか引っ張れません。
どうにか試行錯誤しいろいろ試したのですが、
わかりそうもなくこちらで質問させていただきます。
よろしくお願い致します。
Dim ws1 As Range
Dim rng As Range
Dim myStr, ra, rr, myStr2
Sheet6.Cells.ClearContents ←ここでシート6の内容を消去
myStr = DateValue(Sheet2.Range("K3")) ←ここにM3も追加しK3〜M3としたい
Set ws1 = Sheet1.Cells
Set ws2 = Sheet6.Range("A1")
With ws1.Columns("E")
Set rng = .Find(What:=myStr, LookAt:=xlWhole, After:=.Cells(.Cells.Count))
If rng Is Nothing Then 'なかったら
MsgBox "ありません"
Else 'あったら
ra = rng.Address
Do
rr = rr + 1 'カウント
rng.EntireRow.Copy Destination:=ws2.Cells(rr, 1) '行のコピペ
Set rng = .FindNext(rng)
Loop While rng.Address <> ra
Set rng = Nothing
End If
End With
Set ws1 = Nothing
Set ws2 = Nothing
|
|