• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

  • 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ü Kurum bilgileri

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

ERDAL

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
3 Nis 2021
Mesajlar
258
Çözümler
1
Aldığı beğeni
43
Excel V
Office 2013 TR
Konuyu Başlatan
Merhaba Arkadaşalar,

Daha önceden "Kurum bilgilerini güncelle" başlığı altında açtığım konunun bir parçası olan Kurum bilgilerini güncelle başlığı ile ilgili büyük dosyalarda çok yavaş olması nedeniyle Refaz Hocamın yardımlarıyla rs.GetRows yöntemi yöntemini uygulayarak oluşturduğumuz kodu (Buradan kendisine çok teşekkür ederim) buraya uyarlama konusunda yardımlarınızı bekliyorum.

Yapılacak işlemeler;
Eğer Kaynak dosyadaki Kurum_kodu Hedef dosyadaki kurum_koduna eşitse; Kaynak dosyadaki ilçe, genel müdürlük, kurum türü, kurum adı, telefon ve adras başlıkları altındaki verilerin Hedef dosyadaki ilgili ilgili başlıklar altına getirmek.
Ayrıca eğer güncelleme sırasında kaynak dosyadaki Kurum_adı Hedef dosyadaki kurum_adından farklıysa (yani değişmiş ise), Hedef dosyadaki Açıklama başlığına; Kurum Adı Degisti (11.06.2024) şeklinde not düşmesi ve mesaj olarakta Kurum kodu >>......ilçe.......>>Kurum Adı......Kurum Adı Değişti şeklinde bilgi vermesi
Üzerinde uğraştığım kod Hedef dosyasında Deneme adılı modüldedir.

Yardımlarınız için şimdiden teşekkür ederim.
 

Ekli dosyalar

  • Kurum Bilgileri (Hedef).xlsb
    33 KB · Gösterim: 5
  • Kurum Bilgileri (Kayanak).xlsx
    11.4 KB · Gösterim: 3
Çözüm
Refaz
Dosyanın son hali ekte.
ilk sorum şu:Hedef dosyadaki kurum adında veriler var kod çalıştı değiştiyse açıklamalar eklendi.
ikinci çalıştırmada ise kurum kodları eşleşenlerin kurum adları tekrar geldiği için açıklama sütununundaki veriler otomatik temizlenmiş oluyor tüm kurum adları güncellendiğin için.Burası nasıl olacak?
2.Soru ise:Kaynak exceldeki kurum kodları sütununda veriler birden fazla tekrarlanıyormu ben tekrarlanmıyor farzettim.
Son hali gifteki gibi çalışıyor.


66.gif
Tarihe göre sırala Oylara göre sırala
Merhaba.Önceden evet kodları yazmıştım ama parantez içindekileri böyle yazmamıştım hatırlıyorum zira öyle olmaz zaten.
Karıştırmışsınız zaten.Eğer 1 saat içinde felan bitmezse akşam tekrar bakarım.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Biraz düzenledim ama akşam tam biter.
ERDAL' Alıntı:
ilçe, genel müdürlük, kurum türü, kurum adı, telefon ve adres başlıkları altındaki verilerin Hedef dosyadaki ilgili ilgili başlıklar altına getirmek.
Genişletmek için tıkla...
Bunları getirttim.
Getirirken güncelleme olayı kaldı onuda artık akşam nasipse yaparım.
 

Ekli dosyalar

  • Kurum Bilgileri (Hedef).xlsb
    38.2 KB · Gösterim: 1
Olumlu oy 0 Negatif oyla
Son olarak güncellemeyide yaptım ama tam test edemedim akşam bakacağım zamanım bitti.
Kontrol edin eksik yada yanlışları yazarsınız.
Ayrıca kaynak dosyada hedef dosya ile aynı yerde olacaksa kodda yazdığım gibi bırakın yol satırını devamlı ayarlamak zorunda kalıyoruz.
 

Ekli dosyalar

  • Kurum Bilgileri (Hedef).xlsb
    41.5 KB · Gösterim: 3
Olumlu oy 0 Negatif oyla
Hocam teşekkür ederim. elinize emeğinize sağlık
arr_KodDic_icin(i, 1) = CStr(dizi(i, 1)) 'Kurum Kodu(Güncelleme icin)
Bu kısmı anlayamadım.
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
Hocam teşekkür ederim. elinize emeğinize sağlık
arr_KodDic_icin(i, 1) = CStr(dizi(i, 1)) 'Kurum Kodu(Güncelleme icin)
Bu kısmı anlayamadım.
Genişletmek için tıkla...
Rica ederim.
Onları sonradan ekledim kodları karşılaştırmak için dictionary içine almak içindi sanırım unuttum.
Güncelleme için ise düşüncem şuydu;
Kapalı excelde kurum kodu ve kurum adını ayraç(|||)gibi birşeyle birleştirip dictionary içine almıştım.
Sonra açık excelde döngü kurup kurum adı ve kurum kodununuda aynı ayraçla birleştirip dictionary ile varmı gibi şartla yapmıştım.
Öncedende dediğim gibi akşam tam düzenleyip sın halini eklerim.
 
Olumlu oy 0 Negatif oyla
Refaz' Alıntı:
Kapalı excelde kurum kodu ve kurum adını ayraç(|||)gibi birşeyle birleştirip
Genişletmek için tıkla...
mesela kurum kodu=1 ve kurum adı=x varsa ve başka satırdada kurum kodu=2 ve kurum adı=x gibi aynı ad ile kurum adı olabilir diye birleştirdim garanti olsun diye yoksa birleştirmeden kriter olarak sadece kurum adı olarakta aratılıp yapılabilinirdi.
 
Olumlu oy 0 Negatif oyla
Hocam, tek ayırt edici kriter Kurum_Kodu TC gibi
 
Olumlu oy 0 Negatif oyla
Hocam; Eğer güncelleme sırasında kaynak dosyadaki Kurum_adı Hedef dosyadaki kurum_adından farklıysa (yani değişmiş ise), Hedef dosyadaki Açıklama başlığına; Kurum Adı Degisti (11.06.2024) şeklinde not düşmesi ve mesaj olarakta Kurum kodu >>......ilçe.......>>Kurum Adı......Kurum Adı Değişti şeklinde bilgi vermesi
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
Eğer güncelleme sırasında kaynak dosyadaki Kurum_adı Hedef dosyadaki kurum_adından farklıysa
Genişletmek için tıkla...
Zaten öyle yaptım ama işte kurum adı birden zala aynı olabilir diye kurum kodunuda eklemek gerekiyordu.
 
Olumlu oy 0 Negatif oyla
Evet hocam haklısınız. Az da olsa aynı adı taşıyan kurumlar var.
Bunu şu şekilde yaparsak olur mu;

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Yani her iki dosyada kurum kodları eşitse ve kurum adları farklı ise
ws.Cells(i, "P") = "Kurum Adi Degisti" & " (" & Format(Date, "dd.mm.yyyy") & ")" şeklinde
 
Olumlu oy 0 Negatif oyla
Hocam son eklediğiniz dosyayı denedim. Aynı kurum adlarında sorun çıkarmıyor.
Aynı addaki kurumlardan sadece birinin adı değişiyor.
 
Olumlu oy 0 Negatif oyla
Dosyanın son hali ekte.
ilk sorum şu:Hedef dosyadaki kurum adında veriler var kod çalıştı değiştiyse açıklamalar eklendi.
ikinci çalıştırmada ise kurum kodları eşleşenlerin kurum adları tekrar geldiği için açıklama sütununundaki veriler otomatik temizlenmiş oluyor tüm kurum adları güncellendiğin için.Burası nasıl olacak?
2.Soru ise:Kaynak exceldeki kurum kodları sütununda veriler birden fazla tekrarlanıyormu ben tekrarlanmıyor farzettim.
Son hali gifteki gibi çalışıyor.


66.gif
 

Ekli dosyalar

  • Kurum Bilgileri (Hedef).xlsb
    41.8 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
Çözüm
Refaz' Alıntı:
Dosyanın son hali ekte.
ilk sorum şu:Hedef dosyadaki kurum adında veriler var kod çalıştı değiştiyse açıklamalar eklendi.
ikinci çalıştırmada ise kurum kodları eşleşenlerin kurum adları tekrar geldiği için açıklama sütununundaki veriler otomatik temizlenmiş oluyor tüm kurum adları güncellendiğin için.Burası nasıl olacak?
2.Soru ise:Kaynak exceldeki kurum kodları sütununda veriler birden fazla tekrarlanıyormu ben tekrarlanmıyor farzettim.
Son hali gifteki gibi çalışıyor.


Ekli dosyayı görüntüle 26339
Genişletmek için tıkla...
Hocam teşekkür ederim. Elinize emeğinize sağlık.
İlçe, Gen Müd, Kurum türü ve Kurum adları her çalıştırdığımda güncellenecek. Sadece kurum adı değişenlerin bilgileri Açıklama başlığı altında not olarak kalacak.
Hocam buradaki notlar kalacak.
'ws.Range("p2:p" & Rows.Count).ClearContents

Kaynak dosyada ve hedef dosyada her zaman için kurum kodları tek oluyor.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst