質問: フィルターで絞ってあるデータの一部を使用したいと思っています。 VBAは見よう見まねで使用していてよくわかっていません。 よろしくお願いします。
回答: >データの一部を使用したいと思っています。 どのようなデータのどの部分をどう使いたいのか良く解りませんね。 とりあえず、 「PTW」シートのC列で、フィルターが掛かって見えてる部分を、「見積書1」シートに値の貼り付けする例文 を提示しておきます。 Private Sub PTWPaste_Click() With Workbooks("見積データ.xlsm") With .Worksheets("PTW") Intersect(.Range("C:C"), .AutoFilter.Range).SpecialCells(xlCellTypeVisible).Copy End With .Worksheets("見積書1").Range(TextBox3.Value).PasteSpecial PasteValues End With End Sub 未実行につき不具合ご容赦。