データの入力規制
以前教えていただきました。データの入力規制ですが、変更があったため、再度
教えていただけますでしょうか？
sheet2のＢ列にデータの入力規制のセルを設け、そこに頭文字をいれると、sheet1のリストの中から
その頭文字とマッチしたリストを表示させるものを作りたいと考えています。
前回はsheet2のＡ列に候補のリストがありましたが、今回はsheet1のB列にリストがあります。
また、前回はsheet1のＡ列にリスト設定していましたが、今回はsheet２のＢ列に変更したいとおもってます。
また、前回はsheet１のＣ列にマッチした候補が表示していましたが、
sheet1のＡＫ列までデータが入っており、使えなくなっております。
前回教えていただいたコードが
Sub リスト() 'この行から
Dim i As Long, cnt As Long, wS1 As Worksheet, wS2 As Worksheet
Set wS1 = Worksheets("Sheet1") '←Sheet1は実際のSheet名に！
Set wS2 = Worksheets("Sheet2") '←Sheet2も実際のSheet名に！
i = wS2.Cells(Rows.Count, "C").End(xlUp).Row
Application.ScreenUpdating = False
If i > 1 Then
Range(wS2.Cells(2, "C"), wS2.Cells(i, "C")).ClearContents
End If
cnt = 1
If Selection.Column = 1 And Selection.Count = 1 Then
For i = 2 To wS2.Cells(Rows.Count, "A").End(xlUp).Row
If wS2.Cells(i, "A") Like Selection & "*" Then
cnt = cnt + 1
wS2.Cells(cnt, "C") = wS2.Cells(i, "A")
End If
Next i
Application.ScreenUpdating = True
End If
End Sub 'この行まで
になります。
追伸、今朝、お答えいただいた方、申し訳ございません。
画像を他のページから貼ってしまったため、削除されてしまいました。
ですので、再度質問させていただきます。
お礼
さっそくのご回答ありがとうございます。 無事に表示されるようになりました。 実は、前回投稿した時のＩＤで入ろうとすると、パスワードを新しいものに変えてください とか言われるんですが、認証できないでそのままになっているんです。 なので、前回の投稿が見れない状態なのです。 本当に申し訳ないです。