Cari isimlerini 2, sayfada toplayıp aktarma lütfen yardım

[dj_ceyce]

slm ben işletmem için excel kulanıyorum ama saatlerce uğraşmamak için sizlerden yardım istiyorum 1 sayfadaki kişileri 2, sayfadaki cari hareketleri bölümüne taşımak istiyorum yusuf arkadaşımız bana yardımcı oldu ama sadece toplam ödemeler falan taşınıyor ben yeni müşteriyi ilk sayfaya eklediğimde 2,ci sayfayada oyomatik eklenmesini istiyorum örnekteki gibi teşekürler şimdiden sadece cari isimlerini toplayım atsa yeterli ücretleri zaten atıyor

 

[asi_kral]

slm ben işletmem için excel kulanıyorum ama saatlerce uğraşmamak için sizlerden yardım istiyorum 1 sayfadaki kişileri 2, sayfadaki cari hareketleri bölümüne taşımak istiyorum yusuf arkadaşımız bana yardımcı oldu ama sadece toplam ödemeler falan taşınıyor ben yeni müşteriyi ilk sayfaya eklediğimde 2,ci sayfayada oyomatik eklenmesini istiyorum örnekteki gibi teşekürler şimdiden sadece cari isimlerini toplayım atsa yeterli ücretleri zaten atıyor

Merhaba
Sayfada bulunan kodu bununla değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
'Konu       :   Listede Olmayanı Ekle
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As Long
Set asi = Sheets("CARİ HAREKETLERİ")
If Intersect(Target, Range("B6:B" & Rows.Count)) Is Nothing Then Exit Sub
Cells(Target.Row, "C") = Date
If WorksheetFunction.CountIf(asi.Range("B2:B" & Target.Row), Target) < 1 Then
kral = asi.Range("B" & Rows.Count).End(xlUp).Row + 1
asi.Range("B" & kral) = Target
End If
End Sub

Dosyanız Ekte.

 

[dj_ceyce]

çok teşekkürler ciden süper oldu bu artık tektek uğrasmicam saolun iyi çalışmalar

 

[asi_kral]

çok teşekkürler ciden süper oldu bu artık tektek uğrasmicam saolun iyi çalışmalar

Kolay Gelsin.

 

[dj_ceyce]

cari hesap

tekrar merhaba kusura bakmayın sizi rahatsız ediyorum yardımınız için çok teşekürler benim bir sorunum daha var size yolicağım dosyadaki belgeyide aynı şekilde düzenleye bilirmiyiz rica etsem tüm ayların toplamını sonda cari sayfasına toplayarak atsa iyi olur ilk yolamış olduğunuz dosyadaki gibi şimdiden teşekürler iyi çalışmalar

Kolay Gelsin.

 

[asi_kral]

tekrar merhaba kusura bakmayın sizi rahatsız ediyorum yardımınız için çok teşekürler benim bir sorunum daha var size yolicağım dosyadaki belgeyide aynı şekilde düzenleye bilirmiyiz rica etsem tüm ayların toplamını sonda cari sayfasına toplayarak atsa iyi olur ilk yolamış olduğunuz dosyadaki gibi şimdiden teşekürler iyi çalışmalar

Merhaba
Konuyu dün güncellemişsiniz ama ben yeni gördüm
Kitabınızın Kod bölümünde bulunan Thisworkbook'a

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Konu       :   Aylara Yazılanları Cariye Aktar
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
If ActiveSheet.Name <> "YAZICI" And ActiveSheet.Name <> "CARİ HAREKETLERİ" _
And ActiveSheet.Name <> "GİDER" Then
Dim asi As Worksheet, a As Long, b As Long, kral As Long
Dim s1 As Worksheet, c As Long
Application.EnableEvents = False
If Intersect(Target, Range("B6:G" & Rows.Count)) Is Nothing Then Exit Sub
d = Target.Row
getir_1967
Application.EnableEvents = True
End If
End Sub

Bu kodu
Boş bir module'de bu kodu kopyalayın ve deneyin.

Option Explicit
Global d As Long
Sub getir_1967()
'Konu       :   Aylara Yazılanları Cariye Aktar
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, a As Long, b As Long, kral As Long
Dim s1 As Worksheet, c As Long
Set asi = Sheets("CARİ HAREKETLERİ")
If WorksheetFunction.CountIf(asi.Range("B:B"), Cells(d, "B")) = 0 Then
kral = asi.Range("B" & Rows.Count).End(xlUp).Row + 1
For c = 1 To Sheets.Count
Set s1 = Sheets(c)
If s1.Name <> "YAZICI" And s1.Name <> "CARİ HAREKETLERİ" And s1.Name <> "GİDER" Then
a = a + WorksheetFunction.SumIf(s1.Range("B:B"), Cells(d, "B"), s1.Range("F:F"))
b = b + WorksheetFunction.SumIf(s1.Range("B:B"), Cells(d, "B"), s1.Range("G:G"))
End If
Next
asi.Range("B" & kral) = Cells(d, "B"): asi.Range("C" & kral) = a
asi.Range("D" & kral) = b: asi.Range("A" & kral) = Cells(d, "A")
Else
kral = WorksheetFunction.Match(Cells(d, "B"), asi.Range("B:B"), 0)
For c = 1 To Sheets.Count
Set s1 = Sheets(c)
If s1.Name <> "YAZICI" And s1.Name <> "CARİ HAREKETLERİ" And s1.Name <> "GİDER" Then
a = a + WorksheetFunction.SumIf(s1.Range("B:B"), Cells(d, "B"), s1.Range("F:F"))
b = b + WorksheetFunction.SumIf(s1.Range("B:B"), Cells(d, "B"), s1.Range("G:G"))
End If
Next
asi.Range("B" & kral) = Cells(d, "B"): asi.Range("C" & kral) = a
asi.Range("D" & kral) = b: asi.Range("A" & kral) = Cells(d, "A")
End If
End Sub

Dosyanız Ekte.

 

[dj_ceyce]

Ilginiz için çok teşekür ederim elinize sağlık süper olmuş

 

[asi_kral]

Ilginiz için çok teşekür ederim elinize sağlık süper olmuş

Kolay Gelsin.