選択したシートを1つに集約するやり方を教えて下さい

質問

マクロを勉強し始めたばかりの初心者です。
仕事で名簿を管理していますが、複数あるシートのうち2つを1つのシートへ集約したいと考えています。（(1)～(8)のシートのうち、(1)電子申請と(2)TEL申込を(3)の申込者名簿シートへ集約したい。）
※(1)～(3)のシート情報は共通の項目となっています。
※A1が項目、A2から情報が入力されてます。
※情報は毎日更新・増減されます。

下記のマクロを作成しましたが、(1)電子申請のみ集約され(2)のシートは集約されませんでした。早急に完成し使用したい為、助けを借りたくこちらへ質問させて頂きました。
本当に初心者です。どこを修正したら完成するか教えて頂けたら嬉しいです。
足りない情報がありましたらご質問ください。

Private Sub CommandButton2_Click()
Dim sWS As Workssheet '"TEL申込","電子申請"
　Dim dWS As Worksheet '申込者名簿
　Set dWS = Worksheets ("申込者名簿")

'申込者名簿の2行目以降を削除
dWS.UsedRange.Offset(1,0).Clear

'"TEL申込","電子申請"の2行目以降のデータを、申込者名簿の末尾にコピー

For Each sWS In Worksheets
If sWS.Name = "電子申請” Or dWS.name = "TEL申込"Then
With sWS.UsedRange
'申込者名簿にデータが1件以上ある場合
　　　　　If .Rows.Count > 1 Then
.Offset(1,0)/Resize(.Rows.Count - 1).Copy _
Destination:=dWS.Cells(Rows.Count, 1)._
End(xlUp).Offset(1,0)
End If

End With
End If
Next sWS

End Sub

回答No.1

kon555 · ベストアンサー

>>If sWS.Name = "電子申請” Or dWS.name = "TEL申込"Then

の部分ではないかと。
「For Each sWS In 」ですので、
Or dWS.name = "TEL申込"Then
ではなく
Or sWS.name = "TEL申込"Then
としないと、"TEL申込"シートが対象になりません。

お礼

ありがとうございました。
無事、作成する事が出来ました。