Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6966 / 76735 ←次へ | 前へ→

【75365】いつからいつまでを抽出
質問  キョウコ  - 14/3/13(木) 11:49 -

引用なし
パスワード
   こんにちわ。
早速ですが質問です。

シート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

0 hits

【75365】いつからいつまでを抽出 キョウコ 14/3/13(木) 11:49 質問
【75366】Re:いつからいつまでを抽出 kanabun 14/3/13(木) 13:06 発言
【75367】Re:いつからいつまでを抽出 kanabun 14/3/13(木) 16:15 発言
【75369】Re:いつからいつまでを抽出 キョウコ 14/3/13(木) 16:53 質問
【75370】Re:いつからいつまでを抽出 kanabun 14/3/13(木) 17:13 発言
【75372】Re:いつからいつまでを抽出 キョウコ 14/3/13(木) 17:45 お礼
【75371】Re:いつからいつまでを抽出 kanabun 14/3/13(木) 17:31 発言
【75368】Re:いつからいつまでを抽出 kanabun 14/3/13(木) 16:52 発言

6966 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free