Makro hatası yardım...

[pasali17]

Öncelikle merhaba . Konuyu yanlış yere açtıysam bağışlayın.

siteden bulduğum stok takip programı ile ilgili veri gir ve veri transferine tıkladığımda ;
visual basic hatası alıyorum debug dıyınce bı ekran açılıyor ve bu koyu renkli kodun hatalı olduğunu söylüyor.


rivate Sub ComboBox1_Click()
ComboBox3.Value = ""
ComboBox3.RowSource = ""
ListBox1.RowSource = ""
ürün = ComboBox1.Value
sayfa = ürün
ürün = Sheets(ürün).[J1]
If ürün > 2 Then
ComboBox3.RowSource = sayfa & "!J3:J" & ürün
ComboBox3.ListIndex = 0
sonsat = Sheets(ComboBox1.Value).Cells(65536, "A").End(xlUp).Row
If sonsat >= 3 Then
ListBox1.RowSource = ComboBox1.Value & "!A3:I" & sonsat
End If
End If
End Sub

 

[halit3]

Öncelikle merhaba . Konuyu yanlış yere açtıysam bağışlayın.

siteden bulduğum stok takip programı ile ilgili veri gir ve veri transferine tıkladığımda ;
visual basic hatası alıyorum debug dıyınce bı ekran açılıyor ve bu koyu renkli kodun hatalı olduğunu söylüyor.


rivate Sub ComboBox1_Click()
ComboBox3.Value = ""
ComboBox3.RowSource = ""
ListBox1.RowSource = ""
ürün = ComboBox1.Value
sayfa = ürün
ürün = Sheets(ürün).[J1]
If ürün > 2 Then
ComboBox3.RowSource = sayfa & "!J3:J" & ürün
ComboBox3.ListIndex = 0
sonsat = Sheets(ComboBox1.Value).Cells(65536, "A").End(xlUp).Row
If sonsat >= 3 Then
ListBox1.RowSource = ComboBox1.Value & "!A3:I" & sonsat
End If
End If
End Sub

Probleminiz Sayfa ismindeki hatadan kaynaklanıyor.
Sayfa isimlerini boşlu,nokta,tire vs ile adlandırmayın.

Örnek olarak
dosyadaki sayfa ismi (GD-DEPO) bu
bununla değiştirin (GD_DEPO)
aynı şekilde kontrol sayfası A4 hücresindeki sayfa isminide değiştirin.