Sayfada UserForm Liste Kutusu Üzerinde SİL İşlemi

Ücretli Özel Dersler Ve Özel Programlamalar İle İlgili Bölüm

Sayfada UserForm Liste Kutusu Üzerinde SİL İşlemi

İleti#1)  VolkanCan » 07 Mar 2021 16:19

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...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
VolkanCan
Yeni Başlamış
 
Kayıt: 15 Şub 2021 19:52
Meslek: İşçi
Yaş: 42
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Canakkale

Cevap: Sayfada UserForm Liste Kutusu Üzerinde SİL İşlemi

İleti#2)  hassan26 » 09 Mar 2021 19:26

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
Kullanıcı avatarı
hassan26
Siteye Alışmış
 
Adı Soyadı:Hasan
Kayıt: 07 Tem 2009 18:03
Konum: istanbul
Meslek: memur
Yaş: 52
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: B.evler/İST.

Cevap: Cevap: Sayfada UserForm Liste Kutusu Üzerinde SİL İşl

İleti#3)  VolkanCan » 09 Mar 2021 20:03

hassan26 yazdı: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...
Kullanıcı avatarı
VolkanCan
Yeni Başlamış
 
Kayıt: 15 Şub 2021 19:52
Meslek: İşçi
Yaş: 42
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Canakkale

Cevap: Sayfada UserForm Liste Kutusu Üzerinde SİL İşlemi

İleti#4)  hassan26 » 09 Mar 2021 21:12

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hassan26
Siteye Alışmış
 
Adı Soyadı:Hasan
Kayıt: 07 Tem 2009 18:03
Konum: istanbul
Meslek: memur
Yaş: 52
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: B.evler/İST.

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Sayfada UserForm Liste Kutusu Üzerinde SİL İşl

İleti#5)  VolkanCan » 09 Mar 2021 22:26

hassan26 yazdı: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...
Kullanıcı avatarı
VolkanCan
Yeni Başlamış
 
Kayıt: 15 Şub 2021 19:52
Meslek: İşçi
Yaş: 42
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Canakkale

Cevap: Sayfada UserForm Liste Kutusu Üzerinde SİL İşlemi

İleti#6)  hassan26 » 10 Mar 2021 13:57

Selam ekteki dosyayı deneyin bakalım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hassan26
Siteye Alışmış
 
Adı Soyadı:Hasan
Kayıt: 07 Tem 2009 18:03
Konum: istanbul
Meslek: memur
Yaş: 52
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: B.evler/İST.

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Sayfada UserForm Liste Kutusu Üzerinde SİL İşl

İleti#7)  VolkanCan » 10 Mar 2021 15:14

hassan26 yazdı: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...
Kullanıcı avatarı
VolkanCan
Yeni Başlamış
 
Kayıt: 15 Şub 2021 19:52
Meslek: İşçi
Yaş: 42
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Canakkale

Cevap: Sayfada UserForm Liste Kutusu Üzerinde SİL İşlemi

İleti#8)  hassan26 » 11 Mar 2021 09:15

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.
Kullanıcı avatarı
hassan26
Siteye Alışmış
 
Adı Soyadı:Hasan
Kayıt: 07 Tem 2009 18:03
Konum: istanbul
Meslek: memur
Yaş: 52
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: B.evler/İST.


Forum Ücretli İşlemler

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe