[Yardım]  Userform dan Sayfa Sildirme

Kulanıcı arayüz formu

Userform dan Sayfa Sildirme

İleti#1)  afacan1414 » 08 Oca 2019 12:06

Merhaba,

Bir forum sitesinde bulduğum userformda kitap içindeki her sayfaya gidebiliyoruz. Seçilen sayfaları yazdırabiliyoruz. Ama seçilen sayfaları silmede hata veriyor. Yardımcı olurmusunuz lütfen?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
afacan1414
Yeni Başlamış
 
Kayıt: 09 Kas 2016 10:49
Meslek: Lojistik
Yaş: 31
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bolu

Cevap: Userform dan Sayfa Sildirme

İleti#2)  Bülent » 08 Oca 2019 12:25

Merhaba,

Silme kodunuzu aşağıdaki gibi değiştirip dener misiniz?

Kod: Tümünü seç
Private Sub sil_Click()

cvp = MsgBox("Silmek isteðinize emin misiniz?", vbYesNo + vbQuestion, "Arþiv Silme Ýþlemi")
If cvp = vbYes Then
Application.DisplayAlerts = False
Dim i As Integer, deg As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets((ListBox1.List(i, 1))).Delete
deg = deg & ListBox1.List(i, 1) & Chr(10)
End If
Next i

MsgBox "Şu sayfalar silindi" & Chr(10) & deg, vbInformation, "Silinen Sayfalar"

UserForm_Initialize
Else

End If
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 02:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3619
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: Cevap: Userform dan Sayfa Sildirme

İleti#3)  afacan1414 » 08 Oca 2019 14:28

Bülent yazdı:Merhaba,

Silme kodunuzu aşağıdaki gibi değiştirip dener misiniz?

Kod: Tümünü seç
Private Sub sil_Click()

cvp = MsgBox("Silmek isteðinize emin misiniz?", vbYesNo + vbQuestion, "Arþiv Silme Ýþlemi")
If cvp = vbYes Then
Application.DisplayAlerts = False
Dim i As Integer, deg As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets((ListBox1.List(i, 1))).Delete
deg = deg & ListBox1.List(i, 1) & Chr(10)
End If
Next i

MsgBox "Şu sayfalar silindi" & Chr(10) & deg, vbInformation, "Silinen Sayfalar"

UserForm_Initialize
Else

End If
End Sub



Teşekkürler.
Kullanıcı avatarı
afacan1414
Yeni Başlamış
 
Kayıt: 09 Kas 2016 10:49
Meslek: Lojistik
Yaş: 31
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bolu

Cevap: Userform dan Sayfa Sildirme

İleti#4)  Bülent » 08 Oca 2019 14:54

Rica ederim.
Kolay gelsin.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 02:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3619
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

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

Cevap: Userform dan Sayfa Sildirme

İleti#5)  afacan1414 » 11 Oca 2019 10:07

[resim]resimag.com/02e7feef5bd.png[/resim]

Peki listeden seçtiğim sayfanın adını nasıl değiştirebilirim?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
afacan1414
Yeni Başlamış
 
Kayıt: 09 Kas 2016 10:49
Meslek: Lojistik
Yaş: 31
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bolu


Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: huseyinkkamer ve 1 misafir

Bumerang - Yazarkafe