|
▼Jaka さん:
はじめまして、返信ありがとうございます。
す、すみません、緊張していてうまく説明できていないかもしれません・・
データの更新と申しますか、一部のデータが変更になった最新のファイルを貰った際、(そのファイルには以前貰っている必要のない過去の日付とデータも入っているので手動オートフィルで、必要な未来の日付で抽出します。)
今まで使用している元のファイル(別ファイル.xls)には変更前の未来の日付が入ったデータがあるのですがそこに貼り付け(上書き?)できればいいな・・と・・・・
(同じ日付で件数が増えたり減ったりするので行の場所が変わってしまうのでMATCH関数でD列から探せればと・・)
説明下手でごめんなさい。
>オートフィルタに関しては出来ているのですか?
→オートフィルタはVBAではなく手動でやっております^^
>オートフィルタした後のデータの取得なら、
>こんな感じです。
>
ありがとうございます!
早速こちらを使わせていただき、ちょっと変更してみたのですが、、
Sub 抽出したデータをコピーして貼付()
Selection.CurrentRegion.Copy
>Dim Cel As Range
>With Sheets("Sheet1").AutoFilter.Range
> With .Resize(.Rows.Count - 1).Offset(1)
> For Each Cel In .Columns(4).SpecialCells(xlCellTypeVisible).Cells
> MsgBox Cel.Value
> Next
> End With
>End With
Workbooks("別ファイル.xls").Activate
Sheets("sheet2").Select
Set 検査範囲 = Sheets("sheet2").Range(N1:N500)
行番号 = Application.WorksheetFunction.Match(Cel,検査範囲,0)・・←※ココ
Range("A" & 行番号).Select
Selection.PasteSpecial Paste:=xlPasteAll
※ココで
「エラー5・プロシージャの呼び出し、または引数が不正です」
とメッセージがでてきました。
よくよく理解ができないのに、Match(検査値・・・の所をMatch(Cel・・・に置き換えてしまったからでしょうか・・・
厚かましいかとは思いますが宜しければ教えていただけませんでしょうか?
よろしくお願いいたします。
|
|