|
プルダウンリストをシート2に作成しシート1のデータをリストに反映するのに
INDIRECTを使いできたのですが、
シート1の選択範囲をA3からA1000にし
入力されているデータが50個(リストも)であったものをデータを消し10個にしたところ11から50までの分が空白になってしまいました。
リストはdeleteをしたくないのでmodifyで規則を変更させ、シート1のデータが変更されたらシート2のリストが空白のないデータ分だけが表示されるようにするにはどのようにしたらよろしいのでしょうか?
Private Sub Worksheet_Activate()
Module1.tes
End Sub
sub tes()
With Range("A1").Validation
.Modify Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECT(""Sheet1!$A$1:$A$1000"",TRUE)"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = False
.ShowError = False
End With
End Sub
|
|