チェック後入力ボタンでその行範囲を別セルに入力

質問

フォームのチェックボタンでチェックした後、コマンドボタンクリックで行範囲を別のセル位置に入力したいのですがどなたかコードが解る方よろしくお願いします。

回答No.1

jin34 · ベストアンサー

作業列を使います（ここではZ列）。
各チェックボックスのプロパティのLinkedCell に
”Z○”（○はチェックボックスが配置されている行番号）をセットします。

Private Sub 入力_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer

k=1
i = Range("Z65536").End(xlUp).Row
For j = 3 To i
If Range("Z" & j).Value = True Then
k = k + 1
Range("A"&k).Value=k-1
Range("G" & j, "I" & j).Copy Range("B" & k)
End If
Next j
End Sub

お礼

有難うございます。大変勉強になりました。
既に入力されているとき続けて入力したい場合がわからなかったので改めて質問します。