Mızan Muavin karşılaştırma

[RALKAN]

Arkadaşlar merhaba ,

Ek'te örnek dosyada görüleceği üzere mizan muavin hesapların kontrolünü yapıyoruz .

Ek'te ki örnek te kullandığım formüllerin çalışması data büyüdükçe imkansızlaşmaya bilgisayarı kitlemeye başladığından formüllerin koda dönüştürülmesi konusunda yardımlarınızı rica ediyorum. Detay açıklamalar Açıklama sayfasında belirtilmiştir.

Teşekkürler

Not : Dosyanın orjinali excel 2007 'de kullanılmaktadır.

 

[halit3]

Arkadaşlar merhaba ,

Ek'te örnek dosyada görüleceği üzere mizan muavin hesapların kontrolünü yapıyoruz .

Ek'te ki örnek te kullandığım formüllerin çalışması data büyüdükçe imkansızlaşmaya bilgisayarı kitlemeye başladığından formüllerin koda dönüştürülmesi konusunda yardımlarınızı rica ediyorum. Detay açıklamalar Açıklama sayfasında belirtilmiştir.

Teşekkürler

Not : Dosyanın orjinali excel 2007 'de kullanılmaktadır.

anladığım kadarıyla yapmaya çalıştım
dosyan ekde

 

[RALKAN]

anladığım kadarıyla yapmaya çalıştım
dosyan ekde

Sayın halit3 merhaba,

Anladığım kadarıyla ne demek ilk kontrolümde mükemmel çalışıyor . Excel 200'de ki gerçek dosyaya uyguladığımda da çalışacağından eminim ek sorular ve geliştirme konusunda da yardımlarınızı rica edeceğim .

Çok teşekkürler , iyi akşamlar

 

[RALKAN]

Halit hocam merhaba ,

Aşağıda örneklerini verdiğim bazı alt hesapların uzunluğu "6" dan büyük değil bu tür olan hesaplara "x" işareti atılmamış oluyor.

Yeri Hesap Kodu UZN ALT KOD
Merkez 741.01 6
Merkez 761.01 6
Merkez 771.01 6
Merkez 781.01 6

Bu konuda ne yapılabilinir kontrol edebilirmisiniz.

Not : Eklediğim dosyada ki formül bu işlemi yapıyordu ,formülledeki mantık koda çevrilebilinir mi?

 

[halit3]

Halit hocam merhaba ,

Aşağıda örneklerini verdiğim bazı alt hesapların uzunluğu "6" dan büyük değil bu tür olan hesaplara "x" işareti atılmamış oluyor.

Yeri Hesap Kodu UZN ALT KOD
Merkez 741.01 6
Merkez 761.01 6
Merkez 771.01 6
Merkez 781.01 6

Bu konuda ne yapılabilinir kontrol edebilirmisiniz.

Not : Eklediğim dosyada ki formül bu işlemi yapıyordu ,formülledeki mantık koda çevrilebilinir mi?

işte burayı anlıyamadım bunların alt hesapları yokmu

 

[RALKAN]

işte burayı anlıyamadım bunların alt hesapları yokmu

Sayın Halit hocam ,

Bunlar alt hesap bir nevi muavin hesap,

740
760
770
780 vs bunlar üst hesaplar , hesap planı tanımlanırken hesap uzunlukları belirli bir kurala göre açılmamış bu nedenle 6 - 9 veya 12 gibi uzunluklarda alt hesaplar açılmıştır.
Formül kendinden bir öncekine ve bir sonraki bakarak "x" atıyor. Bir nevi başlangıç ana hesap diyelimki aşağı da ki gibi olsun.

740 Ana Hesap
740.01 Alt hesap
740.01.001 Muavin hesap (Bu tip olanlar sizin yaptığınızda doğru bir şekilde çalışıyor.

741 Ana hesap
741.01 alt hesap veya muavin hesap yani 6 digit uzunluğunda ki hesap üste ki hesabın alt hesabı olduğundan "X" atılması gerekir.

Umarım açıklayıcı olmuştur.

 

[halit3]

k.mizan sayfasındaki kodu bununla değiştir bir dene

Private Sub CommandButton1_Click()
Worksheets(ActiveSheet.Name).Range("L3:M65000").ClearContents
For i = 3 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("B3:B65000")) + 2
Worksheets(ActiveSheet.Name).Cells(i, 12).Value = Len(Worksheets(ActiveSheet.Name).Cells(i, 2).Value)
If Len(Worksheets(ActiveSheet.Name).Cells(i, 2).Value) > 6 Then
Worksheets(ActiveSheet.Name).Cells(i, 13).Value = "X"
End If
If Len(Worksheets(ActiveSheet.Name).Cells(i - 2, 2).Value) = 6 And Len(Worksheets(ActiveSheet.Name).Cells(i - 1, 2).Value) = 6 Then
Worksheets(ActiveSheet.Name).Cells(i, 13).Value = "X"
End If
Next i
End Sub

 

[RALKAN]

k.mizan sayfasındaki kodu bununla değiştir bir dene

Halit hocam ,

Kod aşağıdaki kod satırında kalıyor devam etmiyor.

For i = 3 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Na me).Range("B3:B65000")) + 2

 

[halit3]

Na me yazısının arasındaki boşluğu al Name olarak yap

 

[halit3]

birde bunu denermisin
dosya aşağıdaki mesajda

 

[RALKAN]

birde bunu denermisin

Halit Hocam ,

Alt hesap uzunluğu 6'da kalan daha önce belirttiğim hesaplara yine "x" atmıyor

 

[halit3]

yukarıdaki kodu yeniden düzenledim
hemsini atıyor

 

[halit3]

dosyanı yeniden gönderiyorum

dosya aşağıdaki mesajda

 

[RALKAN]

dosyanı yeniden gönderiyorum

Halit Hocam ,

Kod sorunsuz olarak çalıştı.

Teşekkür ederim iyi akşamlar

 

[halit3]

iyi akşamlar

 

[RALKAN]

dosyanı yeniden gönderiyorum

Halit Hocam merhaba ,

Tekrar rahatsız ediyorum kusuruma bakmayın kodları ana dosyaya uyarlağımıda
K_Muavin sayfasında aşağıda ki kodu çalıştırdığımda K_Mızan sayfasında ki hatanın aynısı oluştu.
Alt hesap uzunluğu 6'ta biten hesaplarda "x" işareti gelmiyor.

Private Sub CommandButton1_Click()
Worksheets(ActiveSheet.Name).Range("O2:O92198").ClearContents
For i = 3 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("C3:C92198")) + 2
If Len(Worksheets(ActiveSheet.Name).Cells(i, 3).Value) > 6 Then
Worksheets(ActiveSheet.Name).Cells(i, 15).Value = "X"
End If
Next i

End Sub

 

[halit3]

bu uygulamaya ait yeni verili örnek dosyanı ekle bir bakalım bendekinde sıkıntı görükmüyor

 

[halit3]

O sutununda makro var q sutununda ise formülün var bir kontrol et

 

[RALKAN]

O sutununda makro var q sutununda ise formülün var bir kontrol et

Halit Hocam ,

Esas dosyaya son gönderdiğiniz örnekteki kodları uyarladım fakat uzun bir süredir çalışıyor henüz bitmedi.

Veri satır sayısı 92198 bu sayı nedeniyle olabilirmi ?

Yukarda ki nedenlerden dolayı sonucu şu an için kontrol edemedim.

 

[halit3]

veri satırı bu kadar uzunmu