【初月無料キャンペーン中】gooドクター

下記のように別WSからのデータをもとにプルダウンを設定するマクロのコードを描いたところ
実施の際に、添付ファイルのアラートが出たのですが、何が違うのかわからず困っております。
有識者の方にご教授お願いしたいです。


Sub Drop_down_list03() 'ドロップダウンリスト範囲を別のシートから取得(別シート参照)

Dim ws01, ws02 As Worksheet
Dim lRow, mRow As Long

Set ws01 = Worksheets("WK_マクロ")
Set ws02 = Worksheets("都道府県")

lRow = ws01.Cells(Rows.Count, "A").End(xlUp).Row 'ワークシート「WK_マクロ」のA列の最終行を取得

'都道府県の設定
mRow = ws02.Cells(Rows.Count, "B").End(xlUp).Row 'ワークシート「都道府県」のB列(都道府県)の最終行を取得

With ws01.Range("C5:C" & lRow).Validation
.Delete 'ドロップダウンリストを削除
.Add Type:=xlValidateList, Formula1:="=項目マスター!$B$2:$B$" & mRow 'リスト範囲を登録(B列データの最終行まで)
End With
End Sub
'

「マクロの実施ができないときの対処法」の質問画像
gooドクター

A 回答 (2件)

「都道府県」という名前のワークシートはありますか?


「項目マスター」の間違いではありませんか?
    • good
    • 0
この回答へのお礼

bonaronさん

大変失礼いたしました。
記載ミスで都道府県と項目マスタを書き換えたところ実装できました。

お礼日時:2021/07/08 16:41

取り敢えず



>With ws01.Range("C5:C" & lRow).Validation

の : が全角文字になっているのは質問時のミス?
    • good
    • 0
この回答へのお礼

>の : が全角文字になっているのは質問時のミス?
質問時のミスです。

お礼日時:2021/07/08 10:01

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング