• Merhaba Ziyaretçi,
    Bayrama Özel VIP Paket %50 İndirim Fırsatından yararlanın. (bir kere öde, ömür boyu kullan)

  • Sn. Ziyaretçi,
    PEAKUP E-Book & Makale & Videoları yayınlandı.

Çözüldü Koşullu kayıt etme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

istiklal

Yeni Üye
Katılım
11 Nis 2019
Mesajlar
18
En iyi yanıt
0
Puanları
3
Yaş
45
Konum
Malatya
Ad Soyad
İlhan Yüksel
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 Sub
yukarı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).Value
page3 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
page4 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
sadece 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?
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
102
En iyi yanıt
3
Puanları
28
Yaş
34
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Merhaba,

Aşağıdaki kod ile hangi sayfanın aktif olduğunu bulabilirsiniz. (ilk sayfa indexi 0'dır)
Sonrasında Select Case veya If ile kodlarınızı çalıştırabilirsiniz.
Örnek bir çalışma ektedir.(Mesaj kutusunun yerine kodlarınızı yazabilirsiniz.)

Faydalı olması dileğiyle.
İyi Çalışmalar.


MultiPage1.SelectedItem.Index
 

Ekli dosyalar

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt