Grup, Altgrup, Detay Hesap

[meslan]

Muhterem ve Saygı değer Hocalarım sorum ekte. İlgilerinize Teşekkür eder Saygılarımı arz ederim.

 

[Necdet]

Siz tam olarak ne istiyorsunuz?

 

[meslan]

Sn. Nejdet bey; A sutununa mesala önce 191 01 girin 191 Bir üst grup Hs oluşturulmamış. mesajı verecek 191 yazdıktan sonra 191 01 yazılmasına izin verecek. buraya kadar yapabildim. Ama 191 01 yazmadan 191 01 01 yazmasın aynı mesajı versin. İlginize Teşekkür ederim.

 

[Necdet]

Merhaba,

Nedense Necdet hep Nejdet olarak yazılıyor Yanlış yazım.

Siz muhasebe için hesap planı mı oluşturmaya çalışıyorsunuz?

 

[meslan]

Afedersin Hocam. Dikkatsizlik işte . Evet aynen öyle. A sutununda bir iki giriş yaparak denerseniz sanırım daha iyi anlayacaksınız. Mazur görün her insan derdini anlatamıyor. Saygılar

 

[Necdet]

Merhaba,

Bir dosya göndersem ve onu inceleseniz, A sütununda herhangi bir yere çift tıklasanız, bir baksanız, sonra yine konuşsak nasıl olur?

 

[meslan]

Sn. Hocam zaman ayırıp emek verdiniz. Yaptığınız çok güzel. Eline sağlık. Fakat benim yapmak istediğim bu şekilde değil Hesaplar ihtiyaç duyuldukça açılacak. Dediğim gibi bir üst grup açılmadan detay hesap açılmasını engelleyeceğiz. Ben sadece birinci aşamasını yapabildim. Şunu söyleyim çok da önemli değil.Olmasa da olur. Zaman ayırıp emek verdin. Hakkını helal et lütfen. Saygılar.

 

[Necdet]

Merhaba,

Tam olarak çalışıp çalışmadığını kontrol edemedim. İnceler misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Select Case Len(Target)
    Case 3
    Case 1 To 2, 4, 5, 7 To 9
            MsgBox "Hatalı Hesap Kodu"
            Target.Offset(0, 0).Select
            Target = ""
            Exit Sub
    Case 6, 10
            If Len(Target) = 6 Then
                BirEksik = Left(Target, 4) & Format(Right(Target, 2) + 0 - 1, "00")
            Else
                BirEksik = Left(Target, 8) & Format(Right(Target, 3) + 0 - 1, "00")
            End If
            Var = 0
            Var = Sheets(1).[A:A].Find(BirEksik).Row
            If Var = 0 Then
                MsgBox BirEksik & " Nolu Hesabı Açmadan " & Target & " Hesabı Açmaya Çalışıyon Yav Alla Alla"
                Target.Offset(0, 0).Select
                Target = ""
                Exit Sub
            End If
'            Var = 0
'            Var = Sheets(1).[A:A].Find(Target).Row
'            If Var <> Target.Row Then
'                MsgBox Target & " Hesabını Daha Önce Kullandınız"
'                Target.Offset(0, 0).Select
'                Target = ""
'                Exit Sub
'            End If
    Case 10
End Select
Son:
End Sub

 

[meslan]

Sn. Necdet Bey malesef çalışmıyor. Beni mahcup ettin. önemli değil uğraşma lütfen. Ben bunlardan faydalanarak yapmaya çalışırım. İlgilendiğin için çok çok teşekkür ederim. Çalışma hayatında başarılar diliyorum. Saygılar

 

[Necdet]

Merhaba,

Çalışmayan nedir? ben denemeler yapmıştım çalışıyordu.

Hesap kodlarını düzgün girmek gerek, alt hesabı 2 detayı 3 uzunlukta düşündüm, size göre nasıl bu uzunluklar?

 

[meslan]

Sadece 3 rakamlık giriş yapılabiyor. Diğerleri yaıpalamıyor. Ama sizi daha fazla yormaya gönlüm razı değil. Saygılar.

 

[Necdet]

Merhaba,

Var mı öyle hemen pes etmek?
Muhasebeci olmadığımız için tüm olasılıkları görmek biraz zorlaşıyor tabi. Sorun son kırılmadaki rakamın 1 olmasından kaynaklanıyordu. Yani :

102 01 girildiğinde birönceki hesap kodunu 102 00 olarak kontrol ediyormuşum böyle durumda 102 var mı diye bakmak gerekiyordu.

Tabi siz çalışmıyor diyeceğize şurda çalışmıyor deseydiniz çözüme daha çabuk ulaşırdık.

 

[meslan]

Merhaba

Sn. Hocam Dosya üzerinde açıklamalar yaparak tekrar gönderiyorum.

 

[Necdet]

Merhaba,

Sanırım bu sefer doğru anlamışımdır. Anladığım şu :
"Bir hesap açıldığında, sırayla hesap açma değil, önemli olan üst hesabın olup olmadığıdır", doğru mu?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Değer = Split(Target, " ")
Select Case UBound(Değer)
    Case 0
    Case 1: Kontrol = Değer(0)
    Case 2: Kontrol = Değer(0) & " " & Format(Değer(1), "00")
End Select
Varmi = 0
Varmi = Application.WorksheetFunction.CountIf([A:A], Kontrol)
If Varmi = 0 Then
    MsgBox "Bir Üst Hesap " & Kontrol & " Açılmamış..."
    Target.Offset(0, 0).Select
    Target = ""
    Exit Sub
End If
Son:
End Sub

 

[meslan]

Hocam Merhaba

Evet Necdet Bey anladığınız doğru. Ama şu anda kayıtlı kodların devamını yazdığımda işlem tamam. 3 rakamlı yeni bir kod yazamıyorum. dolayısıyle o kodun devamınıda. Tam istediğim gibi olmasada ben bunu hallettim. dosyam ekte. Teşekkür ve saygılarımı arz ederim. Hayırlı geceler.

 

[Necdet]

Sayın Mehmet ARSLAN,

Benim bildiğim (-ki yıllarca tek düzen muhasebe programı yazdım) bir standart var(d&#305

Kaç kırılma varsa kırılma hesapları belli uzunluktaydı, bende o mantığı kullandım, çünkü öyle bildiğim için.

Yani 120.01.0001 gibi bir hesap kodu 120.001.01 olamaz gibi.

Bu yüzden ben bu mantığı kurarken Ana-Tali-Alt Tali olarak ve xxx xx xxx olarak düşündüm.

Yani 3-2-3 şeklinde olması gerekir.
eğer 3 kırılmalıysa bu şekilde düşündüm, yok eğer 4 kırılmalıysa yani xxx xx xx xxx diye düşünürseniz mantığı ona göre kurarız. Nasıl olsa sorunu anladık değil mi?
Düşüncelerim bunlar yanlış mı düşünüyorum?

 

[meslan]

Evet Tek düzen hs pln. ilk kodlar 3 dür. 100 , 101, 120 gibi bazı prg. larda . lı kırılımlar var bazılarında boşluklu ben genel de boşluklu olanlardan kullandım GMSS, LKS2 . Dediğin gibi birinci kırlımdan sonra genel 2 rakam vardır ama bu şart değildir. Bu tamamen kullanıcıya bağlıdır. Kırılım sayısı da sınırsız istediğiniz kadar kırılım yapabilirsiniz. Bu sebeble bütün ihtimallere cevap verebilsin diye böyle yapmaya çalıştım. Muhasebe Proğramları bu özelliği yapabiliyorsa excel neden yapamasın. Eğer dosyamı incelediyseniz sonuca ulaştım sayılır. Ben öyle yerlerde çalıştım ki adamların muhasebe proğramı yok. Hesaplar 150 belkide 300 excel kitabıyla tutulmuş. Bu sebeble excelde bir muh. prg. yapmak zorunda kaldım. Tekrar teşekkür eder hayırlı geceler dilerim.

 

[Necdet]

Sanırım sizinle anlaşmak olası değil. Nedenine gelince : önce kod planında anlaşmak gerekir, eğer anlaşılmazsa xl de bunu yapmak zordur.

Yani excelde xxx xx (101 01) kod ile xxx xxx (101 001) farklıdır, aynı değere sahip değildir.

Diğer yazılımlarda ise kodların ayrı excel hücrelerinde tutulması gibidir gösterimi 001 yada 000001 olabilir ama değer 1 ve 1 dir, bu yüzden diğer programlarda yapmak nispeten kolaydır, çünkü adam 1 ve 1 var mı diye bakıyor oysa excelde 1 1 ile 001 001 yada 01 01 yada 1 001 farklı değerlerdir.

Muhasabe programlarında kırılma sayısı her müşteriye göre değişir ama bu önceden belirlenir, 3 kırılma ise 3 kırılma vardır en fazla, 4 kırılma varsa 4 kırılma vardır. Mantık ta buna göre kurulur.

Anlatabildim mi bilemiyorum artık.

 

[meslan]

Sn. Hocam sizinle güzel anlaştık. ve de sonuca ulaştık. Ayrıca size özür borcum var. 3 rakam bile yazmıyor demiştim ya 3 rakamdan sonra boşluk verince kabul ediyor ve devamı mükemmel. bunun da daha yeni farkına vardım. Yani maksat hasıl olmuştur. Ellerine sağlık. Başarılarının devamını diliyorum. Bu gün sizi çok yordum. Sizi üzdüysem kırdıysam özür diliyorum. Hakkınızı helal edin. Allah Rahatlık versin.

 

[Necdet]

Bu sitede kırmak üzmek söz konusu olabilir mi?
İyi geceler.