Makro içinde yazılan Mesaj metnini değiştirmek

[bulentc76]

formdan öğrendiklerimle ve aldığım bazı kodları ekleyip değiştirerek bişeyler yapmaya çalışıyom ama bi mesaj varki bulamadımki üstünde istediğim gibi değişikşlik yapayım
yok işte yada sıcaktan bakar köre döndüm...
yardımcı olurmusunuz
userformda sil komutunu verdiğimde "bütün satır silnsinmi" gibi mesaj beliriyo bu mesaj nerede, yoksa bilmediğim bişeymi var
yardımlarınız ve katkılarınız için şimdiden teşekkürü bi borç bilirim...
dosyam ektedir.

Edit xxrt:"kardeşler kayıp bi mesaj var bulamadım " başlığı "Makro içinde yazılan mesaj metnini değiştirmek" olarak değiştirildi.

 

[mehmett]

Visual Basic Düzenleyicisi'ne gidin, UserForm4'ü sağ tıklayıp View Code yazan yeri seçin. Gelen pencerede en alttaki makro kodlarının içinde.

 

[bulentc76]

Private Sub CommandButton6_Click()
sor = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ...?", vbYesNo)
If sor = vbNo Then Exit Sub
Application.Wait Now + TimeValue("00:00:02") / 1.5
CommandButton6.Caption = "SİL"
sat = ListBox1.ListIndex + 2
Range("B" & sat & ":I" & sat).Delete
[a65536].End(2).Delete
MsgBox "SEÇİLEN KAYIT SİLİNMİŞTİR"
End Sub

kodlarının içinde "bütün satır silinsinmi" diye bi msgBox yokki
allah allah nerde bu yoksa farklı bi kodlama felanmı kullanılıyo

 

[mehmett]

Pardon, ben de yanlış okumuşum sorunuzu.

 

[Korhan Ayhan]

Selamlar,

Dosyanızı inceledim STOKLAR sayfanızda satırlara bir şekilde filtre uygulamışsınız büyük ihtimalle o uyarıyı excel otomatik olarak o yüzden veriyor. Otomatik filtre uygulayı kaldırırsanız düzelecektir.

 

[bulentc76]

teşekkürederim sorunu çözdüm hakikaten de filtre varmış.
dikkatsizliğime verin lütfen.ilginize çok teşekkür ederim. :lolipop

 

[xxrt]

Birde şöyle yapın..
Private Sub CommandButton6_Click()
sor = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ...?", vbYesNo)
If sor = vbNo Then Exit Sub
Application.Wait Now + TimeValue("00:00:02") / 1.5
CommandButton6.Caption = "SİL"
'sat = ListBox1.ListIndex + 2
'Range("B" & sat & ":I" & sat).Delete
'[a65536].End(2).Delete Shift:=xlUp
Sheets("STOKLAR").Rows(Sheets("STOKLAR").Columns(1).Find(ListBox1.Value).Row).Delete
MsgBox "SEÇİLEN KAYIT SİLİNMİŞTİR"
End Sub


Birde UserForm3'e şu kodları ilave ederseniz Loop döngüsünü durdurmuş olursunuz.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub