Sonrakini bul, düzelt

[kelkitli]

Değerli Dostlar Selamlar,
Bir kayıt düzeltme birimi oluşturmak istiyorum. Şöyleki: Okul adını Sayfa2 B sütununda aratıp UserForm1 e çağırmak, gerekirse düzeltip kaydetmek: değilse aynı okula ait bir sonraki veriyi çağırmak istiyorum. Ancak veri ile ilgili açıklamayı Label üzerinde görüntülemek istiyorum. (Kayıt Bulunamadı, 3 Adet kayıt bulundu vb.)

 

[Levent Menteşoğlu]

Userformun kod sayfasına aşağıdaki kodları kopyalayarak deneyin.

Dim sat, say
 
Private Sub CommandButton1_Click()
For a = 1 To 6
Cells(sat, a + 2) = CDbl(Controls("textbox" & a))
Next
Cells(sat, "I") = TextBox8
Cells(sat, "b") = TextBox7
End Sub
 
Private Sub CommandButton2_Click()
If say = 0 Then Exit Sub
sat = [b1:b65536].FindNext(Cells(sat, "b")).Row
For a = 1 To 6
Controls("textbox" & a) = Cells(sat, a + 2)
Next
TextBox8 = Cells(sat, "I")
End Sub
 
Private Sub CommandButton3_Click()
say = WorksheetFunction.CountIf([b:b], TextBox7 & "*")
If say > 0 Then
Label36 = say & " adet veri bulundu."
sat = [b1:b65536].Find(TextBox7).Row
For a = 1 To 6
Controls("textbox" & a) = Cells(sat, a + 2)
Next
TextBox8 = Cells(sat, "I")
Else
Label36 = "veri bulunamadı."
End If
End Sub

 

[kelkitli]

Selamlar, Saygılar.
Sayın Levent Hocam, gecenin bu saatinde verdiğiniz emeğe ne denebilirki. Teşekkürlerimi iletiyorum.

 

[kelkitli]

Sayın Hocam, asıl kullanacağım programda buradaki sayfa2 sayfa5 oluyor. Sorun oluşturacakmı?
Düzeltiyorum Sayın Hocam. İşlem Tamam