リストボックスについて

質問

リストボックスからデータを転記したいのですが、
実行時エラー"1004"が出てしまい、どうしてもうまくいきません。
どなたか原因を教えてください。

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
With Worksheets("sheet2")
i = .Range("F47").End(xlUp).Row + 1

.Range(i, 6).Value = ListBox1.List(ListBox1.ListIndex, 0)
.Range(i, 12).Value = ListBox1.List(ListBox1.ListIndex, 1)
.Range(i, 26).Value = ListBox1.List(ListBox1.ListIndex, 2)
.Range(i, 28).Value = ListBox1.List(ListBox1.ListIndex, 3)
.Range(i, 34).Value = ListBox1.List(ListBox1.ListIndex, 4)
.Range(i, 37).Value = ListBox1.List(ListBox1.ListIndex, 5)
End With
Unload Me
End Sub

回答No.1

onlyrom · ベストアンサー

たぶんもう自力で解決済だろうとは思いますが。。。

原因は、Rangeプロパティの使い方の間違いです。

＞.Range(i, 6).Value = ListBox1.List(ListBox1.ListIndex, 0)

　.Range("F" & i).Value = 　

通常このような場合は、Cellsプロパティがいいでしょう。

　.Cells(i, 6).Value =

以上。

お礼

ご回答ありがとうございます。
問題なく動作しました。