|
▼めぐたん さん:
>
>データがない時は、『データが有りません』等のメッセージを出さずに、
>1.〜4.も実行せず、5.以降を実行する。
>
>データがある時は、そのまま1.以降を実行する。
>
>というようには、できないでしょうか?
>
>最初からこのように質問していればよかったですね。
>お手数お掛けしてすみませんが、ご回答お願い致します。
>
サンプルそのまんまです。
Sub AAAA()
With Worksheets("(最新)売上明細上期")
.Select
.AutoFilterMode = False
With .Range("A1").CurrentRegion
.AutoFilter Field:=124, Criteria1:=" 上期のみ"
If .SpecialCells(xlCellTypeVisible).Areas.Count = 1 And _
.SpecialCells(xlCellTypeVisible).Rows.Count = 1 Then
' 5
Worksheets(1).AutoFilterMode = False
.Rows("8:8").Select
.Range("E8").Activate
Else
Worksheets("(最新)売上明細年間").Activate
' 1〜2
.Range("A9:CC5000").Copy Worksheets("(最新)売上明細年間").Range("H9").End(xlDown).Offset(1, -7)
' 3〜4
.Range("CM9:DT5000").Copy ActiveCell.Offset(0, 12)
End If
End With
.AutoFilterMode = False
End With
End Sub
|
|