veri doğrulama ile yapılan düşeyara hakkında

[feraset045]

arakadaşlar excel sayfası üzerinde veri doğrulama ile yapılmış düşeyara formulü çalışıyor ama veriyi ben userform üzerinde combobox ile aynı hücrenin üzerine getirdiğimde formül çalışmıyor yani a2 hata veriyor

 

[N.Ziya Hiçdurmaz]

Yanıt

Kodları alttakiler ile değiştiriniz.

Private Sub ComboBox1_Change()
For SUTI = 1 To [I65536].End(3).Row
If Range("I" & SUTI) = ComboBox1.Value Then
[A2] = Range("I" & SUTI).Offset(0, 1).Value
End If
Next
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "sayfa2!ı1:ı4"
End Sub

 

[Karaelmas]

Aramadan bulduğum bu konu üzerinden bende birşey sormak istiyorum arkadaşlar..

Makro sonucunda ComboBox1 içinde bulunan değeri, A3 hücresine nasıl yazdırabilirim/getirebilirim..?

Şimdiden cevaplar için teşekkürler

 

[Orion1]

Aramadan bulduğum bu konu üzerinden bende birşey sormak istiyorum arkadaşlar..

Makro sonucunda ComboBox1 içinde bulunan değeri, A3 hücresine nasıl yazdırabilirim/getirebilirim..?

Şimdiden cevaplar için teşekkürler

aşağıdaki kodu deneyiniz.

Private Sub ComboBox1_Change()
Range("A3").value=combobox1.value
End Sub

 

[Karaelmas]

Orion2 teşekkür ederim ilgin için ve gecikmem için de özür..

Ancak benim soruda eksik bıraktığım asıl sorunum şu ki; ben bu işlemi A3 hücresi içinde bir formülle yapmak istiyorum makro ile değil mümkünse, yani değer ComboBox 'ta oluşunca A3 bunu çekecek ki, B3 ve C3 deki düşeyara formülasyonu işlesin..

Selamlar