userform içinde düşeyara kullanmak

[aekturk]

Arkadaşlar userform içinde bir textbox içine girilen değeri excel sayfasından veya access içinden arayıp bulduktan sonra başka bir textbox içine yazdırmak istiyorum. Benim için çok önemli. Bu formdan daha sonra kayıt işlemi gerçekleşecek. Kayıt işlemini sanırım gerçekleştirebilirim. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ediyorum. Ayrıca forumda neredeyse düşeyara ile ilgili tüm sorula baktım. Fakat benim soruma benzer bir soru bulamadım. Ayrıca kimin hazırladığını bilmiyorum sanırım leventm hocamız galiba, bir makro yazmış. Excel hücresinde yazılı olan formülü macro koduna r1c1 şeklinde de yazabiliyor. Bunu da denedim. Fakat benim yazdığım formül biraz =EÐER(I3>0;DÜÞEYARA(I3;A2:E65536;4);0) şeklinde biraz karışık gibi olduğundan sanırım olmuyor yada formülün vba olarak karşılığı yok. Lütfen yardım edin. Bir çalışmam var. Birçok çalışmayı birleştiriyorum. Bittikten sonra hepsini bir programda sunmayı düşünüyorum. Teşekkürlerimle,
Ayrıca örnek olarak şimdilik bir dosya hazırladım sorum için. Onu da ekliyorum.

 

[danersin]

:? ya sorunuzu çok yanlış anladım yada siz biraz karıştırdınız..
hücrede yazan formülün her sefer değişmesine gerek yok , dolayısı ile yazmışsınız ve çalışıyor, her sefer userform açıkken o formülü neden yazdırmaya çalışıyorsunuz (gerekirse yazdırılır o başka) .. neyse aşağıdaki kod istediğiniz yapıyormu bir bakın.. (sayfada hiçbirşey değiştirmeden)

Private Sub model_kodu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cells(3, 9) = model_kodu.Value
model_fiyati = Cells(3, 10)
model_atolyesi = Cells(3, 11)
End Sub

 

[aekturk]

Sn. danersin,
örnekte yazdığım formül gibi formda da bir formül girmek istiyorum. benim amacım forma "model kodu" yazıldığında altta bulunan textboxlara modelin fiyatı ve atölye bilgilerini sayfada arayıp bulması gerekmekte ve textboxlara aktarmak. Bunu excelde düşey ara ile yapılabiliyor ama bunu formda nasıl yapacağım? Sorum bu. :yardim:

 

[danersin]

verdiğim kodu denedinizmi ?

 

[aekturk]

Sn. Danersin,
Ne kadar çok teşekkür etsem size vermiş olduğunuz kodlar tam benim istediğim soruydu. Çok iyi oldu. Fakat şimdi bir soru daha sormak istiyorum izninizle. Bu formdan başka bir sayfaya kayıt yapacağım. Bu textboxlardaki veriyi aynı şekilde orada ne yazıyorsa alabilirim değil mi? Bir diğer sorum da ben bu veri arama sütunlarına ekleme yaptığımda bu kodları nasıl değiştirmem gerekir? :dua2:

 

[danersin]

Private Sub model_kodu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cells(3, 9) = model_kodu.Value
model_fiyati = Cells(3, 10)
model_atolyesi = Cells(3, 11)
End Sub

bu kodlarda cells(3,9) gördüğünüz yerleri sheets("sayfanızınisminiburayayazın").cells(3,9) şeklinde yaparsanız istediğiniz sayfadan veri alır-yazarsınız.
cells(3,10) da 3- satır sayısı 10 sütun sayısı olduğuna göre bunlarda yapılacak değişiklede hangi hücrelerden bilgi alacaksanız değiştirebilirisiniz.
s

 

[mraltin]

asagidaki linkte yine ustadlarimizin ornekleri var.inceleyin
http://www.excel.web.tr/viewtopic.php?t=2728&highlight=

 

[aekturk]

Sn. Danersin,
Sayfa1'de verilerim ve Sayfa2 de bu formun tuşu var. Formun kodunu aşağıdaki gibi değiştirdim. Fakat bana Coult not set the Value property. Tür uyuşmazlığı. Mesajını verdi. Neden olabilir. Ayrıca bu veri sayfasında(Sayfa1)'de bir satır daha ekledim o nedenle aşağıdaki kodu bu şekilde çevirdim. Doğru mu?

Private Sub model_kodu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Sayfa1").Cells(3, 10) = model_kodu.Value
model_fiyati = Sheets("Sayfa1").Cells(3, 11)
model_atolyesi = Sheets("Sayfa1").Cells(3, 12)
End Sub

 

[aekturk]

asagidaki linkte yine ustadlarimizin ornekleri var.inceleyin
http://www.excel.web.tr/viewtopic.php?t=2728&highlight=

Sayın mraltin,
İlginize teşekkür ederim. Verilen örnek çok iyi ama benim asıl istediğim sonraki textbox'a geçerken yani exit olayında otomatik olarak yazdırmak. Sn.Danersin bunu çok güzel yaptı. Ellerinize sağlık. Ã?rnek te çok güzel ama tam istediğim gibi değil. Sanırım anlatabildim. :?

 

[aekturk]

Sn. Danersin,
Þimdi biraz daha iyi anlamaya başladım. Benim vermiş olduğum örnek dosya da ben sadece sağdaki bölümde (sarı olan kısım) nasıl yapılabiliyorsa aynı şekilde formda uygulamak istediğimi anlatmaya çalışmıştım. Yani veri sayfasında sarı kısım olmadığı için bende hata mesajı verdi. Yani form o sarı yerden değil veri sayfası olan sayfa birde arayıp kendi bulacak. Bu konuda yardımlarınızı bekliyorum. :bravo:

 

[danersin]

Sayfaya satır eklediğinizi söylemişsiniz ama verdiğiniz kodda sütunları birer arttırmışsınız. bunu deneyerek görürsünüz zaten ama diğer hataya gelince onların bu kodlar ile ilgisi yok gibi gözüküyor. nuhtemelen properties penceresinden model_kodu textboxının bir özelliğini değiştirdiniz. ?.. isterseniz mevcut textbox'ı silip yeni bir textbox koyup ismini model_kodu yapıp bir deneyin hata bu sebeplemi..

 

[aekturk]

Sn. Danersin,
Yazdığınız kodları inceledim ve benim sağda bulunan sarı sayfadan aldığını anladım. Benim için sarı yer yok farzedin. Solda bulunan verilerin içinden model_kodu nu arayacak ve fiyatını ve atölye bilgilerini yazacak userform'da. Benim sorum bu. Sn. MrAltin'in göstermiş olduğu örneği inceledim. Bana çok uygun. Yeni kayıt eklesem bile benim kaydımı buluyor. Ama bul tuşuna bastığımda. Benim istediğim bu kodu yazdığımda direkt olarak yazması yani sizin yaptığınız gibi exit olayında. Ben bu örneği çeviremedim. Eğer örneği incelerseniz bana daha çok yardımcı olabileceğinizi düşünüyorum. Sizi de çok yordum sanırım. Çalışmalarınızda başarılar diliyorum.

 

[danersin]

sorunun ilk verdiğiniz şekli için bu kodu deneyin

Private Sub model_kodu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
aranan = model_kodu.Value
If aranan = "" Then Exit Sub
sonsat = Cells(65536, 1).End(xlUp).Row
For i = 2 To sonsat
If Trim(UCase(Cells(i, 1))) = Trim(UCase(aranan)) Then
model_fiyati = Cells(i, 4)
model_atolyesi = Cells(i, 5)
Exit Sub
End If
Next i
End Sub

 

[aekturk]

Çok teşekkür ederim Sayın Danersin,
Müthiş bir uygulama! Ellerinize sağlık. Fakat benim bunu anlamam bayağı bir zaman alacağa benziyor. Çok işimi gördünüz. Teşekkürler... k::