|
こんにちは
最初に判定した方が良くないでしょうか?
Sub A18外注労務費取込()
' ==============================================================
' 指定セルの現場名(文字列)による当月の業者別請求額を抽出
' Sheets("労務_集計")のA列に該当現場名があるかどうか
' 検索するコマンド必要?。
' ==============================================================
名前 = Worksheets("メイン").Cells(3, 7).Value
If Application.WorksheetFunction.CountIf( _
Sheets("労務_集計").Range("A:A"), 名前 _
) = 0 Then
Exit Sub
End If
'
Application.ScreenUpdating = False
FindとかMatchなども使えると思います。
全体に、変数の宣言をキチンとすべきと思います。
また、Select、Activate を省くコードの書き方を習得されてはどうでしょうか?
|
|