Hücreye rakam girdiğimde karşılığının farklı hücreye otomatik düşmesi

[cephe35]

Merhaba Arkadaşlar,

Bizim her ay sonu kullandığımız ve harcamalarımızın bilançosunu çıkardığımız bir tablomuz var. Tablomuzun "Harcama Kalemleri" bölümüne 1'den 21'e kadar yaptığımız harcama kalemlerinin numaralarını yazıyoruz ve diğer hücreyede yazılı olarak açıklamasını yazıyoruz. Bizim istediğimiz Örneğin; A2 hücresine 21 yazdığımızda D2 hücresine "Demirbaş Alımları" olarak otomatikmen düşmesini sağlamak. Acil yardım gerekiyor arkadaşlar. 350 faturaya açıklama yazmaktan kurtulacağız. Teşekkürler... (Örnek Dosya Ektedir.)

 

[turist]

Ekli dosyayı inceleyiniz.
Formülü dilediğiniz kadar aşağıya doğru kopyalayabilirsiniz.

 

[gulvadi]

Alt+F11 tuş grubuna basarak kod bölumune gel Modül aç ve mudüle

Function Harcamakalemi(Kodu)
If Kodu = 1 Then Harcamakalemi = "Kira gideri"
If Kodu = 2 Then Harcamakalemi = "Bakım On.Giderleri"
If Kodu = 3 Then Harcamakalemi = "Telefon Fax.İnt. Gideri"
If Kodu = 4 Then Harcamakalemi = "Elektirik, Su Gideri"
If Kodu = 5 Then Harcamakalemi = "Kırtasiye Gazete yayın"
If Kodu = 6 Then Harcamakalemi = "Mutfak(Çay,Tüp),Temizlik"
If Kodu = 7 Then Harcamakalemi = "Posta Kargo Giderleri"
If Kodu = 8 Then Harcamakalemi = "Örgütlenme Giderleri"
If Kodu = 9 Then Harcamakalemi = "Noter Har. Vb. Giderler"
If Kodu = 10 Then Harcamakalemi = "Egitim Giderleri"
If Kodu = 11 Then Harcamakalemi = "Yönetici Yolluk Giderleri"
If Kodu = 12 Then Harcamakalemi = "Avuk. ve Muh. Danışmanlık Gid."
If Kodu = 13 Then Harcamakalemi = "Temsil Agırlama Giderleri"
If Kodu = 14 Then Harcamakalemi = "Genel Kurul Gideri"
If Kodu = 15 Then Harcamakalemi = "Şubeler Platform Gideri"
If Kodu = 16 Then Harcamakalemi = "Eylem Etkinlik Gideri"
If Kodu = 17 Then Harcamakalemi = "Personel Yemek Yolluk Gideri"
If Kodu = 18 Then Harcamakalemi = "Diğer Giderler"
If Kodu = 19 Then Harcamakalemi = "Apr.Aidat  + Apr.yakıt Gideri"
If Kodu = 20 Then Harcamakalemi = "Sosyal Etkinlik Gideri"
If Kodu = 21 Then Harcamakalemi = "Demirbaş Alımları"
End Function

Kullanıcı Tanımlı fonksiyonu gir.
işlev eklede Kullanıcı tanımlı fonksiyonlarda "Harcamakalemi" fonksiyonu kullan
Örnek doya ekte

 

[cephe35]

İlginize çok teşekkür ederim arkadaşlar...