tek sayfada girilen veriler diğer sayfalara dagılabilirmi?

[canerrrrrr]

sayın üstadlarımm ...

en az 10 adet takip etmem gereken banka hesapları var , bunlardan sürekli giriş ve cıkıslar yapılması gerekio ve ayrıca aralarında transfer yapmak gerekio .. ve ekstre gerektiği için hepsini ayrı bir sayfa acıcam.. ...

sizlerden istediğin bir sayfaya giriş yapimm ; o sayfada girilen veri hangi bankaya ait ise 10 sayfanın içindeki verilere eklensinn ...

bana tek satır için bile bişe hazırlasanız ben onu diğer satırlara dahdahil edebilirimm ; elimden geleni yaparım yani yardımlarınızı bekli,orumm cok sıkıstımm arkadaslar...

şimdiden emeğinizi sağlık i çalışmalar...

 

[hhaseken]

Tarih giriş çıkış gibi istediğin başlıkları yazman veya ekli bir dosya göndermen ile gerekli yardımlar gelir diye umuyorum

 

[Orion1]

Sizin sorunuz sarı çizmeli Mehmet ağa misali gibi olmuş.
Cevap alabilirseniz ne ala.

 

[canerrrrrr]

dosya ektedir.

haklısınuız arkadaslar umarım şimdi daha i anlatabilşmişimdir derdimii
kolay gelsinnn

 

[Necdet]

Merhaba,

GENEL sayfasında H sütünunda ilgili satıra çift tıkladığınızda verilerin aktarımı gerçekleşir.
Umarım soruyu doğru anlamışımdır.

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Intersect(Target, [H:H]) Is Nothing Then Exit Sub
If Target.Value = "Aktarıldı" Then Exit Sub
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim SyfAdı As Variant
Dim Transfer As Variant
Dim Satır As Long
Dim Sat As Long
SyfAdı = Range("C" & Target.Row)
Set s1 = Sheets(SyfAdı)
Satır = s1.[A65536].End(3).Row + 1
s1.Cells(Satır, "A") = Cells(Target.Row, "A")
s1.Cells(Satır, "B") = Cells(Target.Row, "B")
If Cells(Target.Row, "E") <> "" Then
    s1.Cells(Satır, "C") = Cells(Target.Row, "E")
ElseIf Cells(Target.Row, "F") <> "" Then
    s1.Cells(Satır, "D") = Cells(Target.Row, "F")
Else
    s1.Cells(Satır, "D") = Cells(Target.Row, "G")
    Transfer = Range("D" & Target.Row)
    Set s2 = Sheets(Transfer)
    Sat = s2.[A65536].End(3).Row + 1
 
    s2.Cells(Sat, "A") = Cells(Target.Row, "A")
    s2.Cells(Sat, "B") = Cells(Target.Row, "B") & " (" & Cells(Target.Row, "C") & ")"
    s2.Cells(Sat, "C") = Cells(Target.Row, "G")
    s2.Cells(Sat, "E") = Application.WorksheetFunction.Sum(s2.Range("C2:C" & Sat)) - _
                         Application.WorksheetFunction.Sum(s2.Range("D2:D" & Sat))
End If
s1.Cells(Satır, "E") = Application.WorksheetFunction.Sum(s1.Range("C2:C" & Satır)) - _
                       Application.WorksheetFunction.Sum(s1.Range("D2:D" & Satır))
Target.Value = "Aktarıldı"
Exit Sub
Son:
MsgBox Range("C" & Target.Row) & " Sayfası Bulunamadı"
End Sub

 

[canerrrrrr]

evet necdet bey beni cok i anlamıssınız... fakat ben sizin anlaya bilmeniz içinn bütün hesapları tek sayfa olarak gösterdimm ... ben her hesabı ayrı bir excel dosyasında tutmak istiorumm ... bunun için nasıl bi işlem gerekir.. bana tarif edebilirmisiniz?..

 

[Necdet]

Merhaba caner bey,

Ayrı dosya olunca işler baya uzuyor, bende o konuda pek etkin değilim, umarım bir arkadaşımız size yardımcı olur.

 

[canerrrrrr]

annadım .... genede cok teşekkür ederimm .... içine girdiğim cıkamadıgım ama zor olmadıgına emin oldugum bir mevzuyla karsı karsıyayımm ... sizin gibi uzman bir arkadasa ihtiyacım var... herhangi bir email adresiniz varsa bir teklif sunucamm .. ?