excel de Köprü KOPYALAMA...!!!

[emre.special]

Merhaba Arkadaşlar Ben excelde Şirketimin banka bakiyelerini gösteren bir tablo oluşturacağım her günü tek tek gösteren bi tablo bu ve ana sayfada tarih listesi olacak bu tarihe tıkladığımda bağladığım köprüye gidicek ama 365 adet tek tek köprüyü bağlamak zor olucak sizin bi kolaylık sunabileceğiniz bir çözüm bir kısayol varmı acaba???

 

[emre.special]

abi kimse bilmiyomu yoksa yok diin de ona göre işlem yapiim yaf

 

[ersoyalan]

Merhaba,

Ekli dosya işinizi görürmü

E.ALAN

 

[emre.special]

abi tam olarak bunu anlamadım ama ekte gönderdiğim dosyada listede tarihler var tarihe tıklayınca direk beni ilgili sayfaya göndericek aynı zamanda bağ yapıştır da yapıcak hafta sonlarını dikkate ben ilgili güne banka bakiyelerini yazıcam aynı zamanda anasayfada her şeyi görebileceğim öyle birşey ekte gönderiyorum eğer yardımcı olursanız çok sevinirim

 

[ersoyalan]

ekte dosya yok.

 

[emre.special]

pardon açıklamaları yazdım üzerlerinde teşekkürler

 

[Necdet]

Merhaba.

Aşağıdaki kodlar ANASAYFA'nın kod bölümünde olmalı.

C sütununda çift tıklandığında ilgili sayfaya geçer, sayfa yoksa da açar.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If Target.Row < 5 Then Exit Sub
If IsDate(Target.Value) = False Then Exit Sub
Dim Sayfa As String
Sayfa = Target.Value
    If Not SayfaVarMi(Sayfa) Then
        Sheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Sayfa
    Else
        Sheets(Sayfa).Select
    End If
Son:
End Sub

Function SayfaVarMi(SayfaAdi As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

 

[Necdet]

Tekrar merhaba,

Dosyanızı ekteki şekilde düzenlerseniz, gereksiz hesaplamalardan kaçınmış olursunuz. Dolayısıyla exceli de zorlamamış olursunuz.

B sütununun Biçimini inceleyiniz.

 

[emre.special]

eyw abicim valla süpersin bir sorum daha var bağlandığım sayfada bazı veriler var o günün karşısına bağ yapıştır yapacağım bunun kısayolu varmı ??

 

[Necdet]

Merhaba,

Sadece ilgili sayfaya gitmenin pek bir anlamı olmadığını , mutlaka birşeylerin de kopyalanması gerektiğini düşündüm ama sorunuzda bununla ilgili bir açıklama olmadığı için sorunuz çerçevesi içinde kaldım.

Örnekle açıklarsanız belki ilgili sayfaya gitmeye de gerek kalmaz ve otomatik olarak ilgili sayfalara veriler aktarılabilir.

 

[emre.special]

ya şimdi bizim şirketin bir bankada 3 tane ytl 3 tane euro 3 tanede usd hesabı var ben şimdi bunları bir anasayfa kısmında toplamda ne kadar olabileceğini göreceğim tarihe tıkladığımda bankaların verilerini girebileceğim. tıkladığım yerdeki verileri girince ise anasayfada ilgili tarihe toplam ytl toplam usd euro vs vs gösteren bir tablo yapmaya çalışıyorum
bu arada dosyayı kapatıp açınca neden tekrar yapmıyo bu köprü olayını ??

 

[emre.special]

bana yardımcı olabilecek kimse yok mu ?

 

[Necdet]

Merhaba.

Yapmaya çalıştığınız şey bana pek mantıklı gelmedi. Veri girmek ve izlemek çok daha zor olur. Bunun yerine Excellin ÖZET TABLO özelliğini kullanmayı öneririm.

Özet tablonun kullanacağı veri aralığını Alan olarak tanımladım ve Dinamik Alan olarak kullandım.

Özet tabloyu Sayın Yurttaş'ın dersanemizde yayınladığı makalesinden öğrenebilirsiniz.

Örnek dosyada 3 adet Kod var, biri dosya açıldığında Ana Sayfa da B1 hücresine günün tarihini yazıyor (This WorkBook), diğeri ise Özet sayfasının yani Özet Tablo'nun olduğu sayfa aktif hale geldiğinde çalışan, Özet tabloyu yenileyen kod.

Kısaca Özet Tablo'ya hakim olursanız işiniz çok ama pek çok azalır.

ThisWorkbook taki Kodlar

Private Sub Workbook_Open()
Sheets("Ana Sayfa").Select
[B1] = Date
End Sub

Özet Sayfasındaki Kodlar

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Özet Tablo 1").PivotCache.Refresh
End Sub

Modüldeki Aktarma Kodları

Sub Aktar()
Dim i As Integer
Dim j As Long
Set sa = Sheets("Ana Sayfa")
Set sv = Sheets("Veri")
sa.Select
For i = 3 To [A65536].End(3).Row
    If Cells(i, "A") <> "Toplam" Then
        j = sv.[A65536].End(3).Row + 1
        sv.Cells(j, "A") = Cells(i, "A")
        sv.Cells(j, "B") = [B1]
        sv.Cells(j, "C") = Cells(i, "B")
        sv.Cells(j, "D") = Cells(i, "C")
        sv.Cells(j, "E") = Cells(i, "D")
    End If
Next i
Range("B3:D" & [A1000].End(3).Row - 1).ClearContents
End Sub

Alan tanımı

[FONT=Calibri][COLOR=black][COLOR=black][FONT=Calibri][FONT=Verdana]=KAYDIR(Veri!$A$1;0;0;BAĞ_DEĞ_DOLU_SAY(Veri!$A:$A);BAĞ_DEĞ_DOLU_SAY(Veri!$1:$1))[/FONT][/FONT][/COLOR]
[/COLOR][/FONT]

 

[Necdet]

Önerimiz işe yaramadı galiba

 

[fatih198605]

Necdet bey.

Ustam bu banka için yaptığın hesap özeti tablosunu pastanemdeki ürün satışına uyarlamak için bana yardımcı olurmusun?ürünler kısmına sürekli ürün eklenecek ve günlük bu ürünlerin satışları girilecek ve ben bunu heray için ayrı dosyalarda yapacam.bankalara yaptığınız örnekteki gibi diğer sayfadada ürün bazında satışları görmek istiyorum.yardımcı olursanız sevinirim.

 

[fatih198605]

yardım yok mu ustalar