Çözüldü İki kodun çalışmasında çakışma

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
V

Vurkan

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Tem 2023
Mesajlar
112
Çözümler
1
Aldığı beğeni
27
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
Arkadaşlar merhaba. Ekli dosyamda Sayın halily ve Sayın Caylak üstadların katkılarıyla oluşturduğum 4A isimli sayfamda bulunan sayfa kodu

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Şeklindedir.

Burada karşılaştığım sorun
1. Call Ogrenciler(Range("D2")) kodu çalışması devam ederken Call xResimKopyala kodu da çalışmaya başlıyor ve çakışıyor. Benim yapmak istediğim Call Ogrenciler(Range("D2")) kodu çalışıp sayfa tamamlanınca Call xResimKopyala kodu çalışsın.

2. Call Ogrenciler(Range("D2")) kodu sayfayı oluşturmaya başlamadan önce sayfadaki tüm resimleri silmeli. Aksi halde Eski resimler sayfanın altına toplanıp kalıyor.
3. Kodların çalışması bitince D2 hücresi seçili kalsın. Saygılar.
 
Tarihe göre sırala Oylara göre sırala
V

Vurkan

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Tem 2023
Mesajlar
112
Çözümler
1
Aldığı beğeni
27
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
Üstadım merhaba. Dediğiniz gibi ekleme yaptım ama bir değişiklik olmadı. Sub xResimKopyala() kodu "sourcePicture.CopyPicture" satırında hata veri. Her iki kodda çalışmayı durdurdu. Saygılar.
 
Olumlu oy 0 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,233
Çözümler
505
Aldığı beğeni
3,964
Excel Versiyonu
Office 2021 TR
Merhaba.Bir dosya eklemeyi deneyin bakalım.Çünkü biz bilemiyoruz dosya olmadan.
 
Olumlu oy 1 Negatif oyla
Çözüm
V

Vurkan

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Tem 2023
Mesajlar
112
Çözümler
1
Aldığı beğeni
27
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
Arkadaşlar merhaba. Araştırmalarım neticesinde yukarıda verdiğim kodu;

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.DrawingObjects.Delete
If Not Intersect(Target, Range("D2")) Is Nothing Then
Application.EnableEvents = False
txt = Range("D2")
txt = Replace(txt, "i", "İ")
txt = Replace(txt, "ı", "I")
txt = Replace(txt, "ö", "Ö")
txt = Replace(txt, "ü", "Ü")
txt = Replace(txt, "ç", "Ç")
txt = Replace(txt, "ş", "Ş")
txt = Replace(txt, "ğ", "Ğ")
Range("D2") = UCase(txt)
Application.EnableEvents = True
Application.EnableEvents = False
Call Ogrenciler(Range("D2"))
End If
Application.EnableEvents = True

Call xResimKopyala

Application.Wait Now + TimeValue("00:00:01")
Application.EnableEvents = True
End Sub

şeklinde çözdüm. İlgilenen arkadaşlara teşekkür ederim.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Üst