VBAで抽出して並び替えをしたいです。 よろしくお願いいたします。 データを発注者で抽出して仕入区分で外注だったらひな形の外注のセル

画像
補足

すみません。仕入先は相手科目に入って材料・労務費・外注費のところには金額が入ります。 説明不足で済みませんよろしくお願いいたします。

Visual Basic174閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0

返信がないので、発注先を指定するという事でのマクロです。 Sub test() Dim sup As String Dim sh1 As Worksheet, sh2 As Worksheet Dim rng As Range Dim r As Long sup = InputBox("発注先を入力してください。") If StrPtr(sup) = 0 Then Exit Sub ' キャンセル時終了 Set sh1 = Worksheets("データ") Set sh2 = Worksheets("ひな形") With sh1 With .Range(.Cells(1, 1), .Cells(Cells(Rows.Count, 1).End(xlUp).Row, 5)) .AutoFilter Field:=4, Criteria1:=sup End With

ThanksImg質問者からのお礼コメント

ありがとうございました。 仕事がはかどります。本当にたすかりました。

お礼日時:8/2 10:05

その他の回答(1件)