Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46087 / 76732 ←次へ | 前へ→

【35624】別シートの行末へコピー
質問  オタピョン  - 06/3/8(水) 17:33 -

引用なし
パスワード
   こんにちは。 VBA初心者のため、試行錯誤中です。どなたか、お知恵を拝借させてください。
 シート2の任意のセルをダブルクリックした場合、そのセルの値(テキストです)をシート1の指定行の行末にコピー貼付けしたいのです。

 コピーしたい対象列と貼付け先の列は決まっていて、シート2のB列とD列にあるセルをダブルクリックした場合には、シート1のD列の最終入力セルの下の空欄のセルへコピー・貼り付けし、
 シート2のE列のセルをダブルクリックした場合には、シート1のE列の最終入力セルの下の空欄のセルへコピー・貼り付けしたいのです。

 ちなみに、貼り付け先のシート「台帳」のD列とE列は、2行を結合して1つのセルとしています。つまり、D5とD6は結合して1つのセルとなっているので、D5の1つ下のセルはD7になっています。

 どうか、ご存知の方、教えてください。よろしくお願いします。
 この質問は、3月4日に質問しましたが返信がもらえませんでした。
 自分なりに、考えましたが、上手くいきません。

 ダブルクリックは、   Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) だと分かりました。
 B列は    If .Column <> 2 Then Exit Sub だと思います。
 行末は    Worksheets("Sheet1").Range("B65536").End(xlUp).Row + 1
なのでしょうか

 クリップボードを経由しないですぐに行えるコピペは、よく分かりません。

 よろしくお願いします。
3 hits

【35624】別シートの行末へコピー オタピョン 06/3/8(水) 17:33 質問
【35640】Re:別シートの行末へコピー ponpon 06/3/8(水) 21:11 発言
【35670】Re:別シートの行末へコピー オタピョン 06/3/9(木) 19:55 お礼
【35651】Re:別シートの行末へコピー ゆと 06/3/9(木) 8:04 発言
【35671】ありがとうございます オタピョン 06/3/9(木) 20:03 お礼

46087 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free