|
こんにちは
▼サン さん:
>シート1に全未収入金があり、シート2に1人の担当者だけの未収入金のファイルを作りたいのですがエラーが出てきます。
>初心者でどこをなおしたらいいかわかりません。
>教えて頂けますでしょうか。
>
>シート1 シート2
>A1 A2 A12
>相手会社 カナ・・・当社担当 白紙
>(漢字表記)(カナ表示) (漢字表記) (ここにシート1で抽出した担当者の
> 一覧をコピーしたいんです)
>
>
>Sub 指定文字()
>
>
>Dim strMoji As String
>
>strMoji = InputBox("検索文字を入力してください")
>strMoji = "*" & strMoji & "*"
>
>Sheets("Sheet2").Activate
>Cells.Clear
>
>With Sheets("sheet1")
> Range("A1").AutoFilter Field:=12, Criteria1:=strMoji
ここ、点が抜けてます
.Range("A1").AutoFilter Field:=12, Criteria1:=strMoji
> .Range("A1").CurrentRegion.Copy _
>Destination:=Sheets("sheet2").Range("A1")
> .Range("A1").AutoFilter
>
>End With
>
>Sheets("sheet2").Columns("A:L").AutoFit
>
>End Sub
|
|