formüllü hücrede userform kullanamıyorum

Katılım
21 Ocak 2005
Mesajlar
181
selamun aleyküm
hayırlı sabahlar
benim iki sorunum var
birisi eğer formülüyle A sutundaki hücrelerime sıra numarası veriyorum ve bu sıra numarasını daha sonra user formdaki comboboxla cagırdığım zaman texboxları dolduramıyorum sanırım eğer formullü hücreden kriter aldıramıyorum..

ikincisi birinci sayfamdaki a2 hücresinde yazılan fatura numarasını bul butonu koyarak diğer bir sayfanın tablosundan birinci sayfadaki muhtelif yerlere hücrelere ve 2 adet combocunun icine aktarmak ..
teşekkürler
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Birinci sorunuz için formülden veri alamaması söz konusu değildir, mutlaka bir şekilde hata yapıyorsunuzdur.

İkinci sorunuz için bir örnek dosya eklerseniz daha açıklayıcı olur.
 
Katılım
21 Ocak 2005
Mesajlar
181
aslında iki sorumuda aynı sey icin istiyorum
birinci soylediğim form üzerinden sectiğimde formullü ola hücrelerin secildiğinde calısmadıgını gördüm
ikinci sorum
fatura numarısını form üzerimnden cekemediğim yada combocu ilk once calıstırmam gerkiğini yapamadım sayfa comboxun secildiği kritere göre korumaya alıyor..
istediğim form üzerinden tablodaki değerlerin değiştirelebilmesi .
ekimi gönderiyorum

teşekkürler
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Userform_initializeki kodu aşağıdaki ile değiştirin.

Kod:
Private Sub UserForm_Initialize()
Sheets("2").Select
co1.RowSource = "a2:a" & [b65536].End(3).Row
End Sub
co1 isimli comboboxtaki kodları aşağıdaki ile değiştirin.

Kod:
Private Sub co1_Change()
sat = co1.ListIndex + 2
Cells(sat, 1).Select
For a = 1 To 34
Controls("textbox" & a) = Cells(sat, a + 1)
Next
End Sub
Değiştir butonundaki koduda aşağıdaki ile değiştirin.

Kod:
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
isle = co1.ListIndex + 2
co1.RowSource = ""
For a = 1 To 34
Cells(isle, a + 1) = Controls("textbox" & a)
Next
ActiveSheet.Protect
UserForm_Initialize
End Sub
 
Üst