• 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ü İ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
Ü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
Merhaba.Bir dosya eklemeyi deneyin bakalım.Çünkü biz bilemiyoruz dosya olmadan.
 
Olumlu oy 1 Negatif oyla
Çözüm
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)
Geri
Üst