muhasebe gider türleri

[evrennas]

arkadaşlar merhaba.
kısaca anlatmam gerekirse a1 hücresine bir değer yazdığımda b1 hücresinde açılır listeler oluşmalı.(a1 hücresindeki değerle ilişkili olarak)

ekde gönderdigim dosyada açıklamalar mevcuttur.
şimdiden ilginize teşekkür ederim.

 

[hamitcan]

Eki inceleyin.

 

[karaelmas4467]

bir alternatif de benden.

arkadaşlar merhaba.
kısaca anlatmam gerekirse a1 hücresine bir değer yazdığımda b1 hücresinde açılır listeler oluşmalı.(a1 hücresindeki değerle ilişkili olarak)

ekde gönderdigim dosyada açıklamalar mevcuttur.
şimdiden ilginize teşekkür ederim.

 

[evrennas]

sayın karaelmas sizede çok teşekkür ederim.ama hamitcana yazdıklarım burdada geçerli siz yapıyorsunuz ama ben nasıl yapacam.zaman ayırıp anlatırsanız çok sevinirim.teşekkkür ederim.

 

[1Al2Ver]

sayın karaelmas sizede çok teşekkür ederim.ama hamitcana yazdıklarım burdada geçerli siz yapıyorsunuz ama ben nasıl yapacam.zaman ayırıp anlatırsanız çok sevinirim.teşekkkür ederim.

Merhaba,

B4'ün ve C4'ün üzerine ayrı ayrı gelip Araç Çubuklarında ; Veri--Doğrulamayı
açınız, inceleyiniz,

Daha sonra Araç Çubuklarında ; Ekle--Ad--Tanımla'yı açınız, inceleyiniz,

Açılan pencerede ; YAKIT,STANDART ve DEMİRBAŞ isimlerini tıklayarak aşağıdaki "Başvuru Yeri" yazan yerdeki formülleri inceleyiniz.

 

[evrennas]

gider türleri

iyi akşamlar dediklerinizi yapmaya çalışıyorum ama ekle ve ad tanımla talimatlarına ulaşamıyorum

 

[1Al2Ver]

iyi akşamlar dediklerinizi yapmaya çalışıyorum ama ekle ve ad tanımla talimatlarına ulaşamıyorum

Merhaba,

Bunlar 2003 için geçerli, 2007 için ek'li dosya size yardımcı olabilir

2003'e göre 2007 karşılıklarını burada bulabilirsiniz ,

 

[evrennas]

gider türleri

çok teşekkür ederim.emeginize saglık.ancak.ilk dediginiz talimat ta b4 ve c4 ün üzerine gelip ayrı ayrı işlem yaptıgımda çıkan ekrandan deger olarak ,liste herhangibir deger v.s. gibi başlıklar var.birkaç tanesini denedim ama sonuç alamadım.

 

[1Al2Ver]

Merhaba,

2 nolu mesajı kastettim, sayın hamitcan'ın çözümünü inceleyiniz,

 

[hamitcan]

1-Öncelikle YAKIT, STANDART, DEMİRBAŞ başlıklarına bir isim tanımlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$4" Then Exit Sub'Değişecek hücre B4 değilse çık.
    With Target.Offset(0, 1).Validation 'Hedef hücrenin sağındaki hücreye veri doğrulama ekle
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & Target.Text'Hedef Hücre her değiştiğinde C4 hücresine hedef hücrenin ismini ekle.
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

 

[evrennas]

gider türleri

arkadaşlar hepinize teşekkür ederim.ilginize sagolun.yeni problemlerle karşılaşıncaya dek esen kalın

 

[evrennas]

Problem

Son olarak dediklerinizi yaptım.sonuç harika.

ancak a2 ve b2 hücrelerini aşağıdaki hücrelere de uygulamak istediğimde ne yapmam gerekli

ekde dosya gönderiyorum.ilginize teşekküerler

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
  [color=red]If Intersect(Target, [b4:b50]) Is Nothing Then Exit Sub[/color]
    Target.Offset(0, 1).ClearContents
    With Target.Offset(0, 1).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & Target.Text
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub