Normalde kaydet düğmesine tıklayınca aktif sayfa ali,zeynep yada ahmet ise işlem yapmadan mesaj verip çıkıyordu.
Belki tam kodu ekleyememişsinizdir yada kaydete basınca aktif sayfa adı dediklerimden birisi değildir ve o şekilde kaydetmiştir.Bugün bakakarım.
Sayfa adları eşleşmeli koddaki ile.
Çarpıdan Formu Kapatmak
Hocam Dosyayı ekliyorum. Kodu yanlış eklemiş olabilirim.
Hocam Ofis 2010 kullaniyorum.
Hocam Ofis 2010 kullaniyorum.
Son Düzenleme: 03/05/2020, 04:21, Düzenleyen: m_demir.
Tamam mümkünse 2003 olarak olmasın çünkü açılmıyor ben değiştiriyorum.
Ucase siz deneseydiniz birde.
Ucase siz deneseydiniz birde.
Kodu alttaki gibi yapın Sayfa1 yerine sayfa1 olacakmış çünkü sayfa adınız o şekilde.Koddaki Ş gibi harfleri tekrar yazamanız gerekebilir.
Koddaki liste ile sayfa adı aynımı kontrol edin.
Ayrıca Option Compare Text bu kodu userform1 kodunun en üstüne ekleyin harf duyarlılığı için.
Office 2010 ise xlsm formatında kullanmaız daha iyi olur o şekilde dosya atıyorum.
Koddaki liste ile sayfa adı aynımı kontrol edin.
Ayrıca Option Compare Text bu kodu userform1 kodunun en üstüne ekleyin harf duyarlılığı için.
Office 2010 ise xlsm formatında kullanmaız daha iyi olur o şekilde dosya atıyorum.
Function islemYapma() As Boolean
If ActiveSheet.Name = "sayfa1" Or ActiveSheet.Name = "ÞABLON" Or ActiveSheet.Name = "liste" Then
MsgBox "Bu sayfalarda silme,degistirme,ekleme gibi olaylar olamaz...", vbCritical, "Bilgi"
islemYapma = True
Else
islemYapma = False
End If
End Function
Hocam Çok, çok teşekkürler ellerinize sağlık. Tam istediğim gibi olmuş.
'Unload Me
'UserForm1.Show
Exit For
End If
Kaydet koduna eklediğiniz yukarıdaki kodları UserForm1 Değiştir Butonuna ve UserForm4 FİRMA BİLGİLERİNİ
GÜNCELLE butonlarına da uygulayabilirmiyiz. Ben ekledim hata veriyor.
'Unload Me
'UserForm1.Show
Exit For
End If
Kaydet koduna eklediğiniz yukarıdaki kodları UserForm1 Değiştir Butonuna ve UserForm4 FİRMA BİLGİLERİNİ
GÜNCELLE butonlarına da uygulayabilirmiyiz. Ben ekledim hata veriyor.
(03/05/2020, 16:33)m_demir yazdı: Hocam Çok, çok teşekkürler ellerinize sağlık. Tam istediğim gibi olmuş.Rica ederim.Dosyanın son halini eklermisiniz xlsm formatında.Akşama bakabilirim.Yada aynı dosya üzerinde yaparım.Aslında çok kodlarınız değişmeli bana göredr uzun iş tümünü sıfırdan yazmak gibi birşey.En iyisi adım adım hatalı olanları düzeltmek.
'Unload Me
'UserForm1.Show
Exit For
End If
Kaydet koduna eklediğiniz yukarıdaki kodları UserForm1 Değiştir Butonuna ve UserForm4 FİRMA BİLGİLERİNİ
GÜNCELLE butonlarına da uygulayabilirmiyiz. Ben ekledim hata veriyor.
Konuyu Okuyanlar: 1 Ziyaretçi