• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru FARKLI ÇALIŞMA SAYFASINDAN VERİ ALMA

F

FIRAT007

Katılım
9 Haziran 2023
Mesajlar
8
Excel Vers. ve Dili
türkçe
Merhaba,
Excelimde 30 farklı calışma sayfam var.Hepsi isimli ahmet mehmet diye gidiyor.Her çalışma sayfasında toplam kazanc , prim gibi 5 başlık altında rakamlar var. Bunları özet bir tabloda birleştirmek istiyorum.Aşağıdaki gibi.Yardımcı olur musunuz.Teşekkürler


toplam kazanc prim sgk . ....

Ahmet 100 30 30

Mehmet
...
...
 
Merhaba,

3-5 çalışma sayfası olan örnek dosyanızı ve olması gerekeni belirterek paylaşım sitelerinden birine (dosya.co, dosya.tc gibi) yükleyip adresini verirseniz çözüme daha hızlı ulaşırsınız.
 
Sub tablo()
Dim hedefSayfa As Worksheet
Dim ws As Worksheet
Dim sonsatir As Long
Set hedefSayfa = ThisWorkbook.Sheets("HedefSayfa")
hedefSayfa.Cells.ClearContents
hedefSayfa.Range("A1").Value = "Sayfa Adi"
hedefSayfa.Range("B1").Value = "Veriler"
sonsatir = 2
For Each ws In ThisWorkbook.Sheets
If ws.Name <> hedefSayfa.Name Then
hedefSayfa.Cells(sonsatir, 1).Value = ws.Name
ws.UsedRange.Copy hedefSayfa.Cells(sonsatir, 2)
Application.CutCopyMode = False
sonsatir = sonsatir + ws.UsedRange.Rows.Count
End If
Next ws
hedefSayfa.Columns.AutoFit
Selection.SpecialCells(xlCellTypeBlanks).Select
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.FormulaR1C1 = "=R[-1]C"
ActiveWindow.SmallScroll Down:=24
Columns("A:A").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
hedefSayfa.Range("A1").Select
End Sub
 
m__uzun' Alıntı:
Sub tablo()
Dim hedefSayfa As Worksheet
Dim ws As Worksheet
Dim sonsatir As Long
Set hedefSayfa = ThisWorkbook.Sheets("HedefSayfa")
hedefSayfa.Cells.ClearContents
hedefSayfa.Range("A1").Value = "Sayfa Adi"
hedefSayfa.Range("B1").Value = "Veriler"
sonsatir = 2
For Each ws In ThisWorkbook.Sheets
If ws.Name <> hedefSayfa.Name Then
hedefSayfa.Cells(sonsatir, 1).Value = ws.Name
ws.UsedRange.Copy hedefSayfa.Cells(sonsatir, 2)
Application.CutCopyMode = False
sonsatir = sonsatir + ws.UsedRange.Rows.Count
End If
Next ws
hedefSayfa.Columns.AutoFit
Selection.SpecialCells(xlCellTypeBlanks).Select
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.FormulaR1C1 = "=R[-1]C"
ActiveWindow.SmallScroll Down:=24
Columns("A:A").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
hedefSayfa.Range("A1").Select
End Sub
Genişletmek için tıkla ...


Bunu anlayamadım
 
Merhaba,
"TOPLAM KAZANÇ"ın her sayfada aynı satırda olup olmadığı konusunda bir açıklama yapmamışsınız, örneklerde ise hep aynı satırda.
Ben işi garantiye aldım ve kaçıncı satırda olduğunu bularak formülü yazdım.
Hep aynı satırda ise siz formülde arama bölümünü sabit hale getirebilirsiniz.
Not : Sayfa1 de B sütununda yazılan değer ile Sayfa adları bire bir aynı olmak zorunda. Formülü yazarken zorlandım çünkü AHMET'i yazarken sonuna bir boşluk koymuşsunuz, buna dikkat etmelisiniz.

C4 :
Kod: 
=DOLAYLI(B4 & "!A" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
D4 :
Kod: 
=DOLAYLI(B4 & "!B" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
E4 :
Kod: 
=DOLAYLI(B4 & "!C" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
F4 :
Kod: 
=DOLAYLI(B4 & "!D" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
G4 :
Kod: 
=DOLAYLI(B4 & "!E" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
H4 :
Kod: 
=DOLAYLI(B4 & "!F" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)

Bu altı formülü alt satırlara kopyalayın.
 
Necdet' Alıntı:
Merhaba,
"TOPLAM KAZANÇ"ın her sayfada aynı satırda olup olmadığı konusunda bir açıklama yapmamışsınız, örneklerde ise hep aynı satırda.
Ben işi garantiye aldım ve kaçıncı satırda olduğunu bularak formülü yazdım.
Hep aynı satırda ise siz formülde arama bölümünü sabit hale getirebilirsiniz.
Not : Sayfa1 de B sütununda yazılan değer ile Sayfa adları bire bir aynı olmak zorunda. Formülü yazarken zorlandım çünkü AHMET'i yazarken sonuna bir boşluk koymuşsunuz, buna dikkat etmelisiniz.

C4 :
Kod: 
=DOLAYLI(B4 & "!A" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
D4 :
Kod: 
=DOLAYLI(B4 & "!B" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
E4 :
Kod: 
=DOLAYLI(B4 & "!C" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
F4 :
Kod: 
=DOLAYLI(B4 & "!D" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
G4 :
Kod: 
=DOLAYLI(B4 & "!E" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
H4 :
Kod: 
=DOLAYLI(B4 & "!F" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)

Bu altı formülü alt satırlara kopyalayın.
Genişletmek için tıkla ...

Çok teşekkür ederim yardımlarınız için.
 
Necdet' Alıntı:
Merhaba,
"TOPLAM KAZANÇ"ın her sayfada aynı satırda olup olmadığı konusunda bir açıklama yapmamışsınız, örneklerde ise hep aynı satırda.
Ben işi garantiye aldım ve kaçıncı satırda olduğunu bularak formülü yazdım.
Hep aynı satırda ise siz formülde arama bölümünü sabit hale getirebilirsiniz.
Not : Sayfa1 de B sütununda yazılan değer ile Sayfa adları bire bir aynı olmak zorunda. Formülü yazarken zorlandım çünkü AHMET'i yazarken sonuna bir boşluk koymuşsunuz, buna dikkat etmelisiniz.

C4 :
Kod: 
=DOLAYLI(B4 & "!A" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
D4 :
Kod: 
=DOLAYLI(B4 & "!B" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
E4 :
Kod: 
=DOLAYLI(B4 & "!C" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
F4 :
Kod: 
=DOLAYLI(B4 & "!D" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
G4 :
Kod: 
=DOLAYLI(B4 & "!E" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)
H4 :
Kod: 
=DOLAYLI(B4 & "!F" & KAÇINCI("Toplam Kazanç";DOLAYLI(B4 &"!A:A");0)+1)

Bu altı formülü alt satırlara kopyalayın.
Genişletmek için tıkla ...
Nejdet bey , isim soy isimli ( AHMET SAYGIN) arada boşluklu şekilde olursa formulde nereyi değiştirmem gerekiyor
 
Son düzenleme:
bence onlarla uğraşmayın sayfa ismini "AHMET SAYGIN" olarak değiştirin.
 
Merhaba,
Merak ettim dosyanızı o halde paylaşır mısınız.
 
Merhaba, Evet haklısınız, yeni uyandım :) sayfa adında arada boşluk olunca sayfa adını tek tırnak içinde vermek gerek, Şöyle ki:

Kod: 
=DOLAYLI("'" & B4 & "'!M" & KAÇINCI("Toplam Kazanç";DOLAYLI("'"& B4 &"'!M:M");0)+1)

Tüm formüllerde B4 hücresinin başına tek tırnak ve sonunda tek tırnakları koymak gerek, yukarıdaki örnekte olduğu gibi.
 
Necdet' Alıntı:
Merhaba, Evet haklısınız, yeni uyandım :) sayfa adında arada boşluk olunca sayfa adını tek tırnak içinde vermek gerek, Şöyle ki:

Kod: 
=DOLAYLI("'" & B4 & "'!M" & KAÇINCI("Toplam Kazanç";DOLAYLI("'"& B4 &"'!M:M");0)+1)

Tüm formüllerde B4 hücresinin başına tek tırnak ve sonunda tek tırnakları koymak gerek, yukarıdaki örnekte olduğu gibi.
Genişletmek için tıkla ...
Çok Teşekkür Ederim yardımlarınız için.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst