Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 11-03-2013, 21:11   #1
eleceng
 
Giriş: 02/01/2009
Mesaj: 11
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan Birden Çok Kapalı Excel Dosyasından Veri Alma

Arkadaşlar, çalıştığım firmada Cari Hesaplar, ekte göndermiş olduğum dosyadaki gibi klasörlenmiş şekilde tutuluyor. Toplamda yaklaşık 1000 adet müşteri hesabı bulunmakta. Benim yapmak istediğim şey, "Alacak&Verecek Rapor" dosyasına bütün dosyalardan Son Bakiyeyi ve Son Bakiyenin Tarihini (Yani H8 ve I8 hücrelerini) çekebilmek. Bunun kolay bir yolu var mıdır? Ayrıca klasörler içerisine ekleyeceğim veya sileceğim her dosyanın da bu rapora eklenmesi veya silinmesi gerek. Eğer yardımcı olursanız çok sevinirim.
Eklenmiş Dosyalar
Dosya Türü: rar CARİ HESAPLAR.rar (24.7 KB, 98 Görüntülenme)
eleceng Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-03-2013, 22:26   #2
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,590
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
eleceng tarafından gönderildi Mesajı Görüntüle
Arkadaşlar, çalıştığım firmada Cari Hesaplar, ekte göndermiş olduğum dosyadaki gibi klasörlenmiş şekilde tutuluyor. Toplamda yaklaşık 1000 adet müşteri hesabı bulunmakta. Benim yapmak istediğim şey, "Alacak&Verecek Rapor" dosyasına bütün dosyalardan Son Bakiyeyi ve Son Bakiyenin Tarihini (Yani H8 ve I8 hücrelerini) çekebilmek. Bunun kolay bir yolu var mıdır? Ayrıca klasörler içerisine ekleyeceğim veya sileceğim her dosyanın da bu rapora eklenmesi veya silinmesi gerek. Eğer yardımcı olursanız çok sevinirim.
1-Bu dosya veri alınacak klasörlerin yanında olmalı
2-veri alınacak dosyaların hepsinde Sayfa1 olmalı ve verilerde bu sayfa1 de olmalı
Eklenmiş Dosyalar
Dosya Türü: rar CARİ HESAPLAR.rar (28.9 KB, 436 Görüntülenme)
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-03-2013, 20:50   #3
eleceng
 
Giriş: 02/01/2009
Mesaj: 11
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Üstadım eli koluna sağlık şahane olmuş. tam irdeleyemedim, çok vaktim yoktu, ama beni büyük bir dertten kurtardın teşekkürlerimi sunarım..
eleceng Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-07-2013, 14:27   #4
meaksoy
 
Giriş: 20/02/2008
Şehir: karabük
Mesaj: 23
Excel Vers. ve Dili:
ofice 2003
Varsayılan 2 farklı excel sayfasından veri alma

2 adet farklı excel dosyasından veri alma konusunda yardımınız rica edeiyroumekli dosyada örneğini yolladım.
Eklenmiş Dosyalar
Dosya Türü: rar Yeni klasör.rar (346.2 KB, 142 Görüntülenme)
meaksoy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-07-2013, 11:41   #5
meaksoy
 
Giriş: 20/02/2008
Şehir: karabük
Mesaj: 23
Excel Vers. ve Dili:
ofice 2003
Varsayılan

Alıntı:
meaksoy tarafından gönderildi Mesajı Görüntüle
2 adet farklı excel dosyasından veri alma konusunda yardımınız rica edeiyroumekli dosyada örneğini yolladım.
yardımcı olabilecekmisiniz ?
meaksoy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-07-2013, 11:12   #6
netsynter
 
Giriş: 02/04/2008
Mesaj: 18
Excel Vers. ve Dili:
excel 2000
Varsayılan

Alıntı:
halit3 tarafından gönderildi Mesajı Görüntüle
1-Bu dosya veri alınacak klasörlerin yanında olmalı
2-veri alınacak dosyaların hepsinde Sayfa1 olmalı ve verilerde bu sayfa1 de olmalı

Halit bey dosya oldukça faydalı belirli bir klasörden, belirli bir excel dosyasından veri alırken bu kodu nasıl modifiye edebiliriz acaba?
netsynter Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-07-2013, 21:47   #7
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,590
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
netsynter tarafından gönderildi Mesajı Görüntüle
Halit bey dosya oldukça faydalı belirli bir klasörden, belirli bir excel dosyasından veri alırken bu kodu nasıl modifiye edebiliriz acaba?
Klasör için kod:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub aktar2()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.self.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla

Application.DisplayAlerts = False

Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Value = ""
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(Kaynak).Files
If ThisWorkbook.Name <> Dosya.Name Then
deg = "'" & Kaynak & "\" & "[" & Dosya.Name & "]" & "Sayfa1" & "'!R" '//Veri alınacak dosyalardaki sayfa isimi
sat = Cells(Rows.Count, "A").End(3).Row + 1
Cells(sat, 1) = ExecuteExcel4Macro(deg & 2 & "C2")
Cells(sat, 2) = ExecuteExcel4Macro(deg & 8 & "C8")
Cells(sat, 3) = ExecuteExcel4Macro(deg & 8 & "C9")
End If
Next

Application.ScreenUpdating = True
Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub
dosya için kod:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub aktar3()

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

Kaynak = Application.GetOpenFilename(FileFilter:="Excel Workbooks,*.xls", Title:="Open a File", MultiSelect:=False)
If Kaynak = False Then
MsgBox "Kaynak klasörü seçmediniz"
Exit Sub
End If

Klasor = fL.GetParentFolderName(Kaynak)
Dosya = fL.GetFileName(Kaynak)

Application.DisplayAlerts = False

Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Value = ""
deg = "'" & Klasor & "\" & "[" & Dosya & "]" & "Sayfa1" & "'!R" '//Veri alınacak dosyalardaki sayfa isimi
sat = Cells(Rows.Count, "A").End(3).Row + 1
Cells(sat, 1) = ExecuteExcel4Macro(deg & 2 & "C2")
Cells(sat, 2) = ExecuteExcel4Macro(deg & 8 & "C8")
Cells(sat, 3) = ExecuteExcel4Macro(deg & 8 & "C9")
Application.ScreenUpdating = True

MsgBox "işlem tamam"

End Sub
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-10-2013, 17:03   #8
eleceng
 
Giriş: 02/01/2009
Mesaj: 11
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Halit Bey bir konuda daha yardıma ihtiyacım var. yardımcı olursanız sevinirim. "Senelik Ciro hesabı" yapmaya çalışıyorum. Ek'te "Cari Hesap Şablonumuzu" gönderdim. Benim yapmayı düşündüğüm şey; başka bir excel dosyasında her firmanın Yıllık toplam satış, toplam ödeme ve toplam ciroyu ayrı ayrı satırlarda belirterek listelemek. Ben bir şablon uydurdum. Ek'te onu da gönderdim. Daha mantıklı bir çözümünüz var ise kabulümdür. Yardımlarınızı bekliyorum.
Eklenmiş Dosyalar
Dosya Türü: rar Şablonlar.rar (34.5 KB, 70 Görüntülenme)
eleceng Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2013, 18:57   #9
selimcengizince
 
Giriş: 03/10/2013
Şehir: nevşehir
Mesaj: 39
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Merhaba,

Mobil aygıttaki bir excel dosyasından kapalıyken veri almak istiyorum. Dosya yolunu bulamıyorum. smartphone olarak görünüyor..dizin oluşturamıyorum sürücü yok C:'mi D:'mi H:'mi nasıl bulacağımı da bulamadım..

misal; "C:\users\desktop\vs.xlsx" adresinden sorunsuz veri alabiliyorum..
Mobil aygıt için adresi ne şekilde belirtmeliyim?
selimcengizince Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-11-2013, 09:57   #10
selimcengizince
 
Giriş: 03/10/2013
Şehir: nevşehir
Mesaj: 39
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Arkadaşlar bilen, anlayan varsa yardımlarınızı bekliyorum.
selimcengizince Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 13:57


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden