macro çalişmıyor

[okancicek]

Merhabalar benim sorun macro ile "liste" sayfasındaki verileri "fatura" sayfasındaki stok kodu hücresinde olan bölüme yazdırmak yan tarfında stok ürünlerine tıklayınca hareket eden buton bulunmaktadır. kodu yazmama ragmen ürün listesi cıkmamaktadır yardımlarınız için teşekkürler adres burdan bakarak yaptım ne hata yapıyorum anlamadım

video bu kod da yazan


Sub Kayıtlarıal()
Dim KayıtSayısı As Variant
ListBox1.Clear
KayıtSayısı = Sheets("Liste").calls(Rows.Count, "B").End(xlUp).Row
For Satır = 4 To KayıtSayısı
If InStr(UCase(Sheets("Liste").Range("b" & Satır)), TextBox1.Value) > 0 Then
ListBox1.AddItem Sheets("Liste").Range("b" & Satır)
End If
Next Satır
End Sub






Private Sub Frame1_Click()

End Sub



Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.List
End Sub

Private Sub TextBox1_Change()
Dim text As Variant
text = TextBox1.text: text = UCase(text): TextBox1.text = text
Call Kayıtlarıal
End Sub

Private Sub UserForm_Click()
Call Kayıtlarıal
End Sub

 

[okancicek]

sorun neyden kaynaklanıyordur ?

 

[Orion1]

Dosyanız ektedir.

 

[okancicek]

Dosyanız ektedir.

tesekkür ederim If Intersect(Target, [b13:b56]) Is Nothing Then Exit Sub bu komuta c13 c16 c17 hücrelerini nasıl dahil edebilirim ?(kod yazma bilgim yok video ile yapmaya calişiyorum)

 

[okancicek]

Merhabalar benim sorun macro ile "liste" sayfasındaki verileri "fatura" sayfasındaki stok kodu hücresinde olan bölüme yazdırmak yan tarfında stok ürünlerine tıklayınca hareket eden buton bulunmaktadır. kodu yazmama ragmen ürün listesi cıkmamaktadır yardımlarınız için teşekkürler adres burdan bakarak yaptım ne hata yapıyorum anlamadım

video bu kod da yazan


Sub Kayıtlarıal()
Dim KayıtSayısı As Variant
ListBox1.Clear
KayıtSayısı = Sheets("Liste").calls(Rows.Count, "B").End(xlUp).Row
For Satır = 4 To KayıtSayısı
If InStr(UCase(Sheets("Liste").Range("b" & Satır)), TextBox1.Value) > 0 Then
ListBox1.AddItem Sheets("Liste").Range("b" & Satır)
End If
Next Satır
End Sub






Private Sub Frame1_Click()

End Sub



Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.List
End Sub

Private Sub TextBox1_Change()
Dim text As Variant
text = TextBox1.text: text = UCase(text): TextBox1.text = text
Call Kayıtlarıal
End Sub

Private Sub UserForm_Click()
Call Kayıtlarıal
End Sub

Dosyanız ektedir.

If Intersect(Target, [b13:b56]) Is Nothing Then Exit Sub bu komuta c13 c16 c17 hücrelerini nasıl dahil edebilirim ?

 

[okancicek]

If Intersect(Target, [b13:b56]) Is Nothing Then Exit Sub bu komuta c13 c16 c17 hücrelerini nasıl dahil edebilirim ?

uğraşa ugraşa hallettim macro kaydet etmeye başlayarak o hücreleri secince nasıl oldugunu gördüm

 

[Orion1]

Böyle olmalı.

If Intersect(Target, [B13:B56,C13,c16,c17]) Is Nothing Then Exit Sub