|
ご回答ありがとうございます。
試してみたのですが空欄で反映されませんでした。(泣)
具体的には↓のようにしたのですが。
また、入力シートのM62には”=IF(B62="選択",L62,"")”という
関数が入っています。
超初心者の私なのですが、今日中に提出しなければいけなくて泣けてきます。
どうか、助けてください。
Range("C4:C5,C7:C8,C10,A62:A294").Select
Range("A62").Activate
Selection.ClearContents
Sheets("ユーザー提出用").Select
Worksheets("ユーザー提出用").Range("D20:D252").Value = _
Worksheets("入力シート").Range("M62:M294").Value
Columns("A:L").Select
Range("A2").Activate
Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll ToRight:=1
Selection.AutoFilter Field:=11
Range("C8").Select
Sheets("営業控").Select
Columns("A:O").Select
Range("A2").Activate
Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll ToRight:=4
Selection.AutoFilter Field:=14
ActiveWindow.LargeScroll ToRight:=-1
Range("C10").Select
Sheets("入力シート").Select
Range("E14").Select
ActiveWindow.SmallScroll Down:=-12
|
|