|
▼ponpon さん:
>で、こんな風にしてみました。
>
>Option Explicit
>Private Sub Worksheet_Activate()
>
> With Worksheets("Sheet1")
> If .AutoFilterMode = False Then
> .Range("A1").AutoFilter Field:=1, Criteria1:=1
> End If
> If .AutoFilter.Range.Columns(1).Rows.Count = 1 Then
> MsgBox "対象データがありません。"
> .AutoFilterMode = False
> Exit Sub
> Else
> Sheets("Sheet2").Cells.ClearContents
> .AutoFilter.Range.Offset(1).Copy
> Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues
> .AutoFilterMode = False
> Application.CutCopyMode = False
> End If
> End With
>
>End Sub
ponponさん
祝日なのにご回答ありがとうございます。
問題はかなり解決されましたが、これだと
1.列Aになにも何もはいっていない場合、(セルA2から下方向)
2.列Aに「1」以外の数値が入っている場合、(「2」とか「3」とかを間違って
入力した場合)
に”対象データがありません。”の表示がされません。
ponponさんのコードだと、どのような場合にメッセージ表示されるのでしょうか。
教えてください。よろしくお願いします。
|
|