bul makrosu çalışmıyor ?

[levuu]

merhaba
girilen verileri arama yaparken user formda göstermiyor.ancak excel çalışma sayfasında buluyor.nümerik ve alfabetik aratabilirmiyiz?
teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Kodların bu kısmını alttakiler ile değiştiriniz.

TextBox1 = ActiveCell.Offset(0, -5).Value
   TextBox2 = ActiveCell.Offset(0, -4).Value
   TextBox3 = ActiveCell.Offset(0, -3).Value
   TextBox4 = ActiveCell.Offset(0, -2).Value
   TextBox5 = ActiveCell.Offset(0, -1).Value

 

[Orion1]

Command butondaki kodşları aşağıdaki kodlarla değiştiriniz.

Private Sub CommandButton2_Click()
 If ComboBox1.Text = "" Then

MsgBox "LÜTFEN ÖĞRENCİ NUMARASINI GİRİNİZ!!!"
Exit Sub
End If
For Each hucre In Range("g2:g" & WorksheetFunction.CountA(Range("g2:g65000")) + 1)
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
   hucre.Select
   TextBox1 = ActiveCell.Offset(0, -1).Value
   TextBox2 = ActiveCell.Offset(0, -2).Value
   TextBox3 = ActiveCell.Offset(0, -3).Value
   TextBox4 = ActiveCell.Offset(0, -4).Value
   TextBox5 = ActiveCell.Offset(0, -5).Value
   'TextBox6 = ActiveCell.Offset(0, 6).Value
  
End If
Next
End Sub