[Çözüldü]  OptionButton Seçimine Göre Veri Silme

Seçenek düğmesi

OptionButton Seçimine Göre Veri Silme

İleti#1)  ccamalan » 18 Kas 2015 23:32

Merhaba,
Userformda 3 adet Optionbutton koydum bunların durumuna göre farklı sütunlardan comboboxa veri seçimi yapıyorum ve bu seçimleri silmek istiyorum 1.seçenek için oluyor ama ikinci ve üçüncü seçimleri yaptığımda olmuyor.
1.Optionbutton A
2.Optionbutton B
3.Optionbutton C sütunundan comboboxa verileri alıyor ve sil düğmesine bastığımda eğer 1.Option buttona ait yerden veri seçersem siliniyor diğerlerinden silinmiyor.
Aşağıdaki kodlara göre nerede hata yapıyorum.

Kod: Tümünü seç
Private Sub Optionbutton1_Click()
ComboBox9.RowSource = "Data!A2:A" & WorksheetFunction.CountA(Worksheets("Data").Range("A1:A65536"))
End Sub

Private Sub Optionbutton2_Click()
ComboBox9.RowSource = "Data!B2:B" & WorksheetFunction.CountA(Worksheets("Data").Range("B1:B65536"))
End Sub

Private Sub Optionbutton3_Click()
ComboBox9.RowSource = "Data!C2:C" & WorksheetFunction.CountA(Worksheets("Data").Range("C1:C65536"))
End Sub

Private Sub CommandButton13_Click()
If Optionbutton1 = True Then
Dim sil As String
sil = ComboBox9.Text
For i = Sheets("Data").Range("A65536").End(3).Row To 1 Step -1
If Sheets("Data").Cells(i, 1).Value = sil Then
Sheets("Data").Cells(i, 1).Delete Shift:=xlUp
End If
Next i
End If
ComboBox9.Value = Empty
Optionbutton1 = False

If Optionbutton2 = True Then
sil = ComboBox9.Text
For i = Sheets("Data").Range("B65536").End(3).Row To 1 Step -1
If Sheets("Data").Cells(i, 1).Value = sil Then
Sheets("Data").Cells(i, 1).Delete Shift:=xlUp
End If
Next i
End If
ComboBox9.Value = Empty
Optionbutton2 = False

If Optionbutton3 = True Then
sil = ComboBox9.Text
For i = Sheets("Data").Range("C65536").End(3).Row To 1 Step -1
If Sheets("Data").Cells(i, 1).Value = sil Then
Sheets("Data").Cells(i, 1).Delete Shift:=xlUp
End If
Next i
End If
ComboBox9.Value = Empty
Optionbutton3 = False
End Sub
Kullanıcı avatarı
ccamalan
Yeni Başlamış
 
Kayıt: 10 Eyl 2014 16:47
Meslek: Alt düzey yönetici
Yaş: 46
İleti: 52
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Optionbutton seçimine göre veri silme

İleti#2)  Ali ÖZ » 18 Kas 2015 23:36

Örnek dosyanızı ekleyebilirmisiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9527
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Optionbutton seçimine göre veri silme

İleti#3)  ccamalan » 18 Kas 2015 23:45

Ali ÖZ yazdı:Örnek dosyanızı ekleyebilirmisiniz.

Örnek dosya eketir hocam
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ccamalan
Yeni Başlamış
 
Kayıt: 10 Eyl 2014 16:47
Meslek: Alt düzey yönetici
Yaş: 46
İleti: 52
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Optionbutton seçimine göre veri silme

İleti#4)  Ali ÖZ » 19 Kas 2015 01:12

Sizin kodlarınız üzerinden ilerledim.Bu şekilde denermisiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Dim sil As String
sil = ComboBox9.Text
For i = Sheets("Data").Range("A65536").End(3).Row To 1 Step -1
If Sheets("Data").Cells(i, 1).Text = sil Then
Sheets("Data").Cells(i, 1).Delete Shift:=xlUp
End If
Next
End If
OptionButton1.Value = False

If OptionButton2.Value = True Then
sil = ComboBox9.Text
For a = Sheets("Data").Range("B65536").End(3).Row To 1 Step -1
aa = Sheets("Data").Cells(a, 2).Text
If Sheets("Data").Cells(a, 2).Text = sil Then
Sheets("Data").Cells(a, 2).Delete Shift:=xlUp
End If
Next
End If
OptionButton2.Value = False
If OptionButton3.Value = True Then
sil = ComboBox9.Text
For b = Sheets("Data").Range("C65536").End(3).Row To 1 Step -1
If Sheets("Data").Cells(b, 3).Text = sil Then
Sheets("Data").Cells(b, 3).Delete Shift:=xlUp
End If
Next
End If
OptionButton3.Value = False
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9527
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

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

Cevap: Cevap: Optionbutton seçimine göre veri silme

İleti#5)  ccamalan » 19 Kas 2015 01:35

Ali ÖZ yazdı:Sizin kodlarınız üzerinden ilerledim.Bu şekilde denermisiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Dim sil As String
sil = ComboBox9.Text
For i = Sheets("Data").Range("A65536").End(3).Row To 1 Step -1
If Sheets("Data").Cells(i, 1).Text = sil Then
Sheets("Data").Cells(i, 1).Delete Shift:=xlUp
End If
Next
End If
OptionButton1.Value = False

If OptionButton2.Value = True Then
sil = ComboBox9.Text
For a = Sheets("Data").Range("B65536").End(3).Row To 1 Step -1
aa = Sheets("Data").Cells(a, 2).Text
If Sheets("Data").Cells(a, 2).Text = sil Then
Sheets("Data").Cells(a, 2).Delete Shift:=xlUp
End If
Next
End If
OptionButton2.Value = False
If OptionButton3.Value = True Then
sil = ComboBox9.Text
For b = Sheets("Data").Range("C65536").End(3).Row To 1 Step -1
If Sheets("Data").Cells(b, 3).Text = sil Then
Sheets("Data").Cells(b, 3).Delete Shift:=xlUp
End If
Next
End If
OptionButton3.Value = False
End Sub


Çok teşekkür ederim tamamdır çalışıyor
Kullanıcı avatarı
ccamalan
Yeni Başlamış
 
Kayıt: 10 Eyl 2014 16:47
Meslek: Alt düzey yönetici
Yaş: 46
İleti: 52
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Optionbutton seçimine göre veri silme

İleti#6)  Ali ÖZ » 19 Kas 2015 01:47

Rica ederim,iyi geceler.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9527
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum OptionButton

Online Kullanıcılar

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

Bumerang - Yazarkafe