Satır bulmada hata

[enegen]

Sayın arkadaşlar
Ekteki dosyamda
Kod:
If UserForm1.TextBox3.Text = "6" Then
Dim BUL As Range, a As Long
Set BUL = Sheets("ilkogretim6").Range("B:B").Find(TextBox1)
If Not BUL Is Nothing Then
a = BUL.Row
End If
Set BUL = Nothing
Set s1 = Sheets("ilkogretim6")
son_satır = 1100
sutun = 3
w = 6
e = 20
For q = 1 To 7
If w > son_satır Then Exit Sub
For i = w To e
Me.Controls("Label" & i) = s1.Cells(a, sutun)
a = a + 1
Next
w = w + 15
e = e + 15
sutun = sutun + 1
Next
End If

çalışıyor. Fakat ilk sütundaki dersler aynen geliyor. sonra altındaki meslek dalının 2 sütunu geliyorve bu şekilde devam ediyor. Sütun doğru ama satır yanlış. seçili mesleğin hizasıdaki 2. sütundan başlamalı. çok uğraştım başaramadım. Yardımlarınızı bekliyorum. Teşekkürler.

 

[halit3]

Me.Controls("Label" & i) = s1.Cells(a , sutun)
yukarıdaki kodu aşağıdaki gibi yaparsan olurmu
Me.Controls("Label" & i) = s1.Cells(a + 1, sutun)

 

[enegen]

olmuyor bu sefer bir satır kaydırıp yapıyor.

 

[halit3]

doğru satır bu değilmi 1 eksiltsek olurmu

 

[enegen]

satırda problem yok mesela 250. satırdaki hücreden başladı okumaya 265 kadar doğru okuyo sonra sütun değiştirip tekrar 250 ci satırdan başlaması gerekirken 266 ci satırdan devam ediyor.
hata bu şekilde oluşuyor.

 

[halit3]

şimdi şundan oluyor aranan kişi ilköğretim6 sayfa da varsa doğru geliyor yoksa yanlış geliyor

 

[halit3]

aktar_Click makrosunu ?

Private Sub ComboBox1_Change()
On Error Resume Next
mükerrer olarak birde hemen bunun altına koy
aktar_Click

 

[enegen]

verdiğiniz örneğide denedi. ama bu şekilde olabileceğini düşünmüyorum.
satırı sonlandırıcı ve baştan başlatıcı bi kod gerekli ama ben nasıl yazılır çıkartamadım.
kod sayfasındaki değerlerin yerlriyle çok oynadım. yapamadım.

 

[enegen]

tüm gün araştırıp durdum bir sürü yöntem denedim bir türlü sonuca ulaşamıyorum.
Yardımcı olursanız sevinirim.
Teşekkürler.