Taşeron Kapı girişleri Carileştirme

[kilavuz1]

İyi günler,

Kapı girişten evrak düzenlenip tahsilat yaptığım bir tablom var,
Carileştirmek istiyorum.

Yardımcı olabilirmiyiz?

 

[asi_kral]

Merhaba
Veri girişlerini nereden yapacaksınız_?
Kaç tane Cari kart olacak. Ayrıca hangi veriler alınacak nasıl hesap yapılacak hiç örnek vermemişsiniz_?
Dosya içinde bir firmayı ayarlayın ve nasıl yaptığınızı açıklama şekilde anlatın yardımcı olmaya çalışayım.

 

[YUSUF44]

Altttoplam için D1548 hücresine aşağıdaki formülü yazın:

=ALTTOPLAM(9;D194:D1547)

 

[kilavuz1]

Günaydın,
Veri girişlerini, yani gelen taşeronun kapı giriş kaydını güvenlik+önbüro sayfasından yapacağım.
3 kalem toplam olmasını istiyorum. Kişi Toplam -Tl toplam ve Euro toplam.

Misal Aldo marin diye açmış olacağım çalışma sayfasına, güvenlik+önbüro'da yazdığım girişler otomatik aktarılsın istiyorum.

Şu anda 171 tane carim var ama 20-30 tane daha artabilir.

Yusuf44, yazmış olduğun formül tam aradığım formüldü. Çok teşekkür ederim.
Az daha geliştirdik mi herşey tamamdır.

Teşekkürler.

 

[asi_kral]

Peki biz bu adları nereden bileceğiz nasıl açacağız yoksa siz manuel mi açacaksınız_?
Sayfa Adları ile Cari adı bire bir aynı olsa farkeder mi_?

 

[kilavuz1]

Kitapçığın içinde Cari adları diye bir sayfa bulunmakta.
Sayfa adı ile cari adının aynı olmasının yada farklı olmasının benim için bir sakıncası yok.

 

[asi_kral]

Kitapçığın içinde Cari adları diye bir sayfa bulunmakta.
Sayfa adı ile cari adının aynı olmasının yada farklı olmasının benim için bir sakıncası yok.

Merhaba
Kitabınızın Kod bölümünde bulunan Thisworkbook bölümüne

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Konu       :   Seçtiğim Sayfanın Varisini Aktar
'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, _
a As Long, b As Variant
If ActiveSheet.Name <> "CARİ ADLARI" And ActiveSheet.Name <> "GÜVENLİK+ÖNBÜRO" Then
Set asi = Sheets("GÜVENLİK+ÖNBÜRO")
Application.ScreenUpdating = False
Range("A2:F" & Rows.Count).ClearContents
b = ActiveCell.Address
kral = asi.Range("A" & Rows.Count).End(xlUp).Row
asi.Range("A194:H" & kral).AutoFilter field:=3, Criteria1:=ActiveSheet.Name
If WorksheetFunction.Subtotal(3, asi.Range("A194:A" & kral)) > 0 Then
asi.Range("A195:E" & kral).Copy
Range("A2").PasteSpecial (xlPasteValues)
asi.Range("H195:H" & kral).Copy
Range("F2").PasteSpecial (xlPasteValues)
End If
asi.Range("A194:H" & kral).AutoFilter
Range(b).Select
a = Range("A" & Rows.Count).End(xlUp).Row
Cells(a + 4, "D") = WorksheetFunction.Sum(Range("D2:D" & a))
Cells(a + 4, "E") = WorksheetFunction.Sum(Range("E2:E" & a))
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End If
End Sub

Bu Kodu kopyalayın ve deneyin.
Dosyanız Ekte.

 

[kilavuz1]

Bu hayli işime yaradı.
Çok teşekkür ederim.

 

[asi_kral]

Bu hayli işime yaradı.
Çok teşekkür ederim.

Kolay Gelsin.

 

[kilavuz1]

Şu anda herbirine cari sayfası açmaktayım,
Yanlız şöyle bir sorun ortaya çıkabilir.
Taşeron adını Ali Veli diye kaydettiğimde, Ali Veli'ye atıyor.
Ali Veli değilde Ali vli diye kayıt yazılarsa hesap açıkta kalacak. Bunu nasıl engelleyebilirim.
Sadece tanımlanmış isimleri girebilir, tanımlanmadan isim girmeye çalışıldığında hata verir bir düzenek kurulabilir mi?

 

[HASAN40]

Merhaba,
Veri doğrulama kullanabilirsiniz.

 

[kilavuz1]

Veri doğrulamayı çalıştıramadım.
Güvenlik+Önbüro dosyasında c sütununa üstteki liste dışında isim girilemesin istiyorum.
Ali Veli varsa üstte, ali vli yazılamasın.

Sonrasında da, carilerin hepsinin isminin olduğu liste ve köprü ekleyebilirsem herşey çok güzel olacak.