[[20211102201650]]　『チェックボックスON時に転記』（やまぴー）　ページの最後に飛ぶ

『チェックボックスON時に転記』（やまぴー）

    |[E]|[F]  |[G]　|[H]|[I] |[J]|[K]  |    
 [1]|   |　　 |　　 |   |    |   |　　 |
 [2]| □| 山田| 佐藤| □|    | □| 中村|
 [3]| □| 鈴木| 高橋| □|    | □| 小林|
 [4]| □| 田中| 伊藤| □|    | □| 加藤|     
 [5]| □| 山口| 渡辺| □|    | □| 吉田|

上記の様な配列の表でE列、J列のボックスにチェックが入っていたら左隣の内容を指定セルへ転記。
H列のボックスにチェックが入っていたら右隣の内容を指定セルへ転記といったマクロを作りたいと考えています。

E～H列までの転記は出来たのですがK列だけチェックボックスまで一緒に転記されてしまいます。

Sub J列のチェックボックスTRUEならK列内容を転記()

Dim Sh1 As Worksheet
Dim i As Long
Dim j As Long
Dim Q As Long

    j = 10
    Q = 5

    Set Sh1 = Sheets("Sheet1")

    'チェックボックスのセルがTRUEなら転記
        For i = 1 To 35
            If Sh1.Cells(i, j).Value = True Then
                Sh1.Cells(i, j).Offset(0, 1).Copy Sh1.Cells(Q, 19)
                Q = Q + 1
            End If
        Next i

    Set Sh1 = Nothing

End Sub

どうかご教授をお願い致します。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

【訂正】
E列、J列のボックスにチェックが入っていたら右隣の内容を指定セルへ転記。
H列のボックスにチェックが入っていたら左隣の内容を指定セルへ転記。
（やまぴー） 2021/11/02(火) 20:53

チェックボックスの余白部分が、K列のセルにはみだしていませんか。

（マナ） 2021/11/02(火) 21:36

なんか最近こんな内容の投稿増えたな～(笑)

（チンチクリン） 2021/11/02(火) 21:52

＞マナ様
ありがとうございます。
はみ出していた様で正常に動作する様になりましたm(._.)m
（やまぴー） 2021/11/02(火) 21:56

コメント返信：

[ 一覧(最新更新順) ]

[[20211102201650]] 『チェックボックスON時に転記』（やまぴー） ページの最後に飛ぶ

[[20211102201650]]　『チェックボックスON時に転記』（やまぴー）　ページの最後に飛ぶ