userformda arama yapamıyorum

[b_balban]

Merhaba Arkadaşlar

Userform üzerinden exceldeki sayfalarda arama yaptırıyorum.Fakat bir türlü veriler gelmiyor.Ekte dosyam mevcut.Kullandığım kod ise aşğıda.Dosyada yaklaşık30 sayfa var ben sadece K1-ALL STORES ve K2 ALL STORES de arama yapmasını istiyorum.Sayfalardaki Sales kısmındaki tutarları getirecek bana.

Arkadaşlar yardımcı olursanız çok sevinirim fazla vaktim kalmadı merkeze göndercem.

Private Sub TextBox36_Change()
For z = 37 To 1 'Sayfa sayısı kadar
For i = 9 To 200 'satır sayısı kadar
If (TextBox36.Text) = Sheets(z).Cells(i, 1) Then
TextBox37.Text = Sheets(z).Cells(i, 1).Offset(0, 1)
TextBox3.Text = Sheets(z).Cells(i, 1).Offset(0, 2)
TextBox5.Text = Sheets(z).Cells(i, 1).Offset(0, 3)
TextBox6.Text = Sheets(z).Cells(i, 1).Offset(0, 4)
TextBox7.Text = Sheets(z).Cells(i, 1).Offset(0, 5)
TextBox9.Text = Sheets(z).Cells(i, 1).Offset(0, 6)
TextBox11.Text = Sheets(z).Cells(i, 1).Offset(0, 7)
TextBox15.Text = Sheets(z).Cells(i, 1).Offset(0, 8)
TextBox16.Text = Sheets(z).Cells(i, 1).Offset(0, 9)
TextBox17.Text = Sheets(z).Cells(i, 1).Offset(0, 10)
TextBox18.Text = Sheets(z).Cells(i, 1).Offset(0, 11)
TextBox19.Text = Sheets(z).Cells(i, 1).Offset(0, 12)
TextBox20.Text = Sheets(z).Cells(i, 1).Offset(0, 13)
TextBox21.Text = Sheets(z).Cells(i, 1).Offset(0, 14)


End If
Next i
Next z
End Sub

 

[b_balban]

Yardımcı olabilecek arkadaş var mı,çok dua ederim ona.