cari listesi son bakiyeleri tek sayfada toplamak için

[mehmetim_c]

arkadaşlar carilerimi excelde tutuyorum her sayfada bir müşterim var 50 - 60 tane filen bunları temiz bir sayfada son bakiyelerini sayfa ismine göre formülleye bilirmiyim bu konuyu nasıl arayıp bulabilirim bulamadım yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Konu başlığını sorunun içeriğini ifade edecek şekilde değiştirmenizi rica ederim.

Açılan Konu Başlığını Düzeltmek

Forum Kurallarina Uymayan Basliklar Hakkinda

.

 

[asi_kral]

arkadaşlar carilerimi excelde tutuyorum her sayfada bir müşterim var 50 - 60 tane filen bunları temiz bir sayfada son bakiyelerini sayfa ismine göre formülleye bilirmiyim bu konuyu nasıl arayıp bulabilirim bulamadım yardımcı olursanız sevinirim.

Konu başlığını değiştirdikten sonra dosya eklerseniz yardımcı olmaya çalışırım

 

[mehmetim_c]

son bakiyeleri extra sayfasına nasıl atabilirim son bakiye olarak

 

[Ömer]

Extra sayfası C2 hücresine yazıp alt satırlara kopyalayın.

=KAYDIR(DOLAYLI("'"&B2&"'!J1");BAĞ_DEĞ_SAY(DOLAYLI("'"&B2&"'!J:J"))-1;0)

.

 

[mehmetim_c]

ilgi ve alakanız için tşkler şansımı fazla zorlucam sanırım ama peki sayfa isimleri formülle nasıl atıcam sayfa isminin aynısını yazmadığım zaman formül hata veriyo yada yer değişikliği yaptığım zaman bu konuda da yardımcı olursanız cok sevirim

 

[Ömer]

Module kopyalayıp çalıştırın.

Sub SayfaYaz()
 
    Dim i As Integer, sat As Long
 
    Sheets("extra").Select
    Range("B2:B" & Rows.Count).ClearContents
    
    sat = 2
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If ActiveSheet.Name <> .Name Then
                Cells(sat, "B") = .Name
                sat = sat + 1
            End If
        End With
    Next i
        
End Sub

.