名前を付けて保存の際、自動でファイル名を変数にする

Question

### 前提

VBAで名前を付けて保存をする際、自動でファイル名が変数になるようなコードを作成してます。
前提として私はVBAに関しての知識がないため、ネットに記載のある情報をもとに作成しております。
作りたい機能はエクセルにボタンを作成し、そこに今回作成中のマクロを挿入に、保存作業の軽減に努めようとしております。

実現したいこと

・エクセルにボタンを作成し押下することで、自動でファイル名が変数(得意先名)となり保存できる
・フィルターで変数(得意先)の絞り込みを行っても、絞り込んだ変数(得意先)名で保存できる
・上記により保存作業の負担を軽減

発生している問題・エラーメッセージ

発生している問題：フィルターで絞り込んだ変数(得意先)名で保存したいが、ファイル名がフィルターを使用する前の変数(得意先)名になってしまう。
例)
フィルターなし：保存する際、自動で得意先A(変数)の名前で保存ができる。
フィルターで絞り込んだ状態：保存する際、自動で得意先B(変数)の名前で保存できると思いきや、名前が得意先Aになってしまう。
恐らくフィルターを使うことで、セル番地が変わってしまうためだと思ってます。

該当のソースコード

Sub ファイル名に変数代入()

Dim FileName As String
Dim Done As Variant

    'ファイル名にしたいセル値を変数格納
    FileName = Range("C2") 

    '名前を付けて保存ダイヤログ表示
    Done = IIf(Application.Dialogs(xlDialogSaveAs). _
     Show(Arg1:=ThisWorkbook.path & "\" & FileName & ".xlsm", Arg2:=52), _
     "保存", "キャンセル")

End Sub

試したこと

エラーがでているわけではありませんが、ファイル名がフィルターで絞り込んだ得意先(変数)にならず、大変困っています。ネットでもいろいろと調べましたが個人では解決に至りませんでした・・・
どなたかわかる方がおりましたらお力添えお願いします。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[hatena19]

アップロードした画像のリンクがコード内に埋め込まれています。
コードの外に出して画像が表示されるように質問を編集してください。

[kokichi]

失礼しました。
ご指摘ありがとうございます。
先ほど編集しましたので大丈夫かと。

[hatena19]

ありがとうございました。うまく表示されてます。

Answer 1

フィルターをかけた場合は、
セル範囲.SpecialCells(xlCellTypeVisible)で可視セルだけ取得できます。
それを利用してください。

使い方は下記が参考になるでしょう。

Office TANAKA - Excel VBA Tips[オートフィルタ[絞り込んだ行を操作する]]

---

サンプルコード

Sub ファイル名に変数代入()

    Dim FileName As String
    Dim Done As Variant

    With Range("C2", Range("C2").End(xlDown)).SpecialCells(xlCellTypeVisible)
        'フィルタをかけた最初の可視セルの値を変数に代入
        FileName = .Cells(1, 1)
    End With


    '名前を付けて保存ダイヤログ表示
    Done = IIf(Application.Dialogs(xlDialogSaveAs). _
               Show(Arg1:=ThisWorkbook.Path & "\" & FileName & ".xlsm", Arg2:=52), _
               "保存", "キャンセル")

End Sub

Comments

[kokichi]

ありがとうございます。
早速いただいたサイトを参考にいろいろ試してみましたが上手くいきません・・・
以下のコードで実行しましたが、変わらず同じファイル名になってしまいます。
コードが不足している、並びが違う等ありましたらご教示いただけると助かります。

Sub ファイル名に変数代入()

Dim FileName As String
Dim Done As Variant

With Range("A1").CurrentRegion.Offset(1, 0)
With Range("A1").CurrentRegion.Offset(1, 0)
For Each R In .Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Rows
Debug.Print R.Address
Next R
End With

'ファイル名にしたいセル値を変数格納
FileName = Range("C2")

'名前を付けて保存ダイヤログ表示
Done = IIf(Application.Dialogs(xlDialogSaveAs). _
Show(Arg1:=ThisWorkbook.Path & "\" & FileName & ".xlsm", Arg2:=52), _
"保存", "キャンセル")
End With

End Sub

[hatena19]

代入する式が
FileName = Range("C2")
のままですので、C2セルの値しか代入されません。
コードの意味を理解するようにしてください。

回答の方にサンプルコードを追記しましたので参考にしてください。

[kokichi]

ありがとうございます。
問題なく実行することができました。
VBAをこれから少しづつ学習していこと思います。