現在は別シートに転記していますが別ブックに転記したいのです 削除
| Message#1 2021年6月26日(土)02時12分 From: 西村 |
| 売上集計表から、B列のある売上日をダブルクリックで その行のデータの「顧客名」C列 「適応」D列 「金額」E列 を 領収書(別ブック)を開き、領収書(別ブック)のB7に顧客名 C11に金額 D16に適応を転記 売上集計表のブックを閉じる このような事を実現したいのですか゛ どちら様か ご指南ください よろしくお願いします。 現在のコード Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set Target = Intersect(Target, Me.Range("B4").CurrentRegion) If Target Is Nothing Then Exit Sub Set Target = Intersect(Target.EntireRow, Me.Range("C:E")) Target.Select With Worksheets("Sheet2") .Range("B7").Value = "'" & Target(1, 1).Value .Range("C11").Value = Target(1, 3).Value .Range("D16").Value = Target(1, 2).Value End With Cancel = True End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
