ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[VolkanCan]

Merhaba hocam, EK dosya da incelerseniz, çalışma sayfasında ki tablodan,

1. Sayfada ki butondan, (ARA-BUL), UserForm Liste Kutusu üzerinden, "ARA-BUL-SEÇ-YAZDIR" işlemi yapılmaktadır. Bu işlemde, sorun yok ama filtreleme ve süzme işleminde, küçük harf duyarlılığında sorun var gibi.., Filtreleme, Süzme ve Arama alanında küçük harf duyarlılığı ve aramada sanki gecikme sorunu olduğunu düşünüyorum.

Aynı dosya üzerinden, Esasen istediğim, UserForm Liste Kutusunda, aynı zamanda, seçtiğimiz personeli, YAZDIR işlemi yanında, SİL işlemini de yaptırabilir miyiz ? Hali hazır durumda, YAZDIR ve SEÇ işlemi yapılmaktadır. Aynı zamanda forma SİL butonu ekleyerek seçtiğimiz personeli sayfada ki tablosundan ve listeden silinmesi işlemini yapabilir miyiz ? Ama seçilen personeli hem listeden, hem de sayfadan silecek ve sıra bozulmayacak,

2. Ayrıca, sayfada hücrede formül koruma işleminin kilitli hücre üzerinden sayfayı koru işlemi yaptığımızda, UserForm Liste kutusu filtreleme ve süzme işlemleri çalışmıyor. (Bu o kadar önemli değil, eğer çözüm olmazsa, formüllü hücreleri koruma altına almayız.)

3. Velhasıl Hocam, sayfada AÇIKLAMA mevcut, acizane yapılmış bir işlemin, profesyonel gözüyle derlenip, toparlanması yanında birkaç ustalık dokunuşunuza ihtiyaç var. Bu konuda, bütçem anlayışınıza sığınarak, 50-100 TL arasında olup, dosya gizliliği kapsamında yardımcı olursanız memnun olurum. Saygılarımla...

[hassan26]

Selam
hem Listbox dan hem sayfadan sırası bozulmadan silme kodunu yazayım.

Kod: Tümünü seç

Private Sub CommandButton1_Click()
Dim i As Integer
Dim X As Integer

If ListBox1.ListIndex = 0 Then Exit Sub

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets("Sayfa1").Select
Sheets("Sayfa1").Range("A" & ListBox1.ListIndex + 1).Select
End If
Next

If MsgBox("Seçili veri silinsin mi?", vbQuestion + vbYesNo, "Dikkat") = vbNo Then Exit Sub

Selection.EntireRow.Delete

son = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A1:A1000"))
For X = 2 To son
Cells(X, 1).Value = X - 1
Next
End Sub

[VolkanCan]

Selam
hem Listbox dan hem sayfadan sırası bozulmadan silme kodunu yazayım.

Kod: Tümünü seç

Private Sub CommandButton1_Click()
Dim i As Integer
Dim X As Integer

If ListBox1.ListIndex = 0 Then Exit Sub

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets("Sayfa1").Select
Sheets("Sayfa1").Range("A" & ListBox1.ListIndex + 1).Select
End If
Next

If MsgBox("Seçili veri silinsin mi?", vbQuestion + vbYesNo, "Dikkat") = vbNo Then Exit Sub

Selection.EntireRow.Delete

son = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A1:A1000"))
For X = 2 To son
Cells(X, 1).Value = X - 1
Next
End Sub

Hocam, maalesef yapamadım, soruya eklediğim dosya üzerinden yardımcı olursanız memnun olurum. Devamlı yardım eden, edecek olan, cevap yazan var mı ? diye bakıyorum. Yardımcı olursanız çok memnun olurum. Saygılarımla...

[hassan26]

Selam
Tavsiyem A sütununda birleştirme yapmayın, Sekme adlarını boşluk bırakmadan yazın, mümkünse Türkçe karakter yazmayın ki bulduğunuz kodları kendinize uyarlarken sorun yaşamayasınız.
Dosyanız ektedir.

[VolkanCan]

Selam
Tavsiyem A sütununda birleştirme yapmayın, Sekme adlarını boşluk bırakmadan yazın, mümkünse Türkçe karakter yazmayın ki bulduğunuz kodları kendinize uyarlarken sorun yaşamayasınız.
Dosyanız ektedir.

Merhaba, maalesef kodlamada hata var, ayrıca sıralama başlık kısmından başlıyor. Kodlamada hata olduğu için SİL kodlama sayfasına giriş yapılmıyor. Eğer, yüklediğiniz dosyaya bakarsanız.., hayırlı akşamlar, teşekkürler...

[hassan26]

Selam ekteki dosyayı deneyin bakalım.

[VolkanCan]

Selam ekteki dosyayı deneyin bakalım.

Merhaba, ilginiz ve alakanızdan dolayı tekrar teşekkürler ama maalesef kodlama hata veriyor. Siz de çalışıyor mu ? bilmiyorum. Ama Sizin çalıştığını dosya açtığımda, kodlama hatası veriyor. İsteğim ;
1. Listbox seçimin butonlo ssilinmesi,
2. Silinen satırın hem listbox ta, hem de sayfada silinmesi,
3. Silme işleminden sonra sıra numarası bozulmasın,
Velhasıl, sizden başka da bakan yok zaten vesselam, Hayırlı Kandiller...

[hassan26]

Selam bende çalışıyor kodlar sorun ne ki.
Listbox da silmek istediğiniz satıra tek tıklayın ardından sil butonuna tıklayın.