• 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 bilgilerini güncelle

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
262
Çözümler
1
Aldığı beğeni
44
Excel V
Office 2013 TR
Konuyu Başlatan
Merhaba Arkadaşalar,

Kurmum listesini güncellerken (Kurum bilgilirini güncelle, açılanları ekle ve kapananları sil) olmak üzere 3 kod çalıştırarak bilgileri güncellemekteyim.
Bu kodu bire düşürebilirmiyiz

Yapılacak işlemeler;
Kurum bilglereni güncelleme; Kaynak dosyadaki ilçe, genel müdürlük, kurum türü ve kurum adlarını güncelemek eğer değişen kurum adı varsa "Durumu" başlığına 'Kurum Adı Degisti (03.06.2024)' şeklinde not düşmesi ve mesaj olarakta '.....................Kurum Adı Değişti şeklinde bilgi vermesi
Not: Bu bölümün kodu örnek olarak eklediğim dosyada var.

Kapanan kurum varsa sil: Eğer kurum kaynak dosyada olmayıp hedef dosyada var ise ilgili kurumun bulunduğu satırın silinmesi ve mesaj olarakta '.....................Kurum kapandı' şeklinde bilgi vermesi

Açılan kurum var ise hedef dosyaya ekle: Eğer kaynak dosyada olup, hedef dosyada kurum yok ise, bu kurumun hedef dosyasına eklenlmesi
ve "Durumu" başlığına 'Yeni Açılış (03.06.2024)' şeklinde not düşmesi ve mesaj olarakta '.....................Açıldı şeklinde bilgi vermesi

Güncelleme işleminde ben ADO kullandım. Eğer ADO kullanarak yapılırsa daha iyi olur.

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

Ekli dosyalar

  • Kurum Bilgileri (Hedef).xlsb
    23.6 KB · Gösterim: 4
Çözüm
Refaz
Eğer yazdıklarımı tek sub içine alırsanız çok kafa karıştırır bunun yerine parametreler ekledim.

KURUM_BİLGİLERİNİ_GETİR kodunu çalıştırırsanız silme ve eklemede çalışır.
Yada önceden yazdığım gibi sub olanların adlarını yazacaksınız.

'Sonradan Eklenenler----------------------------------------------------------------------------------------------------
KurumSil con, rs, ws, yol
KurumEkle con, rs, ws, yol
'Sonradan Eklenenler----------------------------------------------------------------------------------------------------

Ayrıca yukardaki gibi yapınca silme ve ekleme kodlarına yol,recordset,connection vs... yazmaya gerek kalmadı.
Benden bu kadar kolay gelsin.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Tarihe göre sırala Oylara göre sırala
Örnek dosyalar;
 

Ekli dosyalar

  • Kurum Bilgileri (Hedef).xlsb
    23.6 KB · Gösterim: 6
  • Kurum Bilgileri (Kayanak).xlsx
    11.3 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
Merhaba.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Yukardaki gibi yazmışsınız ama delate yerine delete olacaktı belki bundan dolayı silmiyordur.
 
Olumlu oy 0 Negatif oyla
Ayrıca alttaki linkte çözüm sağlanmıştı çok yavaş çalışıyor diye ve dictionary ile çözülmüştü ama eklediğiniz dosyada yine gereksiz döngülerle olan kodlar var.

excelcozum.com

ADO rs.GetRows yöntemi

ADO ile kurum bilgilerini güncelliyorum. Fakat çok yavaş çalışıyor. Bu verileri daha hızlı çekmek için ne yapılabilir. rs.GetRows yöntemini uygulamaya çalıştım ama yapamadım. Bu konuda uzman hocalarımızın yardımlarını bekliyorum. Yardımlarınız için şimdiden teşekkür ederim. Verileri çektiğim...
excelcozum.com excelcozum.com
 
Olumlu oy 0 Negatif oyla
Hocam merhaba,
Evet hocam bu yöntemi öğrenci sayıları raporunda kullanmıştık. Tekrar teşekkür ederim. Buraya henüz uygulamadım. Buradada kullanacağım.
Hocam güncelleme, ekleme ve silme işlemlerini ayrı ayrı kodlarla yapıyorum. Amacım bu işlemleri tek sub altana almak.
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
Hocam merhaba,
Evet hocam bu yöntemi öğrenci sayıları raporunda kullanmıştık. Tekrar teşekkür ederim. Buraya henüz uygulamadım. Buradada kullanacağım.
Hocam güncelleme, ekleme ve silme işlemlerini ayrı ayrı kodlarla yapıyorum. Amacım bu işlemleri tek sub altana almak.
Genişletmek için tıkla...
Zamanım olunca bakacağım,az bir bakmıştım dosyaya ve dikkatimi çeken yazdığım yer olmuştu.
Belki bu hafta zamanım olur yada olamayabilir söz veremem yinede Ado cu üstadlar halleder.
Kodları inceleyince zor olmadığını anlamıştım esasen ama zaman olmayınca yapamadım.
 
Olumlu oy 0 Negatif oyla
Merhaba
 

Ekli dosyalar

  • Kurum Bilgileri (Hedef).xlsb
    30.9 KB · Gösterim: 5
  • Kurum Bilgileri (Kayanak).xlsx
    11.3 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
Son dosyayı inceledim ve sizin ilk mesaj ve ikinci mesajdaki dosyalardaki yazdığınız kodlar ile en son eklediğiniz dosyadaki kodlar çok farklı.
Bundan dolayı önerebileceğim son dosya için.

Sub KURUM_BÝLGÝLERÝNÝ_GETÝR() içindeki ActiveWorkbook.Save satırının altına alttakileri eklemeniz.Sıralar değişebilir belki.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Ayrıca son dosyadaki silme kodundan anladığım kadarıyla kapalı dosyadaki satırlar silinecek.Bu durumda bildiğim Ado ile kapalı dosyada satır silme olmuyor zaten.
 
Olumlu oy 0 Negatif oyla
Hocam, kapalı dosyadan (kaynak) satır silmeyecek, hedef dosyadan normal kodla silecek
Yardımlarınız için çok teşekkür ederim.
 
Olumlu oy 0 Negatif oyla
Gün içinde tekrar bakarım.Eğer konuyu tam anlayıp yapabilirsem eklerim dosyayı.
 
Olumlu oy 0 Negatif oyla
Sadece anlamak için yazıyorum mesela silme için alttaki kodu bir deneyin doğru sonuç verecek mi?
Koddaki bozuk harfleri düzeltin hata verirse.

Mantık olarak açık exceldeki kurum kodu sütununda döngü çalışır ve kapalı excelde kurum kodu sütununda ilgili kurum kodu varsa o satır silinir.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Hocam teşekkür ederim.
Silme yapıyor. Fakat hangi ilçede hangi kurumu sildiğini mesaj olarak verirse, hangi kurumun kapandığını biliriz
Birde aynı işlemi Kurum Ekleme içinde yapabilir miyiz
 
Olumlu oy 0 Negatif oyla
Rica ederim.
Silme için alttaki kodu deneyim sonda mesaj verir silinenleri.
Mesaj kutusu sınırlı olduğunu biliyorum bundan dolayı çok fazla olursa belki tamamını almaz.Bundan dolayı bir userform ekleyip orda ya listbox yada listview gibi nesnelerede silinenleri gösterebilirsiniz.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
ws.Cells(Son, 1).Value = rs(0) ' rs(0) Kapali excel 1.sütun
ws.Cells(Son, 3).Value = rs(1)
ws.Cells(Son, 4).Value = rs(2)
ws.Cells(Son, 5).Value = rs(3) ' rs(3)=Kapali excel 4.sütun

Ekleme kodlarda altta ve yukardaki yere eklemek istediğiniz sütunlara kendiniz devam edebilirsiniz ben açıklama yazdım o kodda.


C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Hocam teşekkür ederim. Elinize emeğinize sağlık. ekleme ve silme kodları çalışıyor.
Benim amacım 3 kodu birleştirmekti,. Öyle gözüküyor ki 3 ünü tek sorguda çıkarma ihtimali yok sanırım
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
Hocam teşekkür ederim. Elinize emeğinize sağlık. ekleme ve silme kodları çalışıyor.
Benim amacım 3 kodu birleştirmekti,. Öyle gözüküyor ki 3 ünü tek sorguda çıkarma ihtimali yok sanırım
Genişletmek için tıkla...
Rica ederim.Tek Sub içinde çalışır.
Önceden yazmıştım nasıl çalışacağını.

Verdiğim kodları tek sub içine atarsanız Tek sub içinde çok fazla kafa karıştırır bence.
 
Olumlu oy 0 Negatif oyla
Tek sub içinde yapınca eklerim.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst