Hata denetimi sayıya çevirme işlemi

[silveraxe]

Selamlar Foruma yeni üye oldum, Herkese yardımları için şimdiden teşekkür ederim.. Saygılarımla.


benim sorunum şu;

Muhasebeci olanlar bilir, Hesap planında 100 ana hesaptır bu böyle 100 le başlar 900le biter, fakat bunların birde alt hesapları var örnek olarak
100
100.01
100.01.001
120
120.01
120.01.001

şekilde, ben süz yaptığımda sadece 100 ve 120,900 gibi ana hesapların görünmesini istiyorum, fakat süzde rakam olarak görünmediği için hiçbirşey gelmiyor.
Alanı tarayıp hata denetiminden sayıya çevir diyorum, ve ana hesapları (100,120) sayıya çeviriyor ve süzde istediğimi elde ediyorum.
Bunun kolay bir yolu var mı acaba, hata denetiminden sayıya çevirmeden nasıl yapılabilir,
makroda denedim fakat makro hata denetimide yaptığım sayıya çevir işlemini görmüyor. Excel 2007 kullanıyorum..
tşk.

 

[Necdet]

Merhaba,

Basit bir yöntem önerebilir miyim?

Ekteki dosyayı inceleyiniz.

 

[ismailmuhcu]

Sizlerin de bildiği üzere paket programlarda mizan yada bilanço alınırken hesap kodu seviyesi adı altına 1, 2 veya 3 diye gireriz. (Ana hesap, alt hesap,... vs). Siz de süz işlemi için yeni bir sütun oluşturup o sütüna ait satırlara

=EĞER(UZUNLUK(A2)=3;1;EĞER(UZUNLUK(A2)=6;2;EĞER(UZUNLUK(A2)=10;3;"")))

formülünü girin ve aşağıya doğru çoğaltın. Artık rahatlıkla süz işlemi yapabileceksiniz...

 

[silveraxe]

Üstad, ilginiz için tşk.

Ekteki dosyada filtre var fakat benim excele attığım dosyaya filtre uyguladığımda a kolonundaki değerleri sayı olarak görmediği için filtre işe yaramıyor.
Satırları tarayıp Hata denetimiden sayıya çevir dediğimde filtrede 1000 den küçük olanları getir dediğimde çalışıyor.

 

[silveraxe]

Sizlerin de bildiği üzere paket programlarda mizan yada bilanço alınırken hesap kodu seviyesi adı altına 1, 2 veya 3 diye gireriz. (Ana hesap, alt hesap,... vs). Siz de süz işlemi için yeni bir sütun oluşturup o sütüna ait satırlara

=EĞER(UZUNLUK(A2)=3;1;EĞER(UZUNLUK(A2)=6;2;EĞER(UZUNLUK(A2)=10;3;"")))

formülünü girin ve aşağıya doğru çoğaltın. Artık rahatlıkla süz işlemi yapabileceksiniz...

Tşk ben bunu makroyla nasıl yapabilirim acaba?

 

[ismailmuhcu]

Sub Formulcogalt()
    Range("B1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(LEN(RC[-1])=3,1,IF(LEN(RC[-1])=6,2,IF(UZ UNLUK(RC[-1])=10,3,"""")))"
    Range("B1").Select
    Selection.Copy
    Range("B2:B100").Select 'Kendinize ait son satır numarasını yazın
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[silveraxe]

ilginiz tşk ederim üstad, deneyeceğim..