istiklal
Yeni Üye
- Katılım
- 11 Nis 2019
- Mesajlar
- 34
- En iyi yanıt
- 0
- Puanları
- 8
- Yaş
- 50
- Konum
- Malatya
- Ad Soyad
- İlhan Yüksel
- Office Vers.
- Microsoft Office 2016 TR
Kod:
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim k As Range
If ListBox2.Value = "" Then Exit Sub
Set k = Range("L2:L65536").Find(ListBox2.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
k.Select
k.Value = ListBox2.Value
ComboBox1.Text = k.Offset(0, -10).Value
ComboBox2.Text = k.Offset(0, -9).Value
ComboBox3.Text = k.Offset(0, -8).Value
TextBox2.Text = k.Offset(0, -7).Value
TextBox3.Text = k.Offset(0, -6).Value
ComboBox4.Text = k.Offset(0, -5).Value
ComboBox5.Text = k.Offset(0, -4).Value
ComboBox6.Text = k.Offset(0, -3).Value
TextBox4.Text = k.Offset(0, -2).Value
TextBox5.Text = k.Offset(0, -1).Value
TextBox6.Text = k.Offset(0, 0).Value
ComboBox7.Text = k.Offset(0, 1).Value
ComboBox8.Text = k.Offset(0, 2).Value
ComboBox9.Text = k.Offset(0, 3).Value
ComboBox10.Text = k.Offset(0, 4).Value
TextBox7.Text = k.Offset(0, 5).Value
TextBox8.Text = k.Offset(0, 6).Value
TextBox9.Text = k.Offset(0, 7).Value
TextBox10.Text = k.Offset(0, 8).Value
Else
MsgBox "Aranılan KişiBulunamadı..!!", vbCritical, "UYARI"
End If
MsgBox "Seçtiğiniz kişiye ait kayıt bulundu.", vbInformation
ThisWorkbook.Save
End Subyukarıdaki kod ile multipage1 de ki page1' e bilgileri aktarıyorum.
page2 ye geçince (Aktif olunca) page2 ye de aktarmak için koşul eklemek istiyorum.
Şöyle ki;
page1 aktif ise yukarıda ki kod page2 aktif ise aşağıda ki kod
Kod:
ComboBox1.Text = k.Offset(0, -10).Value
ComboBox2.Text = k.Offset(0, -9).Value
ComboBox3.Text = k.Offset(0, -8).Value
TextBox2.Text = k.Offset(0, -7).Value
TextBox3.Text = k.Offset(0, -6).Value
ComboBox4.Text = k.Offset(0, -5).Value
ComboBox5.Text = k.Offset(0, -4).Value
ComboBox6.Text = k.Offset(0, -3).Valuepage3 aktif ise
Kod:
ComboBox1.Text = k.Offset(0, -10).Value
ComboBox2.Text = k.Offset(0, -9).Value
ComboBox3.Text = k.Offset(0, -8).Value
TextBox2.Text = k.Offset(0, -7).Value
TextBox3.Text = k.Offset(0, -6).Value
ComboBox4.Text = k.Offset(0, -5).Value
ComboBox5.Text = k.Offset(0, -4).Value
ComboBox6.Text = k.Offset(0, -3).Value
Kod:
ComboBox1.Text = k.Offset(0, -10).Value
ComboBox2.Text = k.Offset(0, -9).Value
ComboBox3.Text = k.Offset(0, -8).Value
TextBox2.Text = k.Offset(0, -7).Value
TextBox3.Text = k.Offset(0, -6).Value
ComboBox4.Text = k.Offset(0, -5).Value
ComboBox5.Text = k.Offset(0, -4).Value
ComboBox6.Text = k.Offset(0, -3).Valuesadece aktif olan pageye kayıt yapabilmek için örnekte ki gibi koşula ihtiyacım var. Yardımcı olabilmeniz mümkün müdür?
