Çoklu Kontrol İle Veri Yazdırma

[badmad34]

Merhaba arkadaşlar,

Eklediğim dosyada oluşturduğum "kayıt" butonuna bastıktan sonra "BY" sayfasından belirttiğim bilgileri "TC-SGB" sayfasına aktarmasını istedim. Amacım birden fazla kriter vererek arama yapılmasınıı sağlamaktır. Kod Userform'a girilen "yetki no" ve "kayıt" bilgilerine göre"BY" sayfasında bir arama yapacak ve bulduğu sonucu "TC-SGB" sayfasına uygun olarak yazacak.

Kod bir hata vermiyor ama işlevi de yerine getirmiyor. İnceleyebilir misiniz sorun nedir acaba?

 

[Huseyinkis]

Merhaba arkadaşlar,

Eklediğim dosyada oluşturduğum "kayıt" butonuna bastıktan sonra "BY" sayfasından belirttiğim bilgileri "TC-SGB" sayfasına aktarmasını istedim. Amacım birden fazla kriter vererek arama yapılmasınıı sağlamaktır. Kod Userform'a girilen "yetki no" ve "kayıt" bilgilerine göre"BY" sayfasında bir arama yapacak ve bulduğu sonucu "TC-SGB" sayfasına uygun olarak yazacak.

Kod bir hata vermiyor ama işlevi de yerine getirmiyor. İnceleyebilir misiniz sorun nedir acaba?

Ekteki kodları Denermisiniz.

Private Sub CommandButton1_Click()
Set S1 = Sheets("BY")
Set s2 = Sheets("TC-SGB")
S1.Select
For i = 2 To S1.Range("A65536").End(3).Row
If S1.Cells(i, "C").Value = ComboBox1.Value * 1 And S1.Cells(i, "D").Value = Vardiya_ComboBox.Value Then
mhr = S1.Cells(i, "B").Value
isim = S1.Cells(i, "A").Value
s2.Select
satır = s2.Range("B65536").End(3).Row + 1
s2.Cells(satır, "B").Value = TextBox2.Value
s2.Cells(satır, "E").Value = TextBox1.Value
s2.Cells(satır, "F").Value = ComboBox1.Value
s2.Cells(satır, "G").Value = mhr
s2.Cells(satır, "H").Value = isim
GoTo son:
End If
Next
son:
End Sub

 

[badmad34]

Gayet güzel çalıştı, çok teşekkür ederim.