sayfaların listelenmesi ve bakiyeler

[alacatan]

merhaba
ilişikte örnek dosyam gibi 80-90 sayfalı bir excel dosyam var.
1. sayfada firmaları arayıp bulabileceğim bir fihriste ihtiyacım var,
sayfalar çok olduğundan firmaları bulamıyorum.

ayrıca bir de borç alacak sayfasına firma isimlerini ve bakiyelerini
otomatik olarak aktarmak istiyorum.

nasıl yapabilirim, yardımcı olabilir misiniz.

teşekkürler.

 

[Orion1]

Merhaba
dosyanız hazır.

Sub fhirist()
Dim syf As Worksheet, sat As Long
Sheets("fihrist").Select
Range("A2:B65536").ClearContents
sat = 2
For Each syf In Worksheets
    If syf.Name <> "fihrist" And syf.Name <> "borç alacak" Then
        Cells(sat, "A").Value = sat - 1
        Cells(sat, "B").Value = syf.Name
        sat = sat + 1
    End If
Next
MsgBox "Firma isimleri aktarıldı"
End Sub

Sub bakiye()
Dim syf As Worksheet, sat As Long
Sheets("borç alacak").Select
Range("A2:C65536").ClearContents
sat = 2
For Each syf In Worksheets
    If syf.Name <> "fihrist" And syf.Name <> "borç alacak" Then
        Cells(sat, "A").Value = sat - 1
        Cells(sat, "B").Value = syf.Name
        Range("C" & sat).Value = WorksheetFunction.Sum(Sheets(syf.Name).Range("I3:I65536"))
        sat = sat + 1
    End If
Next

 

[alacatan]

Sayın sezar
size çok teşekkür ederim, bilseniz benim için ne büyük bir problemdi...

Fakat sanırım fihrist kısmını ben yanlış aktardım.
arama yapabileceğim bir menü olması mümkün mü,
şöyle ki açılacak bir pencereye firma adını yazdığımda
firmaları görebileyim ve seçerek o firmaya (yani ayn zamanda o sayfaya)
gidebileyim.

Zahmetiniz ve emeğiniz için teşekkürler.

Selamlar.

 

[Orion1]

Anlaşıldı.Tamam.

 

[Orion1]

Merhaba.
Dosyanız Hazır.

 

[alacatan]

Merhaba.
Dosyanız Hazır.

Sayın sezar ;

Elinize sağlık, harikasınız; çok güzel olmuş.


Son bir ayrıntı düzeltebilmemiz mümkün mü;
bakiye sütunuı son durumu gösterdiğinden o satırın bütün hücrelerinin
toplamını değil de, sadece son hücresini göstermesi gerekiyor.
bunu değiştirebilir miyiz :

a firması 1,255.00 (aslında olması gereken : 65 )
b firması 2,480.00 ( : 135)
c firması 1,440.00 ( : 60)

sevgilerle.

 

[omerceri]

Sn Sezar'ın Kodlarını aşağıdaki gibi değiştirin.
Sub bakiye()
Dim syf As Worksheet, sat As Long
Sheets("borç alacak").Select
Range("A2:C65536").ClearContents
sat = 2
For Each syf In Worksheets
If syf.Name <> "fihrist" And syf.Name <> "bor&#231; alacak" Then
Cells(sat, "A").Value = sat - 1
Cells(sat, "B").Value = syf.Name
Range("C" & sat).Value = Sheets(syf.Name).Range("I" & Sheets(syf.Name).Cells(65536, "I").End(xlUp).Row)
sat = sat + 1
End If
Next
MsgBox "Firma Bakiyeler aktar&#305;ld&#305;"

End Sub

 

[alacatan]

Sayın omerceri;

size de çok teşekkür ederim, harika oldu, ellerinize sağlık.

selamlar.