Veri doğrulamada ilk değer

[tamer42]

Merhaba,

Sayfada bir hücrede [B3] veri doğrulma mevcut, Sayfa aktif olduğunda listenin en üst sıradaki değeri aktif etmesini sağlamanın pretik bir yolu var mıdır?
Yoksa mecburi olarak Range("B3") = "xxxxxxxxxxxxxxxx" şeklinde veriyi mi yazmak durumundayız?

Nasıl combobox' ta "ListIndex" gibi bir özellik mevcut, burada da böyle bir çözüm olabilir mi?

combobox1.ListIndex=0

teşekkürler,
iyi akşamlar.

 

[Haluk]

İlgili sayfa modülüne;

Private Sub Worksheet_Activate()
    x = Range("B3").Validation.Formula1
    
    Range("B3") = Range(x).Cells(1)
End Sub

.

 

[tamer42]

İlgili sayfa modülüne;

Private Sub Worksheet_Activate()
    x = Range("B3").Validation.Formula1
  
    Range("B3") = Range(x).Cells(1)
End Sub

.

Haluk hocam ilginize teşekkürler,
İlgili sayfa modülü yerinegenel modullere yazmak istersek; aşağıdaki gibi yazmaya başlayınca son saturda ( y=............) hata verdi,

y = Sayfa13.Range(x).Cells(1)
bu satırda hata verdi.

Public Sub VeriDogrula2()
Dim i As Byte

''On Error Resume Next

   x = Sayfa13.Range("D5").Validation.Formula1
  
   y = Sayfa13.Range(x).Cells(1)

 

[Haluk]

Aşağıdaki gibi deneyin,

    x = Sayfa13.Range("D5").Validation.Formula1
    
    y = Range(x).Cells(1)

.

 

[tamer42]

Aşağıdaki gibi deneyin,

    x = Sayfa13.Range("D5").Validation.Formula1
   
    y = Range(x).Cells(1)

.

Haluk Hocam sorunu tespit ettim,
eğer veri doğrulama kaynağı bir hücreden alıyorsa sıkıntısız çalışıyor
yalnız ekli görselde olduğu gibi manuel olarak girilmişse; bu sefer hafa veriyor.

iyi Çalışmalar.

 

[Haluk]

Sorun, sizin neyi nasıl yaptığınızı tarif etmeden direkt soruyu sormanızdan kaynaklanıyor....

Neyse, aşağıdaki şekilde işiniz görülecektir..... Sheet1 kısmını değiştirirsiniz.

Sub Test()
    x = Sheet1.Range("D5").Validation.Formula1
    y = Split(x, ";")(0)
    
    MsgBox y
End Sub

.

 

[tamer42]

Sorun, sizin neyi nasıl yaptığınızı tarif etmeden direkt soruyu sormanızdan kaynaklanıyor....

Neyse, aşağıdaki şekilde işiniz görülecektir..... Sheet1 kısmını değiştirirsiniz.

Sub Test()
    x = Sheet1.Range("D5").Validation.Formula1
    y = Split(x, ";")(0)
   
    MsgBox y
End Sub

.

teşekkürler Haluk Hocam
iyi günler, iyi çalışmalar