Excelでドロップダウンリストの選択項目と表示内容を変えたい

Question

##実現したいこと

Excelでドロップダウンリストを作成し、
ドロップダウンリストの選択している項目と
選択後の表示を変えたいです。

ドロップダウンリストのリスト内容は
シート名：『仕入先情報』の取引先名で選択し、
シート名：『仕入先情報』の取引先CDを表示させたい

ドロップダウンリストの表示は
シート名：『データ作成用シート』のＤ行に表示

試したこと

ドロップダウンリストを作成し、Excelで異なる値を表示するには？
上記ＵＲＬを参考に試してみましたが、動作しませんでした。

コード内容

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    selectedNa = Target.Value
    If Target.Column = 5 Then
        selectedNum = Application.VLookup(selectedNa, Sheets("仕入先情報").Range("dropdown"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If
End Sub

補足情報（FW/ツールのバージョンなど）

Excelバージョン2019を使用

Answer 1

試してみたときにどのようにコードを書いたかわからないので、憶測ですが、
参考サイトのコードだとVLOOKUPの参照先が Activesheet になっているのを、
そのままにしているのではないでしょうか。
だとすると、その部分は以下のように直すのが良いと思います。

selectedNum = Application.VLookup(selectedNa, Sheets("仕入先情報").Range("dropdown"), 2, False)

Comments

[yzk]

jinoji様
ご回答ありがとうございます。

回答頂いた通りに変更してみたのですが、
ドロップダウンリスト選択後に取引先CDにならず
エラーも表示されず、取引先名のままの表示になっております。

コード内容を記載したのですが、
素人のためコード内容の意味も分からないまま使用しているのが現状です。
他に修正する箇所があるのでしょうか？

[jinoji]

まず、このコードを書く場所が『データ作成用シート』のシートモジュールになっているかどうか。
次に、D列を入力したときに発動してほしいのだから、If Target.Column = 4 Then とする必要があります。

[yzk]

ご回答ありがとうございます。
If Target.Column = 4 Thenにしたところ
思い通りの動作が出来ました。

ありがとうございました。