マクロを使い各社に対する請求書を作成したいと苦慮しております。
データリストシートにリストがあり、A2から行方向には貼り付けしたいシート名に連動したシート名が、
列方向にはそのシート名に連動したデータがリスト化されています。
※イメージ(A列のシート名でソート済)
シート1 A B C 100
シート1 A C D 200
シート2 A B C 100
シート2 A C D 200
シート2 A B C 100
シート3 A C D 200
これを既存の同名シートに値貼り付けして各請求書を作成したいと考えています。
試しに色々調べて下記のようにしてみましたが、各シート1行しか反映されませんでした。
Sub Samle1()
Dim i As Long, k As Long, myFlg As Boolean
With Worksheets("データリスト")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
For k = 2 To Worksheets.Count
If Worksheets(k).Name = .Cells(i, "A") Then
myFlg = True
Exit For
End If
Next k
If myFlg = True Then
Range(.Cells(i, "A"), .Cells(i, "E")).Copy Worksheets(k).Range("B15")
myFlg = False
End If
Next i
End With
End Sub
どのように組んだら良いかご教授いただければ幸いです。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。