|
お世話になります。
シートAをダブルクリックする事でシートBのrangeを取得しようとしたのですが
rangeのところで下記のようにエラーとなります。
どなたか解決法をお教えいただけないでしょうか?
(シート内のプログラムです)
Public pWs1, pWs2 As Worksheet
Public cel1, cel2 As Range
Private Sub worksheet_beforedoubleclick(ByVal Target As Range, Cancel As Boolean)
Set pWs1 = Worksheets("A")
Set pWs2 = Worksheets("B")
Set cel1 = pWs2.Cells(1, 1)
Set cel2 = pWs2.Cells(2, 1)
If Target.Value <> Null Then
Else
pWs2.Cells(3, 3) = Target.Value
↓ここでエラーとなります RANGEが使えないのでしょうか?
pWs2.Cells(3, 5) = Range(CELL1, CELL2)
End If
End Sub
|
|