Kapalı çalışma kitabından veri transferi

Believing

VIP Üye
Kullanıcı
Katılım
1 Haz 2017
Mesajlar
75
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: 
İndirmek için giriş yapmanız gerekmektedir.
(31 satır)
 
Sayfalar Arası İstenilen Verileri Alma
Sayfalar Arası İstenilen Verileri Alma
ListViewde Çift ve Sağ Tıklama
Tarihe göre sırala Oylamaya göre sırala
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.
 
Oyla 0 Olumsuz oyla
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
 
Oyla 0 Olumsuz oyla
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

Oyla 0 Olumsuz oyla
Örnek belgenize bakıp denemiş değilim.
Kodu, aşağıdaki gibi değiştirmeniz muhtemelen yeterlidir.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(31 satır)
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
Believing' Alıntı:
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:
Genişletmek için tıklayın ...
Kapalı dosyalar ile çalışmanın en kolay yolu ADO VE SQL yöntemidir.
 
Oyla 0 Olumsuz oyla
Sayın Ömer,

Eski kapalı çalışma kitabındaki verilenin bulunduğu sayfa ismi " Sheet"
Yenisinde ise "Sayfa1" olarak değişmiştir.

Saygılarımla.
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
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.
Genişletmek için tıklayın ...
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

Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
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
 
Oyla 0 Olumsuz oyla
Kırmızı renklendirdiğim satırların arasına yeşil renklendirdiğim satırları ekleyin.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt