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
...
...
 
N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,359
Excel Vers. ve Dili
Ofis 365 Türkçe
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.
 
M

m__uzun

Katılım
20 Haziran 2015
Mesajlar
36
Excel Vers. ve Dili
office 2010 türkçe
Altın Üyelik Bitiş Tarihi
21/08/2022
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
 
F

FIRAT007

Katılım
9 Haziran 2023
Mesajlar
8
Excel Vers. ve Dili
türkçe
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
 
F

FIRAT007

Katılım
9 Haziran 2023
Mesajlar
8
Excel Vers. ve Dili
türkçe
N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,359
Excel Vers. ve Dili
Ofis 365 Türkçe
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.
 
F

FIRAT007

Katılım
9 Haziran 2023
Mesajlar
8
Excel Vers. ve Dili
türkçe
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.
 
F

FIRAT007

Katılım
9 Haziran 2023
Mesajlar
8
Excel Vers. ve Dili
türkçe
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:
N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,359
Excel Vers. ve Dili
Ofis 365 Türkçe
bence onlarla uğraşmayın sayfa ismini "AHMET SAYGIN" olarak değiştirin.
 
N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,359
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,
Merak ettim dosyanızı o halde paylaşır mısınız.
 
N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,359
Excel Vers. ve Dili
Ofis 365 Türkçe
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.
 
F

FIRAT007

Katılım
9 Haziran 2023
Mesajlar
8
Excel Vers. ve Dili
türkçe
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.
Üst