Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45396 / 76807

←次へ　｜　前へ→


	【36408】マッチングの後、別シートに日付を・・・

年寄 - 06/3/30(木) 16:46 -


	引用なし

	パスワード

初めまして。本やサイトを参考にしましたが一向に進まず、質問させていただきます。まず、sheet1に　　　　　　A列　　　　　　　B列　　　　　　　　 1行　　　　A123456789　　　　OK　　　★コマンドボタン★ 2行　　　　B123456789　　　　OK 3行　　　　C123456789　　　　 4行　　　　D123456789　　　　OK というデータとコマンドボタンがあります。そのコマンドボタンを押して B列に　『　"OK" 　』と出た隣にある、『　A列のデータ　"A123456789"　』と sheet2 　　　　　　　B列　　　　　C列　　　　　　　　　　　　　　　K列 1行　　　　　 11　　　 A123456789　　　　　　　　　　2006/03/15 完了 2行　　　　　 11　　　 B123456789　　　　　　　　　　2006/03/15 完了 3行　　　　　 11　　　 C123456789　　　　 4行　　　　　 12　　　 D123456789　　　　　　　　　　2006/03/15 完了の『　C列のデータ　』とマッチングさせて合致した時、K列に「その時の日付と文字」　" 2006/03/15 完了" を入力させたい場合、sheet1のコマンドボタンのプロシージャはどうすればいいか分かりますでしょうか？『　"OK" 　』が無いデータの場合、日付は空欄にしたいと思います。イメージ的には、sheet1のB列をDo～LoopもしくはFor～Nextして、『　"OK" 　』かどうかをIf～thenで判定して OKならsheet2のC列をFindしてOffsetでセルに日付を入れる方法が思い浮かぶのですが、全然繋がりません・・・ベテランの皆様よろしくお願いします。