Soru ListBox Düzenlemesi

[TURKOLOG]

Herkese Merhaba
Ekte bit listbox var biraz uğraştım çalışıyordu artık çalışmıyor. Bozdum galiba kaydet güncelle ve sil butonlarına görev atamak istiyorum
Kaydet . Texboxlara girilen veriyi yeni kayıt edecek
Güncelle. Var olan veriyi texboxlara getirip değişikliği yerinde kaydecek düzenleme işlemi kısacası.
Sil . Veriyi Pasif işlemleri sayfasından tamamen silecek .

Yardım edebilecek varsa çok sevinirim .

 

[TURKOLOG]

Bir de Listboxta süzülen veriyi excel e ve pdf ye ayrı ayrı aktarmak için buton yapabilir miyiz ?

 

[TURKOLOG]

Private Sub Değiştir_Click()

'Değiştir butonuna basıldığında yapılacak işlemler.

sor = MsgBox("Değiştirmek istediğinizden emin misiniz?", vbYesNo)

'mesaj kutusu devreye giriyor.

If sor = vbNo Then Exit Sub

'evet veya hayır cevaplarından Hayır ise kodlar sonlandırılıyor.

 

ActiveCell.Offset(0, -1).Value = txtSira

ActiveCell.Offset(0, 0).Value = txtSicili

ActiveCell.Offset(0, 2).Value = txtAdi

ActiveCell.Offset(0, 3).Value = txtRutbesi

ActiveCell.Offset(0, 4).Value = txtBurosu

ActiveCell.Offset(0, 5).Value = txtGidis

ActiveCell.Offset(0, 6).Value = txtDonus

ActiveCell.Offset(0, 7).Value = txtAciklama

ActiveCell.Offset(0, 8).Value = TextBox8

ActiveCell.Offset(0, 9).Value = TextBox9

ActiveCell.Offset(0, 10).Value = TextBox10

ActiveCell.Offset(0, 13).Value = TextBox11

ActiveCell.Offset(0, 14).Value = TextBox12

ActiveCell.Offset(0, 15).Value = TextBox13

 

 

 

'ListBox1.RowSource = "A1:I" & [a65536].End(3).Row

'liste kutusunun satır kaynagının hangi hücreler olduğu belirtiliyor.

MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"

End Sub

değiştir kodunu çalıştığında değiştirme yapıldı diyor ama yapmıyor. Yardım edebilecek var mi