kapalı dosyadan veri alma

[erdenek]

arkadaşlar ekteki dosyadaki verileri diğer excel dosyasına nasıl aktarıbiliriz.örneğin ORTAK SINAV İSTATİSTİK FEN VE TEKNOLOJİ dosyanın içindeki VERİLER sayfasına diğer klasörlerdeki Fen ve Teknoloji dersindeki VERİLER sayfasındaki bilgileri aktarma yapacağız.Yalnız arkadaşlar elimde daha bu şekilde 40 a yakın klasör var.
http://s3.dosya.tc/server17/Zv0EB0/B_TENOKULLAR.rar.html

 

[erdenek]

arkadaşlar yok mu buna bir çözüm

 

[halit3]

Ben Alternatif olarak farklı bir uygulama ekliyorum.

Burada Sayfa2 de B1 hücresine dosya ismi ve C1 hücresinede sayfa ismi yazıldığında komut düğmesine tıklandığında açılan liste kutusundan veri alınacak klasörü seçmeniz halinde verileri getirecektir.

Sayfa1 de ise komut düğmesine tıklayınca ilgili klasör seçilince eğer dosyada 1 sayfa varsa direk o sayfadan veri alacaktır eğer birden fazla sayfa varsa ekrana gelen liste kutusundan veri alınacak sayfayı seçmeniz gerekir.

 

[erdenek]

ben alternatif olarak farklı bir uygulama ekliyorum.

Burada sayfa2 de b1 hücresine dosya ismi ve c1 hücresinede sayfa ismi yazıldığında komut düğmesine tıklandığında açılan liste kutusundan veri alınacak klasörü seçmeniz halinde verileri getirecektir.

Sayfa1 de ise komut düğmesine tıklayınca ilgili klasör seçilince eğer dosyada 1 sayfa varsa direk o sayfadan veri alacaktır eğer birden fazla sayfa varsa ekrana gelen liste kutusundan veri alınacak sayfayı seçmeniz gerekir.

öncelikle ilginize teşekkür ederim.hocam ama bu böyle çok zaman alır.daha basit bir yolu yok mu?

 

[halit3]

öncelikle ilginize teşekkür ederim.hocam ama bu böyle çok zaman alır.daha basit bir yolu yok mu?

Yukarıdaki mesajımda da belirttim bu sadece alternatif bir uygulama ve çok da basit bir uygulama bir düğmeye tıklama ile veriler geliyor.

 

[halit3]

Buda farklı dosya

Sayfa2 deki komut düğmesini tıklayınca veriler geliyor.
VERILER sayfasındada verileri getir düğmesine tıklamak gerekiyor.

 

[erdenek]

hocam benim istediğim ORTAK SINAV İSTATİSTİK FENOLOJİ VE dosyasında bir buton oluşturulup ona tıkladığımızda BİTEN OKULLAR klasöründe yer alan tüm okulların fen ve teknoloji dersini aynı anda alması.Birde hocam Ayşe Çarmıklı Ortaokulu ile 60.Yıl Sarıgazi Ortaokulu arasında bir satır boş kalıyor.

 

[halit3]

hocam benim istediğim ORTAK SINAV İSTATİSTİK FENOLOJİ VE dosyasında bir buton oluşturulup ona tıkladığımızda BİTEN OKULLAR klasöründe yer alan tüm okulların fen ve teknoloji dersini aynı anda alması.Birde hocam Ayşe Çarmıklı Ortaokulu ile 60.Yıl Sarıgazi Ortaokulu arasında bir satır boş kalıyor.

İki yerde boşluk var 3 satır ve 441 satırda
bunların açılımıda şöyle başlangıçta verilerin yazılacağı satırı I1 hüresinden alıyor oradada 3 sayısı mevcut.

İkincisi ise 75.Yıl Cumhuriyet Ortaokulu klasöründe FEN VE TEKNOLOJİ.xls dosyasında E sütununda 89 satırda bir değer mevcut onun için 441 satırda E sütununda bu değer gelmekte.

Diger taraftan sizin 1. mesajinizda bahsettiginiz kapali dosyadan veri alma durumu yapilmakta

 

[erdenek]

teşekkür ederim.

 

[erdenek]

Sayın halit3;
Klasörlerden seçim yaparken tüm okulları aynı anda nasıl seçeceğiz?

 

[erdenek]

arkadaşlar halit3 üstad birşeyler yapmış fakat bayağı bir zaman alıyor.benim istediğim Klasör seçim ekranında tüm okulları seçebilmek.

 

[halit3]

Sayın halit3;
Klasörlerden seçim yaparken tüm okulları aynı anda nasıl seçeceğiz?

Klasörlerin hepsini seçebilmek için dosyaların bulunduğu klasörün en üstündeki klasörü seçmek gerek bunu deneme yanılma yolu ile de yapabilirdiniz.

Bu kod bütün alt klasörlerdeki verileri de getiriyor.

 

[erdenek]

üstadım işlem tamam çok teşekkür ederim ellerinize sağlık.beni büyük dertten kurtardınız.

 

[erdenek]

halit3 üstadım dosyanın adını değiştirince çalışmıyor.ORTAK SINAV FEN VE TEKNOLOJİ adını DİN KÜLTÜRÜ diye değiştirdim çalışmadı.

 

[erdenek]

üstad şimdi fark ettim.kapalı dosyalardan veri alınırken sıfırları almıyor.

 

[halit3]

üstad şimdi fark ettim.kapalı dosyalardan veri alınırken sıfırları almıyor.

Kodun bu bölümü

If Cells(bas_satir_no, say).Value = 0 Then
Cells(bas_satir_no, say).Value = ""
End If

Sıfırları siliyor fakat bu seferde ExecuteExcel4Macro yöntemiyle veri alınınca boş yerler daima sıfır değer olarak veri alınır.

Yani veri alırken değer yoksa daima sıfır olarak deger alır .

 

[halit3]

halit3 üstadım dosyanın adını değiştirince çalışmıyor.ORTAK SINAV FEN VE TEKNOLOJİ adını DİN KÜLTÜRÜ diye değiştirdim çalışmadı.

Çok küçük şeylerde bile verileri eksik yazıyorsunuz herhalde onun için veri alamıyor olabilirsiniz.

Benim gönderdiğim dosyada Sayfa2 de B1 hücresinde
FEN VE TEKNOLOJİ.xls
bu yazıyor
ben bunu sildim
DİN KÜLTÜRÜ.xls
bunu yazdım
ve verileri alıyor.

 

[erdenek]

Kodun bu bölümü

If Cells(bas_satir_no, say).Value = 0 Then
Cells(bas_satir_no, say).Value = ""
End If

Sıfırları siliyor fakat bu seferde ExecuteExcel4Macro yöntemiyle veri alınınca boş yerler daima sıfır değer olarak veri alınır.

Yani veri alırken değer yoksa daima sıfır olarak deger alır .

ben kodu hangi satırdan sonra yazacağım.okulların sınav sınav puanı kısmında sıfır yazıyor fakat okulların verilerini alınırken sıfırı almıyor.

 

[halit3]

ben kodu hangi satırdan sonra yazacağım.okulların sınav sınav puanı kısmında sıfır yazıyor fakat okulların verilerini alınırken sıfırı almıyor.

16. mesajımda yazmıştım

Siz sıfır değerlerinide almak istiyorsanız 16.mesajdaki kod bloğunu silmeniz gerekiyor.

 

[erdenek]

üstad linkte dosyada yer alan okulların ders ders İSTATİSTİKLER sayfasında yer alan başarı oranlarını nasıl alabiliriz?

http://s3.dosya.tc/server17/kCrUqX/TEOGSONU_LARI.rar.html