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

Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
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

Altın Üye
Katılım
18 Mayıs 2005
Mesajlar
2,571
Excel Vers. ve Dili
Excel 2010 Türkçe
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.
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
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

Altın Üye
Katılım
18 Mayıs 2005
Mesajlar
2,571
Excel Vers. ve Dili
Excel 2010 Türkçe
Pardon, ben de yanlış okumuşum sorunuzu.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
teşekkürederim sorunu çözdüm hakikaten de filtre varmış.
dikkatsizliğime verin lütfen.ilginize çok teşekkür ederim. :lolipop
 
X

xxrt

Misafir
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
 
Üst