Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-10-2017, 11:07   #1
manonfire
Altın Üye
 
manonfire kullanıcısının avatarı
 
Giriş: 24/05/2008
Şehir: bursa
Mesaj: 34
Excel Vers. ve Dili:
2013 tr
Varsayılan birden fazla dosyadan toplam alma

merhaba arkadaşlar,
ekte kesin hesap mali toplam dosyasına, kesin ataşman k01 ve kesin ataşman k02 gibi yüzlerce dosyanın yazmış olduğum formüllere göre koşullu olarak fonksiyonla toplamlarını almasını istiyorum fakat bunu yaparken dosya sayısından dolayı tıkandım yardımcı olurmusunuz.
Eklenmiş Dosyalar
Dosya Türü: xlsx İNÖNÜ ATAŞMAN KESİN HESAP MALİ TOPLAM.xlsx (58.6 KB, 10 Görüntülenme)
Dosya Türü: xlsx İNÖNÜ KESİN ATAŞMAN K01.xlsx (43.0 KB, 7 Görüntülenme)
Dosya Türü: xlsx İNÖNÜ POZLARI.xlsx (14.5 KB, 3 Görüntülenme)
Dosya Türü: xlsx İNÖNÜ KESİN ATAŞMAN K02.xlsx (51.3 KB, 7 Görüntülenme)
manonfire Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-10-2017, 10:37   #2
manonfire
Altın Üye
 
manonfire kullanıcısının avatarı
 
Giriş: 24/05/2008
Şehir: bursa
Mesaj: 34
Excel Vers. ve Dili:
2013 tr
Varsayılan

arkadaşlar bir çözümü yok mudur bunun acil cevaplarınızı bekliyorum.
manonfire Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-10-2017, 15:24   #3
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 953
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Merhaba,
Veri alınacak sayfalardaki verilerin başlama satırları farklı. Bir sayfada 52.satırdan başlarken, diğerinde 62.nci veya 57.nci satırdan başlayabiliyor.
Veri alınacak alt dosyaların standart bir satır-sütun yapısı olabilir mi, yoksa bu elinizde olmayan bir durum mudur?
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-10-2017, 08:06   #4
manonfire
Altın Üye
 
manonfire kullanıcısının avatarı
 
Giriş: 24/05/2008
Şehir: bursa
Mesaj: 34
Excel Vers. ve Dili:
2013 tr
Varsayılan

merhaba antonio,
kaynak liste olarak pozlar dosyasını kullanıyor k01 ve k02 içindeki ataşman sayfalarından detayı sonrasında k01 ve k102 nin mali sayfasına detaydaki toplamları poz no ve imalat cinsini doğrulayarak miktarını yazıyor.

aynı işlemi kesin hesap mali toplam dosyasınada yaptım bu şekilde hem el değmeden otomatik olarak işlem yapılmasını hemde hatayı sıfırlayabiliyorum fakat bu seferde formül çok uzuyor ve karakter sayısı sorunu çıkıyor karşıma.

k01 ve k02 ve (bunu haricindeki bir çok dosyada) mali sayfasının tümünde ilk veri hücresi 40 tan başlıyor bazı dosya sayfalarında 10 satır veri alınması gerekirken bazısında 20-25 satırlık veri olabiliyor bunu değiştirmem mümkün değil her dosyada yapılan imalatlar aynı da farklı da olabiliyor bu yüzden artış veya azalış olabiliyor imalat cinslerinde
manonfire Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 08:54   #5
manonfire
Altın Üye
 
manonfire kullanıcısının avatarı
 
Giriş: 24/05/2008
Şehir: bursa
Mesaj: 34
Excel Vers. ve Dili:
2013 tr
Varsayılan

Arkadaşlar derdime bir çare lütfen...
manonfire Çevrimdışı   Alıntı Yaparak Cevapla
Eski Bugün, 08:22   #6
manonfire
Altın Üye
 
manonfire kullanıcısının avatarı
 
Giriş: 24/05/2008
Şehir: bursa
Mesaj: 34
Excel Vers. ve Dili:
2013 tr
Varsayılan

Günaydın soruma bir göz atıp cevaplarsanız çok sevinirim
manonfire Çevrimdışı   Alıntı Yaparak Cevapla
Eski Bugün, 11:31   #7
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,285
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Ana dosyanızda gereksiz birleştirilmiş iki kolon vardı. Kaldırıldı.

Rapor hazırla.xlsm dosyası diğer dosyaların bulunduğu klasörde olmalı.

Program kısaca, bulunduğu klasör ve onun altındaki tüm klasörlerde dosya adlarında "KESİN ATAŞMAN K" buluklarınının verilerini bileştirir ve ana dosyaya kopyalar.

Veri dosyalarında satır başlangıç ve bitiş bağımsızdır. SIRA NO nun bulunduğu satırı başlangıç kabul eder.

Bu dosya isimleri değiştirilmemelidir.

İNÖNÜ POZLARI.xlsx
İNÖNÜ ATAŞMAN KESİN HESAP MALİ TOPLAM.xlsx

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim aradizin, dosya, yenidosya, veridosya, anadosya, pozdosya As String

Sub menu()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
   aradizin = ActiveWorkbook.Path
   Call yenidosya_ac
   Call dosyalari_bul
   Call toplamlari_bul
   Call anadosya_ac
   Call poz_kopyala
   Call son_duzenleme
   Call dosya_kaydet
   MsgBox ("İşlem Tamamlandı.")
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub

Sub dosya_kaydet()
    Workbooks(yenidosya).Close savechanges:=False
    Workbooks(anadosya).Activate
    'Workbooks(anadosya).Save
    'Workbooks(anadosya).Close savechanges:=False
End Sub

Sub son_duzenleme()
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "ATAŞMAN TOPLAMI"
    Range("D2").Select
    Selection.AutoFill Destination:=Range("D2:D" & sonsatir)
    Range("D2:D" & sonsatir).Select
    Range("F2").Select
    sayfaadi = ActiveSheet.Name
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4]," & sayfaadi & "!C[-5]:C[-4],2,0)"
    Selection.AutoFill Destination:=Range("F2:F" & sonsatir)
    Range("F2:F" & sonsatir).Select
    Columns("F:F").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F5").Select
    Application.CutCopyMode = False
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H" & sonsatir)
    Range("H2:H" & sonsatir).Select
    Columns("H:H").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H2").Select
    Application.CutCopyMode = False
   
    Dim Rky As Range
    For Each Rky In Range("F2:H" & sonsatir)
        If IsError(Rky.Value) Then
            Rky.Value = 0
        End If
    Next Rky
    Set Rky = Nothing
    
    Range("A2:H2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("İNÖNÜ ATAŞMAN KESİN HESAP MALİ TOPLAM.xlsx").Activate
    
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    Set k = Range("A1:A" & sonsatir).Find("SIRA NO", , xlValues, xlWhole)
    satir = 0
    If k Is Nothing Then
    Else
     satir = k.Row + 1
    End If
    
    Range("A" & satir).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C49").Select
End Sub

Sub poz_kopyala()

    Workbooks.Open Filename:=aradizin & "\İNÖNÜ POZLARI.xlsx", UpdateLinks:=0
    pozdosya = ActiveWorkbook.Name
    Sheets(1).Select
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    Set k = Range("A1:A" & sonsatir).Find("SIRA NO", , xlValues, xlWhole)
    satir = 0
    If k Is Nothing Then
    Else
     satir = k.Row + 1
    End If
      
    Range("A" & satir & ":I" & sonsatir).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(yenidosya).Activate
    Sheets.Add
    sonsatir = Cells(Rows.Count, "A").End(3).Row + 1
    Range("A" & sonsatir).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("D:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Workbooks(pozdosya).Close
End Sub

Sub anadosya_ac()
    Workbooks.Open Filename:=aradizin & "\İNÖNÜ ATAŞMAN KESİN HESAP MALİ TOPLAM.xlsx", UpdateLinks:=0
    anadosya = ActiveWorkbook.Name
    Sheets(1).Select
    sonsatir = Cells(Rows.Count, "A").End(3).Row + 2
    Set k = Range("A1:A" & sonsatir).Find("SIRA NO", , xlValues, xlWhole)
    satir = 0
    If k Is Nothing Then
    Else
     satir = k.Row + 1
    End If
    Rows(satir & ":" & sonsatir).Delete
End Sub

Sub toplamlari_bul()
    Columns("C:G").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Kod"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Miktar"
    
    sayfaadi = ActiveSheet.Name
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    
    Columns("A:B").Select
    ActiveWorkbook.Worksheets(sayfaadi).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(sayfaadi).Sort.SortFields.Add Key:=Range("A2:A" & sonsatir) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(sayfaadi).Sort
        .SetRange Range("A1:B" & sonsatir)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A2").Select
    
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    
    Columns("A:B").Select

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        sayfaadi & "!R1C1:R" & sonsatir & "C2", Version:=6).CreatePivotTable TableDestination:= _
        sayfaadi & "!R1C5", TableName:="PivotTable1", DefaultVersion:=6
    Sheets(sayfaadi).Select
    Cells(1, 5).Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Kod")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Miktar"), "Say Miktar", xlCount
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Say Miktar")
        .Caption = "Toplam Miktar"
        .Function = xlSum
    End With
    Columns("E:F").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("A:D").Select
    Range("D1").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Kod"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Miktar"
    Range("B2").Select
End Sub


Sub yenidosya_ac()
    Workbooks.Add
    yenidosya = ActiveWorkbook.Name
    
End Sub

Sub dosyalari_bul()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    Dim Folder As Scripting.Folder, Subfolder As Scripting.Folder, File As Scripting.File
    Dim wb As Workbook
    Set Fso = CreateObject("Scripting.FileSystemObject")

    Set Folder = Fso.GetFolder(aradizin)
    i = 0
    If Folder.SubFolders.Count > 0 Then
      For Each Subfolder In Folder.SubFolders
        For Each File In Subfolder.Files
            i = i + 1
            Cells(i, 1).Value = File.Name
            If InStr(File.Name, ".xls") > 0 And InStr(File.Name, "KESİN ATAŞMAN K") > 0 Then
               dosya = File
               Call sayfa_kopyala
            End If
        Next
      Next
    End If
     
    For Each File In Folder.Files
     If InStr(File.Name, ".xls") > 0 And InStr(File.Name, "KESİN ATAŞMAN K") > 0 Then
         dosya = File
         Call sayfa_kopyala
      End If
    Next
    Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub sayfa_kopyala()
    Range("F9").Select
    Workbooks.Open Filename:=dosya, UpdateLinks:=0
    veridosya = ActiveWorkbook.Name
    Sheets(1).Select
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    Set k = Range("A1:A" & sonsatir).Find("SIRA NO", , xlValues, xlWhole)
    satir = 0
    If k Is Nothing Then
    Else
     satir = k.Row + 1
    End If
      
    Range("A" & satir & ":H" & sonsatir).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(yenidosya).Activate
    sonsatir = Cells(Rows.Count, "A").End(3).Row + 1
    Range("A" & sonsatir).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Workbooks(veridosya).Close
End Sub
Eklenmiş Dosyalar
Dosya Türü: zip Dosya_birlestirme.zip (140.0 KB, 3 Görüntülenme)
__________________
www.asriakdeniz.com

Bu mesaj en son " Bugün " tarihinde saat 12:59 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski Bugün, 11:45   #8
manonfire
Altın Üye
 
manonfire kullanıcısının avatarı
 
Giriş: 24/05/2008
Şehir: bursa
Mesaj: 34
Excel Vers. ve Dili:
2013 tr
Varsayılan

öncelikle cevapladığınız için teşekkür ederim mesajınızı okudum yazdığınız kodu kullanmadım henüz rapor hazırla diye bir doya daha koymuşsunuz bu tamamen ayrı bir dosya mı eğer öyleyse benim istediğim (inönü ataşman kesin hesap mali toplam) dosyasında inönü kesin ataşman k01 ve bunun gibi birçok dosyadan toplam verileri alıp bu dosyaların genel toplamını göstermesidir.
Bir sorum daha olacak istediğimi işlevlerle yapmak mümkün değil mi makro zorunlu mudur
manonfire Çevrimdışı   Alıntı Yaparak Cevapla
Eski Bugün, 11:49   #9
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,285
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
manonfire tarafından gönderildi Mesajı Görüntüle
öncelikle cevapladığınız için teşekkür ederim mesajınızı okudum yazdığınız kodu kullanmadım henüz rapor hazırla diye bir doya daha koymuşsunuz bu tamamen ayrı bir dosya mı eğer öyleyse benim istediğim (inönü ataşman kesin hesap mali toplam) dosyasında inönü kesin ataşman k01 ve bunun gibi birçok dosyadan toplam verileri alıp bu dosyaların genel toplamını göstermesidir.
Bir sorum daha olacak istediğimi işlevlerle yapmak mümkün değil mi makro zorunlu mudur
Önce programı inceleyin, sonucunu görün. Daha sonra konuşalım

Makrosuz yapılamaz diyemem. Ancak dosyalarınızın fazla olması ve tam bir düzen içinde olmaması makrosuz yapılması için problem oluşturuyor.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski Bugün, 11:59   #10
manonfire
Altın Üye
 
manonfire kullanıcısının avatarı
 
Giriş: 24/05/2008
Şehir: bursa
Mesaj: 34
Excel Vers. ve Dili:
2013 tr
Varsayılan

Uzun zamandır bu sorunuma bakan arkadaşlardan sonra cevaplayan nadir insanlardan biri olduğunuzdan dolayı teşekkür ederim.fakat her iki dosyayı da açıp rapor hazırla dediğimde çıkan resimde görüldüğü gibi. Bir de sorunlardan biri de şu bu dosyaları ben hazırlıyorum ama başka bilgisayarlarda başka kişilerde verileri görmek için kullanıyor bundan dolayı diğerlerinde makro çalıştırıyor olması gerekiyor makro çalıştırması kısıtlı olan kullanıcılarda var ne yazık ki...
Eklenmiş Resimler
Dosya Türü: jpg 12.jpg (495.1 KB, 4 Görüntülenme)
manonfire Ç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 22:13


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden