別シートに成約をボタン1つで転記したい

反響管理しているExcelシートがあります。
1.反響管理シート
2.売上管理シート
3.長期追客シート

1.の反響管理シートが常に入力をしているシートで、W列に、
成約
失注
長期追客
と状況を入れています。
それをもとに成約であれば2.の売上管理シートに、長期追客であれば3.長期追客シートへ転記させたいと考えています。
ボタンひとつで転記できればなぁと思っているのですが、マクロ？を使えば出来るのでしょうか！？
教えてください。
宜しくお願いいたします。

元データにはA列～AB列まで記載してあるのですが、下記14項目だけを転記（A列は空けてB列から左詰めで）したいです。

B、C、D、E、F、G、I、J、W、X、Y、Z、AA、AB

このようなマクロの設定は可能でしょうか？
教えてください。
宜しくお願いいたします。

No.4 ベストアンサー 回答者： fujillin 回答日時： 2023/10/26 23:15

No2です。

＞マクロの記録を押してからフィルターオプションを設定？
＞して記録の終了を押したらできますか？
「マクロの記録」は手動操作の内容を、マクロとして記録するものです。
一方で、
＞何度も試してみたのですがフィルターオプションが出来なくて…
手動の操作がわからないのであれば、記録のしようがありません。


マクロに拘る理由が不明ですが、自作できないようですので、どこかで作成できても、言わばブラックボックスであり呪文のようなものでしかないでしょう。
修正もできなければメンテもできないものになってしまうと考えられます。

以下はご質問文で不明の点は、勝手に想定した一例です。
・シート名は「反響管理」「売上管理」「長期追客」の3種類と仮定。
・Ｗ列の値は「成約」「長期追客」の完全一致で抽出します。
処理方法としては、No2に挙げた3番目の方法です。
（エラーチェック等は省略してあります）
ご参考までに。

Sub Q13636093()
Dim sh As Worksheet, s
Dim r As Range, U As Range
Dim i As Long, w As String

With Worksheets("反響管理")
For Each n In Array("売上管理,成約", "長期追客,長期追客")
Set sh = Worksheets(Split(s, ",")(0))
w = Split(s, ",")(1)
Set U = Nothing

For i = 1 To .Cells(Rows.Count, "W").End(xlUp).Row
If .Cells(i, 23).Value = w Then
Set r = Union(.Cells(i, 2).Resize(, 6), _
.Cells(i, 9).Resize(, 2), .Cells(i, 23).Resize(, 6))
If U Is Nothing Then Set U = r Else Set U = Union(U, r)
End If
Next i

sh.Columns("B:O").ClearContents
If Not U Is Nothing Then U.Copy Destination:=sh.Cells(1, 2)
Next s
End With
End Sub

この回答へのお礼

ありがとうございます～！
参考にしながら、研究します！
お世話になりました<m(__)m>

お礼日時：2023/10/27 09:59

No.3 回答者： 耕四郎 回答日時： 2023/10/26 17:20

chatGPTに聞けばソースコードも生成してくれます。

使い方などはYoutube動画にたくさんあるので簡単ですよ。

この回答へのお礼

chatGPTですか！？
すごいですね！
ちょっとYouTube動画見てみます！
ありがとうございます！

お礼日時：2023/10/26 23:05

No.2 回答者： fujillin 回答日時： 2023/10/26 16:52

こんにちは

https://oshiete.goo.ne.jp/qa/13635830.html
でも回答しましたが、関数を設定しておけば、ボタンを押すことも不要になります。

何らかの理由で、マクロでなければダメなのであれば、
　・フィルタオプションを利用する方法
　・関数式を利用する方法
　・各行を処理して、該当行を抽出する方法
などなどが考えられます。
上段の二つの方法であれば、「マクロの記録」を利用することで、ほぼ作成が可能です。

この回答へのお礼

ありがとうございます～
それが、何度も試してみたのですがフィルターオプションが出来なくて…
こうやってまた質問させていただきました。
マクロの記録でフィルターオプションを利用する方法ですが、
マクロの記録を押してからフィルターオプションを設定？して記録の終了を押したらできますか？

お礼日時：2023/10/26 16:56

No.1 回答者： 耕四郎 回答日時： 2023/10/26 16:47

出来ると思いますよ。

マクロのサンプル自体はどこかに転がってると思います。
条件分岐と転記の組み合わせで。

この回答へのお礼

ご回答ありがとうございます！
出来るということで、頑張って探してみます～♪
条件分岐と転記ですね！

お礼日時：2023/10/26 16:49