[[20190617192206]]　『特定セルに入力があったときの動作』（たぬき）　ページの最後に飛ぶ

『特定セルに入力があったときの動作』（たぬき）

1シート目に以下のような表を作成しています。
2シート目にも表があるのですが、Dセルに入力があった場合のみ
A～C列の情報を入力する様にしたいのですが、どのようにしたらよろしいでしょうか。
※2シート目は、D列以降に1シート目にはない情報を記載しております。

　　A　　　B　　 C　　　 D　
1　名前　年齢　血液型　入社日
2　山田　 18　　 B　　 10月1日
3　佐藤　 25　　 A　　 10月1日
4　下山　 40　　 A　　　
5　藤田　 34　　 B　　　

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

＞2シート目にも表があるのですが、

どんな表ですか？
１シート目との関係は？

＞Dセルに入力があった場合のみ

２シート目のDセルのことでしょうか。

＞A～C列の情報を入力する様にしたいのですが、

これは、１シート目のこと？

（マナ） 2019/06/17(月) 20:09

お返事ありがとうございます！！

＞＞2シート目にも表があるのですが、
＞どんな表ですか？
＞１シート目との関係は？

2シート目は、1シート目のD列に日付が記載されたときに、1シート目のA～C列の情報を
2シート目に追加していきたいと考えています。

＞＞Dセルに入力があった場合のみ
＞２シート目のDセルのことでしょうか。

1シート目のD列のセルに入力があった場合になります。

＞＞A～C列の情報を入力する様にしたいのですが、
＞これは、１シート目のこと？

入力する情報は1シート目で、入力先は2シート目です。

わかりにくくてすみません。。
助けていただけると幸いです。
（たぬき） 2019/06/19(水) 09:53

VLOOKUP関数でできませんか。

（マナ） 2019/06/19(水) 20:05

 要するに、入社日が入力されてる行だけを別シートに抽出したいってことでしょ？

 マクロの質問なんですかね？

 以上
（笑） 2019/06/20(木) 21:34

＞要するに、入社日が入力されてる行だけを別シートに抽出したいってことでしょ？
＞マクロの質問なんですかね？

おっしゃる通り、入社日が入力されている行の特定の部分だけを別シートに抽出したいという事です！

（たぬき） 2019/06/26(水) 09:50

 >※2シート目は、D列以降に1シート目にはない情報を記載しております

 ということは2シート目にも山田さんや佐藤さんのデータがあり、
 1シート目の山田さんのD列にデータが入ったら2シート目の山田さんのところに
 A～C列のデータを入れるんですか？

 それともそれは関係なく抽出するだけでいいんですか？

 >2シート目に追加していきたいと考えています

 ということはすでに2シート目のA～C列にはデータがあってその最下行などに
 追加するということでしょうか？

 もう少し全体の内容を具体的に書いて頂けませんか？
（コナミ） 2019/06/26(水) 11:48

Sub main()

    'Sheet1からSheet2に転記
    Sheets("Sheet2").Cells.ClearContents
    If WorksheetFunction.CountA(Sheets("Sheet1").Range("D2:D" & Rows.Count)) > 0 Then
        Sheets("Sheet1").Range("D2:D" & Rows.Count).SpecialCells(2).Offset(, -3).Resize(, 3).Copy _
        Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End If
End Sub
（mm） 2019/06/26(水) 13:08

コメント返信：

[ 一覧(最新更新順) ]

[[20190617192206]] 『特定セルに入力があったときの動作』（たぬき） ページの最後に飛ぶ

[[20190617192206]]　『特定セルに入力があったときの動作』（たぬき）　ページの最後に飛ぶ