|
こんばんは。
いくつかわからないことがありますので、質問させてください。
>そのセルの値(テキストです)をシート1の指定行の行末にコピー貼付けしたいのです。
>貼り付け先のシート「台帳」は
貼り付け先は、「シート1」ですか?「台帳」ですか?
結合セルがある場合、マクロはうまく動作しないことがありますので
うまくいかなかったら、ごめんなさい。
シート2のシートモジュールにコピペして実行してみてください。
シート1で考えてます。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If .Column = 2 Or .Column = 4 Then
Sheets("Sheet1").Range("D65536").End(xlUp).Offset(1).Value = .Value
ElseIf .Column = 5 Then
Sheets("Sheet1").Range("E65536").End(xlUp).Offset(1).Value = .Value
End If
End With
Cancel = True
End Sub
|
|