質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.35%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

1回答

1447閲覧

抽出したセルの転記がうまくいかない

yoppychan

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2021/10/06 01:05

前提・実現したいこと

フィルターをかけた後に何行が抽出されますが
「抽出してでてきたデータのC3のデータを「別ブック」のG3セルに入れる、
2つめの抽出されたC11のデータを「別ブック」のG3セルにいれる

例えば5列抽出されたら5ブックが出現し、例えば3行目・4行目・8行目・11行目・12行目
が抽出されたとします。

コピー元ブック C3  →  コピー先ブックG3
コピー元ブック C4  →  コピー先ブックG3
コピー元ブック C8  →  コピー先ブックG3
コピー元ブック C11  →  コピー先ブックG3
コピー元ブック C12  →  コピー先ブックG3

毎回転記したい列は同じで行番号だけは抽出によって違うのですが
その違いを表現できず、調べてでてきたものを加工してもうまくいきません。
(固定でセルを指定してしまっているのは、っているのですが)

新しく転記したデータのB2セルに入っている文字をタイトルにして
xlsxで保存したいのですが、保存ウィンドウまではいくのですが
ファイル名は空っぽのままです。

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

エラーは出ず、できてない状態(元のC3データが転記先エクセルのG3に転記しただけのまま)で終わる。

該当のソースコード

1つめの疑問
Sub 貼り付け()
ThisWorkbook.Worksheets("Sheet1").Range("C3").Copy Workbooks("転記先.slsx").Worksheets("Sheet1").Range("G3”)
End Sub

2つ目の疑問(別ブックのB2セルをxlsxで保存)
Sub 保存()
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("B2").Value

試したこと

マクロの記録を使ってやってみましたが、うまく応用できませんでした。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

1つめの疑問について:
オートフィルタで抽出したデータを行ごとに処理するには、以下を参考にしてみてください。

http://pineplanter.moo.jp/non-it-salaryman/2016/11/08/excel-vba-filter-row/

2つ目の疑問について:
試されたのはダイアログを表示しているだけですね。
ブックの保存については以下を参考にしてみてください。

https://excel-ubara.com/excelvba1/EXCELVBA375.html

投稿2021/10/06 01:18

hex309

総合スコア761

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問