Combobok'ta kayıtlı başlıkları ve bu başlıklara bağlı veriyi silme.

[leumruk]

Değerli arkadaşlar,
Userformla, veri kaydetme ve veriyi yeniden çağırma işlemini uzman arkadaşların yardımıyla hallettim. Ancak, kaydettiğim veriyi yeniden silme işlemini yapamadım yardımcı olursanız sevinirim. Ekte yollayacağım dosyada userform açan butonlar var. Silme tuşunu, Geri yükle butonundaki userforma ekleyebilirsek sevinirim. Silme işlemi sırasında, "uyarı mesajı" verirse çok daha hoş olur. Yardımlarınızı bekliyorum.

 

[Skorpiyon]

Sayın leumruk,

Sileceğiniz yer neresidir ?
Geri Yükle formu geldikten sonra seçilen değer "Veri2" sayfasından mı silinecek ?

 

[Skorpiyon]

Veya ekteki örneği bir inceleyin.

 

[leumruk]

Veri birde başlığa ait liste var, veri2 de bu listenin başlığı var. Geri yükle butonu veri2'ye bağımlı olarak işlem yapıyor ve veri1 sayfasındaki listeyi geri yüklüyor. Bu nedenle tam bir silme işlemi olması için, hem veri2'deki başlığın, hem de veri1'deki bu başlık altındaki listenin ve üzerindeki başlığın silinmesi gerekiyor.

 

[leumruk]

Uzman arkadaşlar,
Bu silme işi çok önemli, yardımlarınızı bekliyorum.

 

[Ayhan Ercan]

Merhaba Sayın leumruk


Sayın Şaban Sertkaya hocamın kodlarındaki "Sil" düğmesinin kodlarına aşağıdaki gibi bir değişiklik yaptım.
İstediğiniz böyle birşeymi, denermisiniz..

Sheets("Veri2").Select
Range("A1").Select
On Error GoTo hata
Cells.Find(What:=ComboBox1, After:=ActiveCell, LookIn:=xlFormulas, lookat _
     :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
     True, SearchFormat:=False).Activate
sor = MsgBox("Silmek istediğinizden emin misiniz ?", vbYesNo)
If sor = vbYes Then
ActiveCell.Rows.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
[COLOR=red][B]Set kolon = Sheets("veri1").Cells.Find(ComboBox1, lookat:=xlWhole)[/B][/COLOR]
[B][COLOR=red]Sheets("veri1").Columns(kolon.Column).Delete[/COLOR][/B]
MsgBox "Seçilen veri silindi"
GoTo 10
Else
MsgBox "Silme işlemi iptal edildi"
Exit Sub
End If
hata:
MsgBox "Aradığınız veri bulunamadı"
10
Sheets("SoruGirişi").Select
Range("A1").Select

 

[leumruk]

Evet, tam olarak istediğim bu. Yine imdada yetiştiniz. Allah razı olsun. Çok teşekkür ederim. Sizlerin borcu ödenmez... Sağlıcakla kalın.

 

[Ayhan Ercan]

Evet, tam olarak istediğim bu. Yine imdada yetiştiniz. Allah razı olsun. Çok teşekkür ederim. Sağlıcakla kalın.

Rica ederim.
İyi çalışmalar...

Sizlerin borcu ödenmez...

Ödendi bile.... k::