• DİKKAT

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

bakiyeleri tek sayfada gösterme

  • Konbuyu başlatan Konbuyu başlatan Burak12
  • Başlangıç tarihi Başlangıç tarihi
B

Burak12

Katılım
3 Kasım 2013
Mesajlar
32
Excel Vers. ve Dili
Excel 2010 Türkçe
kolay gelsin.bir çalışma kitabında 50 tane firmanın bakiyelerini tutuyorum.
hergün 2 3 kere benden farklı farklı bakiye toplamları isteniyor.bakması benim açımdan zor oluyor.ben bunları tek sayfada firmaların bakiyelerini nasıl görürüm arkadaşlar.
Bakiye toplamları k21 hücresindedir.
 
Merhaba,

Özet tabloyu kullana bilirsiniz.
 
Merhaba,
Mahir bey, öneride bulunmuş alternatif olarak
Bir tane yeni sayfa açınız sayfa adını BAKİYELER yazınız.
Bir yeni modül'ün içine;
Kod: 
Sub Sayfa_Isimlerini_Listele()
Dim sayfa As Worksheet
Dim i As Integer
i = 1
Sheets("BAKİYELER").Range("A:A").Clear
For Each sayfa In Worksheets
Sheets("BAKİYELER").Cells(i, 1) = sayfa.Name
i = i + 1
Next
End Sub
Yukarıdaki prosedür.Firma (sayfa) isimlerini BAKİYELER
 sayfasının A1 hücresinden başlayarak sıralayacaktır.
Bakiyeleri almak için B1 hücresine;
Kod: 
=DOLAYLI("'"&A1&"'!K21")
yazıp firma isimleri kadar aşağıya doğru sürükleyiniz.
İstediğiniz sonucu alabilirsiniz.Sayfa ismini kendinize göre ayarlayabilirsiniz.
 
Merhaba arkadaşlar,

öncelikle verdiğim rahatsızlıktan dolayı özür dilerim.

Bir ricam olacak. Ben bir işe başladım. Orada microsoft office programı kullanıyorlar. Ben de çat pat biliyorum bu programı. Firma müşteri carilerini excel de tutuyor. Benden müşteri bakiyelerini istediklerinde hemen cevap verebilmek için kendime bir tablo hazırladım ve BAKİYELer diye bir sayfa yaptım. Müşteri carisindeki bakiye'yi = kullanarak Bakiyeler sayfasına ekledim.

Benim sorunum, müşterinin carisine veri girdiğimde bakiyeler değişmiyor bir türlü..

Firmada kullandığım excel 2007 evde öğrenmek için kullandığım ise excel 2010.

Bir de ürün etkinleştirilemedi diyor. Bu ne anlama geliyor acaba?

Bana yardımcı olabilirseniz çok sevinirim.
Şimdiden hepinize çok ama çok teşekkür ederim.
 
kullandığınız excel versiyonu lisanlı değildir ayrıca hesaplatmama nedenleri ilk aklıma gelen hesaplama seçeneğinin manuel olması olabilir yada yol yanlıştı muhtemelen ayrıca yeni işiniz hayırllı olsun dedikten sonra madem işe yeni başladınız dosya ekleyin yardımcı olalım :)
 
excel41 çok teşekkür ederim ilgilendiğiniz için. Fakat buraya dosya nasıl ekleniyor.
Yeniyim o yüzden bilmiyorum. Sizlere zahmet verdiysem çok özür dilerim.
 
 
köprüleme

bzace' Alıntı:
Merhaba,
Mahir bey, öneride bulunmuş alternatif olarak
Bir tane yeni sayfa açınız sayfa adını BAKİYELER yazınız.
Bir yeni modül'ün içine;
Kod: 
Sub Sayfa_Isimlerini_Listele()
Dim sayfa As Worksheet
Dim i As Integer
i = 1
Sheets("BAKİYELER").Range("A:A").Clear
For Each sayfa In Worksheets
Sheets("BAKİYELER").Cells(i, 1) = sayfa.Name
i = i + 1
Next
End Sub
Yukarıdaki prosedür.Firma (sayfa) isimlerini BAKİYELER
 sayfasının A1 hücresinden başlayarak sıralayacaktır.
Bakiyeleri almak için B1 hücresine;
Kod: 
=DOLAYLI("'"&A1&"'!K21")
yazıp firma isimleri kadar aşağıya doğru sürükleyiniz.
İstediğiniz sonucu alabilirsiniz.Sayfa ismini kendinize göre ayarlayabilirsiniz.
Genişletmek için tıkla ...

Hocam verdiğiniz koda köprüleme gibi bir ek yapılabilir mi? Bakiyesini verdiği firma ismine tıkladığımızda o sayfaya gitmesini sağlayabilirmiyiz. Mümkünse koda öyle bir ekleme yapabilirseniz çok sevinirim benimde çok işime yarayacak. Yardımlarınız için teşekkürler.
 
Sayın Myd33,
Firma isimlerinizi yazdığınız sayfanın kod bölümünü;
Kod: 
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A" & Rows.Count)) Is Nothing Then Exit Sub
Sheets(Target.Text).Select
End Sub
Yada C1 hücresine;
Kod: 
=KÖPRÜ("[[COLOR="Red"][B]sayfa adını yazınız[/B][/COLOR].xlsm]"&A1&"!A1";"Firma Bakiyesi")
Not:Sayfa ismini ve dosya yolunu çalışma kitabına uygun olması lazım aksi halde fonksiyon ile verilmiş örnek de çalışmaz.
 
Çok sağol dostum.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst