İkinci veya Üçüncü sutun sorunu.

[vardar07]

Selam arkadaşlar. Aşağıdaki kodlar ile Birinci userforda birinci sütündaki veriyi bul demekle diğer verileri çağırabiliyoruz.Diğer verileri ikinci userforma yazmakta sorun yok.
Benim sormak istediğim ikinci veya üçüncü sütundaki verileri aratmak istediğimde kod'da ne gibi değişiklik yapmak gerekiyor.
BİRİNCİ Userform1

Private Sub Bul_Click()
Dim x As Integer
Z = Sayfa1.UsedRange.Rows.Count
x = TextBox1
temp = 0
For i = 2 To Z
If Cells(i, 1) = x Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
Unload Me
vardar = i
UserForm2.Show
Else
MsgBox "kayıt yok"
texbox1 = ""
End If
End Sub

İKİNCİ UserForm2

Private Sub Temizle_Click()
TextBox1 = ""
TextBox2 = "" 'Cells(vardar, 2)
TextBox3 = "" 'Cells(vardar, 3)
TextBox4 = "" 'Cells(vardar, 4)
End Sub
Private Sub Kaydet_Click()
If TextBox1 = "" And TextBox2 = "" And TextBox3 = "" Then
Sayfa1.Rows(vardar).Delete
End If
Cells(vardar, 1) = TextBox1.Value
Cells(vardar, 2) = TextBox2.Value
Cells(vardar, 3) = TextBox3.Value
Cells(vardar, 4) = TextBox4.Value
'Unload Me
End Sub
Private Sub Cikis_Click()
End
Unload Me
End Sub
Private Sub Geri_Click()
Unload Me
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Cells(vardar, 1)
TextBox2 = Cells(vardar, 2)
TextBox3 = Cells(vardar, 3)
TextBox4 = Cells(vardar, 4)
End Sub
Private Sub UserForm_Activate()
Do
Label1.Caption = Format(Now, "dd.mm.yy      hh:mm:ss")
DoEvents
Loop
End Sub
Private Sub UserForm_DeActivate()
UserForm_Activate False
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki satırdaki 1 değerini 2 olarak değiştirin.

If Cells(i, 1) = x Then

 

[vardar07]

Merhaba,

Aşağıdaki satırdaki 1 değerini 2 olarak değiştirin.

If Cells(i, 1) = x Then

Çok teşekkür ederim çok denedim ama ne hikmetse eğer 2. sütun rakam ise buluyor metin ise bulmayıp hata veriyor.Modül içindeki Aşağıdaki kod ile bağlantısı olabilirmi.

Global vardar As Integer

 

[Korhan Ayhan]

Merhaba,

Siz arama nesnesine yazdığınız değer için aşağıdaki tanımlamayı kullanmışsınız.

Dim x As Integer

Yani x değeri integer bir sayıdır demişsiniz. Bu durumda metinsel ifadelerde hata vermesi normaldir. Aşağıdaki gibi tanımlayıp deneyin.

Dim x As Variant

Ayrıca ileride kayıt sayınız arttığında arama işlemleriniz yavaş olacaktır. Bu sebeple "Find" ile kayıt bulma örneklerini incelemenizi tavsiye ederim.

 

[vardar07]

Korhan Bey Teşekkürler öğrenmenin yaşı yokmuş bende ordan burdan bulduğum kodları inceleyerek işin mantığını yakalamaya çalışıyorum. Sizlerin desteğiyle birşeyler öğrenip torunlara dilimizin döndüğü kadar öğretmeye çalışacağız. Tekrar teşekkürler kolay gelsin.