Sevgili excel.web.tr forumcuları, bu çalışma danersin'nin "faiz hesabı", veyselemra'nin "açılan kutudan seçtiğim tarihe ait bilgiler, leventm'in "sayfalara isteğe bağlı veri kaydetmek" başlıklı değerli çalışmalarından ve tüm excel.web.tr forumuna katılanların yardımları ile oluşturulmuş olup, yüzüp yüzüp kuyruğuna gelinmiştir. Son bi gayretle bitirmek istiyor ve her zaman olduğu gibi yardımlarınızı esirgemeyeceğinizi biliyorum... Bu arada herkesin bayramını kutlarım......
[vb:1:3139f488d7]Sub guncelle()
On Error GoTo son
Set s1 = Sheets("giriş")
Set s2 = Sheets("liste")
If s1.ComboBox1.Value <> s1.[b3] Then
MsgBox "İLK Ã?NCE KAYDI ÇAÃIRIN"
Exit Sub
Else
satir = s1.ComboBox1.ListIndex + 1
s1.ComboBox1.ListFillRange = ""
For x = 1 To 30
s2.Cells(satir, x) = s1.Cells(x + 2, 2)
Next
s1.ComboBox1.ListFillRange = "liste!a1:a" & s2.[a65536].End(3).Row
MsgBox "GÜNCELLEME TAMAMLANDI"
Exit Sub
End If
son:
MsgBox "Aranan Kayıt Bulunamadı"
End Sub[/vb:1:3139f488d7]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.