Kapalı Dosyalara veri kaydı.

[ahzola]

Merhabalar

Bu ilk kapalı dosya çalışmam olacak.
Umarım yeteri kadar açıklayacı bilgi verebilmişimdir.
Yardımlarınızı bekliyorum. Şimdiden teşekkür ederim.

C:\ nin içinde farklı isimlerde klasörler mevcut.
Klasörlerin içinde de farklı isimlerde dosyalar var.
Dosyaların tamamında "Liste" adında sayfalar var.
( C:\Klasörler\Dosyalar\Liste adlı sayfa )

Bütün dosyalar kapalı olduğu halde. Bu sayfadan
"Liste" adlı sayfalara veri yazdırmak istiyorum.

Kapalı dosyalar ile tek bağlantımız.
Mavi ile renklendirdiğim E ve F sütunundaki veriler
Bu verilerin aynısından (Sayısı bilinmemekte) kapalı dosyalarda da var
Lakin veriler farklı klasörlerin farklı dosyalarında dağınık halde bulunuyor.
Yalnız tamamı "Liste" adlı sayfaların E ve F sütunlarında bunu biliyoruz sadece.
Satır nolarını bilmiyoruz.

Bu bilgiler ışığında.
Bu sayfanın E ve F sütunu ile
Kapalı dosyalardaki "Liste" adlı sayfanın E ve F sütunları karşılaştırılacak.
Aynı değerler tespit edilirse. (Birden fazla olma durumu var)
ilgili satırın M hücresi kontrol edilecek eğer boşsa M, N, O, P, Q, R, S, hücrelerindeki verileri yazdıracak
İlgili satırın M hücresinde değer var ise, eşleşme aramaya devam edilecek

Yazma kriterleri hasıl olduğunda

Boş olan hücreler taşınmayacak. Dolu olan hücrelerin ise sadece
değerleri gidecek.

işlemin teyidi/kontrolü adına.
Bu sayfanın aktarılan satırının T hücresine "gönderildi" yazılacak.
Kapalı dosyalarda kayıt yapılan satırın A hücresine "fed" yazılacak
Gönderilemeyen bilgileri bu şekilde kontrol etmiş olacağız.

Örnek kapalı dosya ( Sütunlar birebir aynı )
..............
.............

 

[ahzola]

Arkadaşlar sabahtan bu yana forumları ve googleyi tarıyorum.
Konuya benzeri değil yaklaşığına dahi denk gelmedim.

Dosya yolunu "tam olarak belirtmediğimiz" için bu makronun olma/olmama ihtimali nedir acaba
fikirlerinizi bekliyorum.

 

[Mehmet Şahin]

Merhaba,
ekteki dosyayı deneyiniz. İyi akşamlar...

        rs.Fields(sut - 1).Value = sh1.Cells(sat, sut)
       [B][COLOR=Red] rs.Fields(0).Value = "fed"[/COLOR][/B]
        rs.Update

İlgili kod kısmına kırmızı yazılı kısmı ilave edebilirsiniz.

 

[ahzola]

Sayın dentex

sürücü C ye "Yeni Klasör" diye bir klasör açtım
içine "Deneme" diye bir kitap koydum kitapta
"Liste" diye sayfanın
E ve F sütunlarına
açıklamamda belirttiğim şekilde ve Makroyu
çalıştırdığımız kitabın "Ocak" sayfasındaki
E ve F sütunlarındaki değerlerin aynısı yazdım.

butona bastığımda hata verdi
hata:

Sarı ok bu kısımı işaret ediyor Sub sd()

hata mesajı ise aşağıdaki şekilde

Compile error
Can t find project or library

ayrıca
rs.Fields(sut - 1).Value = sh1.Cells(sat, sut)
rs.Fields(0).Value = "fed"
rs.Update
bu kısımdaki kırmızı bölümü dediğiniz yere uyguladım.

ne yapmam/yapılması gerekiryor bu durumda acaba.

 

[Mehmet Şahin]

Benim gönderdiğim dosyadan mı çalıştırdınız?

 

[ahzola]

Evet

sadece kırmızı kısmı ilavettim.
başka bişeye dokunmadım.

 

[Mehmet Şahin]

Çalıştırdığınız dosyayı yükleyebilir misiniz?

 

[ahzola]

Kitap makroyu çalıştırdığmız kitapla birebir aynı
sadece makrosu yok ve taşamak istidiğimiz veriler yok.

 

[ahzola]

Pardon
gönderdiğim kayıt yapacağmız dosya
çalştığım dosya
ekte

ben biraz önce sorduğnuz için
onu istediğniz tahmin edemedim.
özür dilerim tekrardan.

 

[Mehmet Şahin]

Tamam dosyanızı kontrol ettim burada çalışıyor. Bir sorun yok gibi...

 

[Mehmet Şahin]

Vba editöründe Tools/references sekmesini açın. Bazı referanslarınız bilgisayarınızda olmayabilir. Bunula ilgili forumda ve internette arama yapabilirsiniz. Ben şimdilik ara veriyorum. İyi geceler.

 

[ahzola]

Peki Sayın dentex
teşekkür ediyorum

görüşmek ümidi ile
iyi geceler.

 

[ahzola]

Vba editöründe Tools/references
kısmında MİSSİNG çentiğini kaldırın denilmiş
kaldırdım.

Bunun sonrasında Makro butonuna bastığmda

XLS or XLSX Files kaydet diye bir pencere açıldı.

Tam olarak burada ne yapılıyor acaba.
ve bu kaydı nereye yapmalıyım ben.

 

[Mehmet Şahin]

Günaydın, bu pencere açıldığında işlem yapılmasını istediğiniz excel dosyalarını seçip butona basıyorsunuz, hepsi bu kadar.

 

[baydeniro]

Merhaba. Dosyadaki denemeleri yaptım. Ancak veri aktarımı olmadı. Ayrıca dosya önceden açılmazsa excel veri tabanında bulunamadı diye hata veriyor.

 

[Mehmet Şahin]

Merhaba,
ana dosya ve diğer test dosyalarını 3 no'lu mesajda yükledim. Dosyaların açılmasına gerek yoktur, sorunsuz çalışmaktadır. Kolay gelsin.

 

[baydeniro]

Sayın dentex, çok teşekkürler, elinize emeğinize sağlık. Acaba B3:S100 arasına komple v eri aktarımını yapmak istersek kodu nasıl etmeliyiz !!

 

[Mehmet Şahin]

Merhaba,
aynı dosyadan mı söz ediyoruz. Eğer değilse sanırım ayrı bir başlıkta ve örnek dosyalarla sormalıyız. İyi çalışmalar.

 

[baydeniro]

Evet evet sayın dentex aynı dosyayı kastetmiştim.

 

[Mehmet Şahin]

anladım,
şimdi aktarma kriterlerini detaylı yazın. Çünkü bu kod, kayıtları diğer dosyalarda bulup onların belirli alanlarını update etmek için yazıldı. Siz nasıl istiyorsunuz, lütfen açıklayıcı olsun. Aksi takdirde gereksiz ve uzun yazışmalara neden olmaktadır. İyi çalışmalar.