Userform içerisinde seçtiğim sayfada arama yapma

[erd5334]

Arkadaşlar merhaba. ilk okulda memur olarak çalışmaktayım. okulun öğrenci listesinden öğrenci numarası girerek istediğim öğrencilerin bilgilerini getiren kod yazdım. kodun çalışmasında herhangi bir sıkıntı yok yalnız şöyle bir durum oluştu.

ilkokul ve orta okul aynı binada olduğu için aynı öğrenci numarasına sahip öğrencilerde sorun oluştu. mesela 19 numaralı öğrenci hem 2. sınıfta var hem altıncı sınıfta. ilk olarak şu çözümü buldum iki farklı excel dosyası yaparak ilk okul birine orta okul birine oldu.

şimdi bunu daha da kısaltmak istiyorum. aynı excel dosyasında 3 tane sayfa açıp birine sonuç diğer ikisi de ilkokul ve orta okul deyip, userform da combobox özelliği ile listeden seçeceğim sayfada arama yapmasını istiyorum.

yani ilkokulu seçtiğimde okul numarasını ilkokul sayafsında aramasını orta okulu seçtiğimde ortaokulda aramasını istiyorum. örnek dosyayı ekte yolladım nasıl bir yol izleyeceğimi anlatırsanız çok sevinirim.

 

[askm]

Aşağıdaki kodları kullanın.

Private Sub UserForm_Initialize()
ComboBox1.AddItem "İlkokul"
ComboBox1.AddItem "Ortaokul"
End Sub

Private Sub CommandButton1_Click()
Dim s As Worksheet
Set s = Sheets(ComboBox1.Text)
 Dim sb, huc
  On Error Resume Next
  n = ActiveCell.Row
  d = Val(TextBox1.Text)
  
            
           huc = s.Range("A2:A1000").Find(d, , xlValues, xlWhole).Row()
           
          If huc >= 1 Then
           Sheets("Sonuc").Range("a" & n) = s.Range("a" & huc)
           Sheets("Sonuc").Range("B" & n) = s.Range("B" & huc)
           Sheets("Sonuc").Range("C" & n) = s.Range("C" & huc)
           Sheets("Sonuc").Range("d" & n) = s.Range("d" & huc)
           Sheets("Sonuc").Range("e" & n) = s.Range("e" & huc)
           'MsgBox (huc)
           TextBox1.SetFocus
           TextBox1.Text = ""
           Sheets("Sonuc").Range("A" & n + 1).Select
          Else
           MsgBox (TextBox1.Text & " Nolu öğrenci listede yoktur.")
          End If
End Sub

 

[erd5334]

Aşağıdaki kodları kullanın.

Private Sub UserForm_Initialize()
ComboBox1.AddItem "İlkokul"
ComboBox1.AddItem "Ortaokul"
End Sub

Private Sub CommandButton1_Click()
Dim s As Worksheet
Set s = Sheets(ComboBox1.Text)
 Dim sb, huc
  On Error Resume Next
  n = ActiveCell.Row
  d = Val(TextBox1.Text)
  
            
           huc = s.Range("A2:A1000").Find(d, , xlValues, xlWhole).Row()
           
          If huc >= 1 Then
           Sheets("Sonuc").Range("a" & n) = s.Range("a" & huc)
           Sheets("Sonuc").Range("B" & n) = s.Range("B" & huc)
           Sheets("Sonuc").Range("C" & n) = s.Range("C" & huc)
           Sheets("Sonuc").Range("d" & n) = s.Range("d" & huc)
           Sheets("Sonuc").Range("e" & n) = s.Range("e" & huc)
           'MsgBox (huc)
           TextBox1.SetFocus
           TextBox1.Text = ""
           Sheets("Sonuc").Range("A" & n + 1).Select
          Else
           MsgBox (TextBox1.Text & " Nolu öğrenci listede yoktur.")
          End If
End Sub

Elinize sağlık harika oldu hocam. peki küçük bir sorum daha olacak. sil butonu da öğrenci numarası yazıp sonuç sayfasında o numara var ise onu silme işlemi yapabilir mi

 

[askm]

Private Sub CommandButton2_Click()
On Error Resume Next
Dim Son As Long
Son = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Son
    If TextBox1.Text = Cells(i, 1) Then
        If ComboBox1.Text = "İlkokul" Then
            If CInt(Right(Cells(i, "4"), 1)) < 5 Then
                Rows(i).Delete
            End If
        ElseIf ComboBox1.Text = "Ortaokul" Then
            If CInt(Right(Cells(i, "4"), 1)) > 4 Then
                Rows(i).Delete
            End If
        End If
    End If
Next i
MsgBox "Silme işlemi tamam...", vbInformation, "ASKM"
End Sub

 

[erd5334]

Üstadım Eline Emeğine Yüreğine Sağlık

 

[askm]

Rica ederim. Kolay gelsin.

 

[osarica]

teşekkürler aradığım bir kodu buldum.