textboxa veri almak

[yasef]

Private Sub TextBox23_Change()
Sheets("Günlük Kurlar").Select
For Each bk In Range("a1:a" & WorksheetFunction.CountA(Range("a1:a1000")))
If bk = TextBox1 Then
TextBox23 =

textbox 23 e = günlük kurlar sayfasından text 1 box günün tarihine eşit olan
b sütununun karşılığına gelen kur ne ise yazdırmamız mümkünmü
denedim yapamadım YARDIMLARINIZI BEKLİYORUM

 

[Selçuk1]

sn. yasef;

aşağıdaki gibi dener misiniz?

Private Sub TextBox1_Change()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
For a = 2 To s1.[a65536].End(3).Row
If TextBox1 = s1.Cells(a, "a") Then
TextBox2 = s1.Cells(a, "b")
End If
Next
End Sub

 

[yasef]

sn cell önce tesekkür ederim fakat direkt almıyor text bo içine gelip rakam yazmak isteyince getiriyor ???

 

[Selçuk1]

sn cell önce tesekkür ederim fakat direkt almıyor text bo içine gelip rakam yazmak isteyince getiriyor ???

sn. yasef,

"direkt almıyor" dan kastınız nedir tam olarak anlayamadım. zaten textbox1_change olayını kullandığınız için textbox1 de değişiklik olduğunda makro çalışıyor.

yanlış anladıysam kusura bakmayın. sorunuzu biraz daha açar mısınız??

 

[yasef]

userformu açtığım an yazmasını istemiştim
change yerine afterupdate mi kullansak

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Private Sub UserForm_Initialize()
    On Error Resume Next
    TextBox1 = Format(Date, "dd.mm.yyyy")
    SATIR = WorksheetFunction.Match(CLng(CDate(TextBox1)), Sheets("Sheet1").[A:A], 0)
    TextBox2 = Format(Sheets("Sheet1").Cells(SATIR, 2), "#,##0.0000")
End Sub

 

[yasef]

sn cost control olmadı

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[yasef]

date format dd mmm yyyy ddd değiştirdiğim için olabilirmi çünkü tüm formlarımda bu formatı kullandım denemedim
fakat sn cell gönderdiginde hata yapmışım text23 chang olayına yamışım 1 e alınca oldu fakat sayı formatını #,##0.00 olduğu halde 1,5 15 görüyor şimdi bu sorun oldu

 

[cdroy1]

herkezlere selamlar olsun

benimde buna benzer bir sorum olacak ama benim sorum bundan çok daha basit dolaşırken hazır konu başlığı bulmuşken tekrar konu açmak istemedim hatta basit olduğu içince çekindim biraz sormak istediğim sadece textbox44 ise ben buna sayfa2 deki d5 hücresini nasıl gösterebilirim ayrıca bu textbox userform üzerinde değiştirilemez olmalı sadece data görünecek ve değiştirilemeyecek

herkeze kolay gelsin saygılar selamlar

 

[emrexcel123]

herkezlere selamlar olsun

benimde buna benzer bir sorum olacak ama benim sorum bundan çok daha basit dolaşırken hazır konu başlığı bulmuşken tekrar konu açmak istemedim hatta basit olduğu içince çekindim biraz sormak istediğim sadece textbox44 ise ben buna sayfa2 deki d5 hücresini nasıl gösterebilirim ayrıca bu textbox userform üzerinde değiştirilemez olmalı sadece data görünecek ve değiştirilemeyecek

herkeze kolay gelsin saygılar selamlar

şu kodu kullanabilirsin >>
private sub userform_initialize ()
textbox44.locked = true
textbox44.value = sheets("sayfa2").range("d5").value
end sub
ii çalışmalar...

 

[emrexcel123]

format

date format dd mmm yyyy ddd değiştirdiğim için olabilirmi çünkü tüm formlarımda bu formatı kullandım denemedim
fakat sn cell gönderdiginde hata yapmışım text23 chang olayına yamışım 1 e alınca oldu fakat sayı formatını #,##0.00 olduğu halde 1,5 15 görüyor şimdi bu sorun oldu

arkadaşım eventlar şunlara yarar
initialize - userform açılmadan istenilen olayları gerçekleştirir
activate - userform aktif olduğunda istenilen olayları gerçekleştirir
afterupdate - belirtilen nesneden çıkıldığında (güncelleme yaparak) istenilen olayları gerçekleştirir
bunlar bir kaçı ayrıca şu tarih formatı dd mm yyyy ddd sn costcontrol'ün yaptığı doğru olandır seninki şu anlama gelir örnek :
20.04.2007 ise senin formatınla 20.04.2007.202 şeklinde olur ayrıca istenilen kodları ya userform'un initialize olayına ya da activate olayına yazmalısın ayrıca textbox 'un change olayına yazarsan textbox'ta herhangi bir hareket yaptığında istediğin olay gerçekleşir örneğin koşullardan sonra herhangi bir tuşa bastığında (tuş önemli değil) textbox'a verinin geldiğini göreceksin ii çalışmalar... :hey:

 

[cdroy1]

hocam çok teşekkür ederim eline sağlık

 

[emrexcel123]

rica ederim

ii çalışmalar...