ユーザーフォームの表示

Question

実現したいこと

他のsheetでも反映されるようにしたい

問題

小口sheet・Materiaru sheet　と複数sheetがあります。
下記のコードを書いた時にMateriaru sheet上でしかユーザーフォームにデータが反映されません。
ご教授頂けましたら幸いです。

該当のソースコード

Option Explicit

Private Sub ListBox1_Click()
ListBox2.Clear
With Worksheets("Materiaru")
Dim i As Long
For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Value = ListBox1.Value Then
ListBox2.AddItem Sheets("Materiaru").Cells(i, 3).Value
End If
Next i
End With

End Sub

Private Sub UserForm_Initialize()

  Dim LastRow As Long
  Dim i As Long
  LastRow = Sheets("小口勘定科目").Cells(Rows.Count, 1).End(xlUp).Row
   For i = 2 To LastRow
    ListBox1.AddItem Sheets("小口勘定科目").Cells(i, 1)
  
   Next i

End Sub

小口勘定科目sheetには重複科目なしの科目一覧がA列に入力されています
Materiaru sheetにはA列に重複してるかどうか確認する為のｶｳﾝﾄ関数
B列：勘定科目・C列：2つめの集計用の勘定科目

　B列の勘定科目をListBox1で選ぶとC列の2つめの勘定科目をListBox2に表示させています。

エクセル2019です。

Comments

[meg_]

1.コードの一部のみがマークダウンになっています。コード全体をマークダウンにしてください。
2.「下記のコードを書いた時にMateriaru sheet上でしかユーザーフォームにデータが反映されません。」とのことですが、どうやってマクロを呼び出しているのでしょうか？

[ときお]

ご回答ありがとうございました。

Answer 1

下記の修正をしてみてください。

-    If Cells(i, 2).Value = ListBox1.Value The
+    If .Cells(i, 2).Value = ListBox1.Value The

.がないとアクティブシートが対象になります。

Comments

[ときお]

解決しました！ありがとうございました。