-
Foruma hoş geldin 👋 Ziyaretçi
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Çözüldü Private Sub Worksheet Change
- Konuyu Başlatan hakki83
- Başlangıç tarihi
-
- Etiketler
- private sub worksheet change
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Çözüm
hakki83
Yeni Üye
- Katılım
- 9 Ağu 2021
- Mesajlar
- 767
- Çözümler
- 3
- Aldığı beğeni
- 224
- Excel V
- Office 2016 TR
Sayın halily hocam teşekkürler, denemeler yapmaya başlayayım.
halily
Destek Ekibi
- Katılım
- 29 Ağu 2021
- Mesajlar
- 1,987
- Çözümler
- 274
- Aldığı beğeni
- 2,089
- Excel V
- Office 2019 TR
Rica ederim
İyi çalışmalar
İyi çalışmalar
hakki83
Yeni Üye
- Katılım
- 9 Ağu 2021
- Mesajlar
- 767
- Çözümler
- 3
- Aldığı beğeni
- 224
- Excel V
- Office 2016 TR
Halily hocam
Tam olarak dediğinizi yaptım ama bir yerde hata yapıyorum sanırım.
Tam olarak dediğinizi yaptım ama bir yerde hata yapıyorum sanırım.
Sanırım en alttaki End İf'lerden bir tanesi fazla silip deneyiniz.
halily
Destek Ekibi
- Katılım
- 29 Ağu 2021
- Mesajlar
- 1,987
- Çözümler
- 274
- Aldığı beğeni
- 2,089
- Excel V
- Office 2019 TR
tam olarak amacınız ne anlamadım ama end if hatası verdi bir yerlerde açtığınız if kapanmamış
kodları yazarken blokları ayırmak için her alt blok için tab ile daha içten başlarsanız yada satır azaltmak içim döngü bitimlerini bir önceki satırla birleştirmezseniz kodlar daha okunaklı olur
HTML:
kodları yazarken blokları ayırmak için her alt blok için tab ile daha içten başlarsanız yada satır azaltmak içim döngü bitimlerini bir önceki satırla birleştirmezseniz kodlar daha okunaklı olur
HTML:
Çözüm
hakki83
Yeni Üye
- Katılım
- 9 Ağu 2021
- Mesajlar
- 767
- Çözümler
- 3
- Aldığı beğeni
- 224
- Excel V
- Office 2016 TR
Sildim fakat yine hata verdi
hakki83
Yeni Üye
- Katılım
- 9 Ağu 2021
- Mesajlar
- 767
- Çözümler
- 3
- Aldığı beğeni
- 224
- Excel V
- Office 2016 TR
Deneyeceğim hocam
halily
Destek Ekibi
- Katılım
- 29 Ağu 2021
- Mesajlar
- 1,987
- Çözümler
- 274
- Aldığı beğeni
- 2,089
- Excel V
- Office 2019 TR
ayrıca neden If Not Intersect(Target, Range("B2:N1000")) Is Nothing Then 2 defa alınmış, bir defa yeterli olurdu
hakki83
Yeni Üye
- Katılım
- 9 Ağu 2021
- Mesajlar
- 767
- Çözümler
- 3
- Aldığı beğeni
- 224
- Excel V
- Office 2016 TR
halily
Destek Ekibi
- Katılım
- 29 Ağu 2021
- Mesajlar
- 1,987
- Çözümler
- 274
- Aldığı beğeni
- 2,089
- Excel V
- Office 2019 TR
hakki83
Yeni Üye
- Katılım
- 9 Ağu 2021
- Mesajlar
- 767
- Çözümler
- 3
- Aldığı beğeni
- 224
- Excel V
- Office 2016 TR
Hocam benim kod bilgim (yok denecek kadar az) çok az; kullanmak istediğim kodları birleştirmeye çalışıyorum, bazen karışıyor, içinden çıkamıyorum.
Bir tane daha var böyle hata veren, birazdan konu açacağım.
Teşekkür ederim size
halily
Destek Ekibi
- Katılım
- 29 Ağu 2021
- Mesajlar
- 1,987
- Çözümler
- 274
- Aldığı beğeni
- 2,089
- Excel V
- Office 2019 TR
rica ederim
iyi çalışmalar
kod doğru çalışıyorsa çözümü işaretleyin çözülmüşlere taşıyalım
iyi çalışmalar
kod doğru çalışıyorsa çözümü işaretleyin çözülmüşlere taşıyalım
hakki83
Yeni Üye
- Katılım
- 9 Ağu 2021
- Mesajlar
- 767
- Çözümler
- 3
- Aldığı beğeni
- 224
- Excel V
- Office 2016 TR
Haliliy hocam küçük bir sorun çıktı
Şimdi örnek dosya yüklüyorum.
Şimdi örnek dosya yüklüyorum.
Refaz
Destek Ekibi
- Katılım
- 11 Ağu 2021
- Mesajlar
- 5,155
- Çözümler
- 653
- Aldığı beğeni
- 5,011
- Excel V
- Office 2024 TR
2 kere yzılmış.Tek olarakta yapılabilir.
Not:mesajda belirtilmiş görmedim.
hakki83
Yeni Üye
- Katılım
- 9 Ağu 2021
- Mesajlar
- 767
- Çözümler
- 3
- Aldığı beğeni
- 224
- Excel V
- Office 2016 TR
Hocam A sütununda birkaç hücreyi seçip delete tuşuna basınca hata veriyor, bu düzeltilebilir mi?
halily
Destek Ekibi
- Katılım
- 29 Ağu 2021
- Mesajlar
- 1,987
- Çözümler
- 274
- Aldığı beğeni
- 2,089
- Excel V
- Office 2019 TR
çoklu ekleme silme değiştirme gibi işlemlerde hatayı önlemek için ayrı bir range tanımlayıp targetı oraya atayabilirsiniz sonrada o range içindeki her hücre ayrı ayrı işleme tâbi tutulabilir
Not : Application.EnableEvents = False kodu nedeniyle eğer işlem yarıda kesilmişse yani hata verip çıkılmışsa, yanılmıyorsam dosya tekrar açılana kadar eğer siz özel olarak Application.EnableEvents = True kodunu çalıştırmamışsanız hücre değişim olaylarına tepki vermez o nedenle o kodu dikkatli kullanmanızı öneririm
dilerim işe yarar sorun çıkarmadı çoklu silmede ama toplu olarak kayıt eklemeye çalışıldığında mükerrer kayıtta sorun çıkarabilir
HTML:
Not : Application.EnableEvents = False kodu nedeniyle eğer işlem yarıda kesilmişse yani hata verip çıkılmışsa, yanılmıyorsam dosya tekrar açılana kadar eğer siz özel olarak Application.EnableEvents = True kodunu çalıştırmamışsanız hücre değişim olaylarına tepki vermez o nedenle o kodu dikkatli kullanmanızı öneririm
dilerim işe yarar sorun çıkarmadı çoklu silmede ama toplu olarak kayıt eklemeye çalışıldığında mükerrer kayıtta sorun çıkarabilir
HTML:
Son düzenleme:
hakki83
Yeni Üye
- Katılım
- 9 Ağu 2021
- Mesajlar
- 767
- Çözümler
- 3
- Aldığı beğeni
- 224
- Excel V
- Office 2016 TR
Hocam
Application.EnableEvents = True
Bu bahsettiğiniz kodu eklememiz gerekiyor mu? (İlerde hata çıkartmasın diye)
Application.EnableEvents = True
Bu bahsettiğiniz kodu eklememiz gerekiyor mu? (İlerde hata çıkartmasın diye)
halily
Destek Ekibi
- Katılım
- 29 Ağu 2021
- Mesajlar
- 1,987
- Çözümler
- 274
- Aldığı beğeni
- 2,089
- Excel V
- Office 2019 TR
Application.EnableEvents = false kullanılmışsa işlem bittiğinde tekrar aktifleştirmek için Application.EnableEvents = True tekrar konulmalı
ama false olan yoksa diğerine de gerek yok kanımca
ama false olan yoksa diğerine de gerek yok kanımca
- Durum