Sadece Bazı Kapalı Kitaplarda Veri Alma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

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
Çözüm
Ömer BARAN
Kodu şu şekilde düzenleyince ben, kodda belirtilen belgeden veri alabildim, bir de böyle deneyin.
Biçim konusuna bir önceki cevapta değinmiştim.
Koddaki belge adı, veri alınacak sayfa adı ve verilerin bulunduğu alan adresine dikkat edin.

Aşağıdaki kodda, veri alınacak belgeyle, verinin yazılacağı belgenin aynı dizinde olduğu varsayıldı.
-- veri alınacak belge : ExcelDestekÖrnek1 (6).xlsm
-- veriler hangi sayfadan alınacak : Sayfa1
-- alınacak verilerin adresi : A1:R50

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(6 satır)
Tarihe göre sırala Oylamaya göre sırala
Merhaba @Believing

Koddaki For Each dosya In Crea ...... ve buna bağlı olarak Next satırlarını silip,
If dosya.Name <> ..... satırının hemen üstüne şöyle bir satır ekleyerek istediğinizin olması gerekir.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
 
Oyla 0 Olumsuz oyla
Merhaba Ömer bey,

Yeni bir şeyleri yanlış yapıyorum galiba.
Aslında yapmak istediğim ekteki çalışmadaki gibi olup, dosya biçimlerini koruyarak bu işlemi nasıl gerçekleştirebilirim?

Saygılarımla,
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Cevap yazmıştım ancak ADO konusunda bilgim yeterli olmadığından sonuç alamayabilirsiniz.
Ben sadece mantık yürüterek öneride bulunmuştum.

ADO kodlarıyla verilerin alınabildiğini biliyorum ama biçim konusu hakkında bir fikrim yok doğrusu.

.
 
Oyla 0 Olumsuz oyla
Kodu şu şekilde düzenleyince ben, kodda belirtilen belgeden veri alabildim, bir de böyle deneyin.
Biçim konusuna bir önceki cevapta değinmiştim.
Koddaki belge adı, veri alınacak sayfa adı ve verilerin bulunduğu alan adresine dikkat edin.

Aşağıdaki kodda, veri alınacak belgeyle, verinin yazılacağı belgenin aynı dizinde olduğu varsayıldı.
-- veri alınacak belge : ExcelDestekÖrnek1 (6).xlsm
-- veriler hangi sayfadan alınacak : Sayfa1
-- alınacak verilerin adresi : A1:R50

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(15 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Merhaba Ömer bey,

Şu gece vaktinde yine derdimize ilaç oldunuz.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınızı helal ediniz lütfen.

Saygılarımla,
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt