Çözüldü Kapalı çalışma kitabından veri transferi

Believing

Yıllık Site Üyesi
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Sayın Uzman arkadaşlar,

Sayın Ömer beyden alıntı olan aşağıdaki kodlar ile kapalı çalışma kitabından veri almaktayım.
Veri altığım veri tabanında sütun ve formatlarında değişikliğe gidildiği için veri transferi yapamıyorum.
Daha önce "D" sütununda olan tarih sütunu "A" sütunu ile değişti.
Yeni "A" sütunundaki tarih formatı 31.12.1995 20:59:15 şeklimde değişmiştir.
Bu değişikliklere göre mevcut kodu nasıl revize etmeliyim.
Çok değerli yardımlarınızı rica ediyorum.

Saygılarımla.

Kod:
İçeriği görüntülemek için giriş yapmalısınız
(31 satır)
 
Günaydın Arkadaşlar,

Konu güncel olup, konu ile ilgili uğraşlarım sonucunda henüz bir müspet ilerleme kaydedemedim.
Benim için çok kıymetli olan yardımlarınızı rica ediyorum.

Saygılarımla.
 
Bu tür makroların doğruluğunu test edebilmek için dosyanın olması gerekir.
Dosya eklemediğiniz için tavsiyem, kodlarınızı F8 ile adım adım ilerletmeniz ve hangi satırda hata alıyorsanız oraya yoğunlaşmanız yönünde olacaktır.

İyi çalışmalar
 
Sayın Admin,

Daha önce konu farklı bir başlık altında açılmış ve sayın Ömer BARAN'ın destekleri ile çözülmüştü.
Ancak verilerin alındığı kapalı çalışma kitabında koşul olarak atanan "D" sütunu, "A" sütunu olarak değişmiş, aynı zamanda sütundaki tarih formatı da "gg.aa.yyyy ss:dd:nn" şeklinde değişmiştir.
Bu koşullara göre yukarıdaki kodu nasıl revize edebilirim.

Saygılarımla.

Daha önce açılan konu linki:
 

Ekli dosyalar

Sayın Ömer bey,

Kriterlere uygun veri yok hatası alıyorum.
Sanırım tarih formatları ile ilgi bir sorunumuz var diye düşünüyorum.
Önceki "D" sütunundaki tarih formatı "gg.aa.yyyy" şeklindeydi.
Şimdi "A" sütununa taşınan tarih formatı "gg.aa.yyyy ss:dd:nn" şeklindedir.

Saygılarımla.
 
Sayın Admin,

Daha önce konu farklı bir başlık altında açılmış ve sayın Ömer BARAN'ın destekleri ile çözülmüştü.
Ancak verilerin alındığı kapalı çalışma kitabında koşul olarak atanan "D" sütunu, "A" sütunu olarak değişmiş, aynı zamanda sütundaki tarih formatı da "gg.aa.yyyy ss:dd:nn" şeklinde değişmiştir.
Bu koşullara göre yukarıdaki kodu nasıl revize edebilirim.

Saygılarımla.

Daha önce açılan konu linki:
Kapalı dosyalar ile çalışmanın en kolay yolu ADO VE SQL yöntemidir.
 
Kodda sayfa ismi kullanılmıyor ki?
-- Kodun baş tarafında veri kaynağı belirtiliyor.
dosya = ThisWorkbook.Path & "\Database_CLOSED.xlsx"
-- Veri kaynağında tek sayfa olduğu varsayılmış ve bu nedenle de sayfa ismi kullanılmamış.
Set kaynak = ActiveWorkbook.ActiveSheet

Denemeden cevap yazmış değilim.
5 numaralı cevapta verdiğim kodda, 7 numaralı cevapta belirttiğim değişikliği yaparak denedim ve sonuç aldım ki;
7 numaralı cevaptaki kodu ona göre ilettim.
 
Kodda sayfa ismi kullanılmıyor ki?
-- Kodun baş tarafında veri kaynağı belirtiliyor.
dosya = ThisWorkbook.Path & "\Database_CLOSED.xlsx"
-- Veri kaynağında tek sayfa olduğu varsayılmış ve bu nedenle de sayfa ismi kullanılmamış.
Set kaynak = ActiveWorkbook.ActiveSheet

Denemeden cevap yazmış değilim.
5 numaralı cevapta verdiğim kodda, 7 numaralı cevapta belirttiğim değişikliği yaparak denedim ve sonuç aldım ki;
7 numaralı cevaptaki kodu ona göre ilettim.
Sayın Ömer bey,

5 numaralı ve 7 numaralı cevaplarınızdaki belirttiğiniz kodları uyguladım, sonuç olarak "Kriterlere uygun veri yok" hatası alıyorum.
Bendeki çalışmayı ekteki gibi olup, affınıza sığınarak nerede hata yaptığım konusunda beni aydınlatır mısınız?

Saygılarımla
 

Ekli dosyalar

Ben bir sorun görmüyorum doğrusu.
Seçtiğiniz tarihin YIL kısmının 2020 olduğundan eminsiniz değil mi?
Çünkü kapalı belgenizdeki tüm tarihler 2020 yılı.
Belki dikkatten kaçmıştır.
 
Sayın Ömer bey,

12 mesajdaki dosyaları incelemenizi rica ediyorum.
Bu mesajdaki kapalı dosyanın "A" sütunundaki tarihlerde sorun vardır. Veriler 2019 yılına aittir.
Bu veriler farklı bir sistemden alındığı için değiştirmem mümkün görünmüyor.
Eğer tarihler manuel olarak düzeltilirse 5 numaralı ve 7 numaralı cevaplarınızdaki kodlar çalışmaktadır.
Kapalı dosyaya müdahale etmeden bir çözük üretebilir miyiz?

Saygılarımla
 
Sayın Ömer bey,

mesaj 17 deki çalışmayı indiriyorum yine aynı hata mesajını alıyorum.
Bu durumda neleri kontrol etmeliyim veya nasıl bir yol izlemeliyim herhangi bir tavsiyeniz varmıdır?

Saygılarımla.
 
Veri kaynağı olan belge açıksa kapatın.
VBA ekranında, verdiğim kodu görüntüleyin, ardından imlecin aşağıdaki satırda olmasını
sağladıktan sonra klavyeden F9 tuşuna basın. O satır bordo zemini hale gelecek.
VBA ekranını kapattıktan sonra, belgenizdeki düğmeye tıklayın (düğmeyle verdiğim kodu ilişkilendirmişsinizdir zaten) .
msj = "Kriterlere uygun veri yok": tip = vbCritical

Makro çalışacak ve biraz evvel bordo zeminli hale gelen satırda durup VBA ekranı kendiliğinden açılacak.
Bu sırada veri kaynağı belge de açıktır. Bu belgede A sütunundaki veriler sayıya (tarih/saat) dönüşmüş olmalıdır.
Bu durumu kontrol edin. Bu dönüşüm gerçekleşmişse verileri alabileceksiniz demek oluyor.
 
Konuyu başlatan
Yıllık Site Üyesi
Katılım
Konum
Serik - ANTALYA
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
18
Üst