combobox ve güncelleme

[eksiman]

ekteki dosyada güncellemeyi beceremedim.?

 

[eksiman]

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......

 

[Levent Menteşoğlu]

Güncelle butonuna aşağıdaki kodu kopyalayın.

[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]