|
▼りんりん さん:
>ウッシ さんこんにちは。
>回答ありがとうございます。
>教えていただいた通りのコードで試してみたのですが、
>ソートのコードのところで
>『Rangeクラスのsortプロパティを取得できません』という
>エラーが出るのですがどこが悪いのでしょうか??
>
>Sub test()
>
> With Sheets("仕掛品一覧").Range("B2", Range("B65536").End(xlUp))
> With .Offset(, 254)
> .Formula = "=If(A2<>"""",A2,IV1)"
> .Copy
> .PasteSpecial xlValues
> End With
> .Offset(, -1).Resize(, 256).Sort.Offset(, 254).Cells(1).xlAscending ,header:=xlNo
> .Offset(, 254).ClearContents
> End With
>
>End Sub
こんばんは
「With Sheets("仕掛品一覧")」で修飾される全てのRangeに「.」を付けないとダメです。
あとは「,」が「.」になってたり、離れてないといけないところがくっついてたり・・・
Sub test1()
With Sheets("仕掛品一覧")
With .Range("B2", .Range("B65536").End(xlUp))
With .Offset(, 254)
.Formula = "=If(A2<>"""",A2,IV1)"
.Copy
.PasteSpecial xlValues
End With
.Offset(, -1).Resize(, 256) _
.Sort .Offset(, 254).Cells(1), xlAscending, header:=xlNo
.Offset(, 254).ClearContents
End With
End With
End Sub
です。
|
|