Listbox'taki veriyi seçerek sayfadakini değiştirmek...

[Hikmet26]

Arkadaşlar 2 haftadır uğraşıyorum inat ettim yapacam diye ama sonunda pes ettim. Acilen yardımlarınızı bekliyorum amacım şu listbox2 deki veri seçildiğinde hemen listbox2 nin altında bulunan textboxlar gerekli verilerle doluyor fakat bu verileri değiştirerek değiştir butonuna bastığımda sayfadakilerin değişmesini istiyorum. Yardımlarınız için şimdiden teşekkürler...

 

[talatcd]

Private Sub CommandButton2_Click()
On Error Resume Next
Worksheets("Sayfa1").Select
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sonsat = ListBox2.ListIndex + 2
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 4) = TextBox3
Cells(sonsat, 5) = TextBox4
Cells(sonsat, 6) = TextBox5
Cells(sonsat, 7) = TextBox6
ListBox1 = "B2:IV" & [A65536].End(3).Row 'kendi veri aralığınızı seçiniz
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub

 

[talatcd]

TextBox kaçtanese ona göre Cells satırını arttır veya azalt

 

[veyselemre]

@Hikmet26,

İlgili bloğunuzu aşağıdaki gibi değiştirin, deneyin.

If Not k Is Nothing Then
Application.Calculation = xlCalculationManual
    c = k.Row
    Cells(c, 2) = TextBox1
    Cells(c, 3) = TextBox2
    Cells(c, 4) = TextBox3
    Cells(c, 5) = TextBox4
    Cells(c, 6) = TextBox5
    Cells(c, 7) = TextBox6
    Cells(c, 7).NumberFormat = "dd.mm.yyyy"
    Cells(c, 8) = TextBox7
    Cells(c, 9) = TextBox8
Application.Calculation = xlCalculationAutomatic
End If

 

[Hikmet26]

Arkadaşlar çok teşekkürler emeğinize bilginize sağlık...