• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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
 
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.
 
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
 
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
 
Geri
Üst