Soru Seçilen Forma Göre Listboxtan Aktarma

[sirkülasyon]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim k As Range
If ListBox1.Value = "" Then Exit Sub
Set k = Range("E2:E65536").Find(ListBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
k.Select
k.Value = ListBox1.Value
If AD.Visible = True Then
  AD.TextBox2.Value = k.Offset(0, 0).Value
  AD.TextBox3.Value = k.Offset(0, 1).Value
  AD.ComboBox2.Value = k.Offset(0, 7).Text
  AD.ComboBox3.Value = k.Offset(0, 8).Text
  AD.ComboBox4.Value = k.Offset(0, 9).Text
  AD.ComboBox7.Value = k.Offset(0, 12).Text
  End If

If Görev.Visible = True Then
  Görev.TextBox2.Value = k.Offset(0, 0).Value
  Görev.TextBox3.Value = k.Offset(0, 1).Value
  Görev.ComboBox2.Value = k.Offset(0, 7).Text
  Görev.ComboBox3.Value = k.Offset(0, 8).Text
  Görev.ComboBox4.Value = k.Offset(0, 9).Text
  Görev.ComboBox7.Value = k.Offset(0, 12).Text
 

End If
End If
End Sub

Yapmak İstediğim:
Eğer AD userformu Aktifse kendi kodlarını
Eğer Görev userformu aktifse de kendi kodlarını ilgili text ve combo nesnelerine aktarsın
Ama isteğimi gerçekleştiremiyorum. Yardımcı olabilir misiniz

 

[YUSUF44]

Şöyle bir çözüm olabilir: Formunuza bir Label ekleyin, diyelim ki adı Label20 olsun. Ad userfomunun aktif olmasını sağlayan kodlara bir satır ilave edip örneğin

Label20.caption="ad"

olarak değiltirebilir# userform aktiflik durumunu da

if label20.caption="ad" Then

diyerek ad userformunun aktif olması durumundaki işlemleri yaptırabilirsiniz. Aynı yöntemi diğer form için uyarlayabilirsiniz.

Label20'yi isterseniz gizleyebilirsiniz.