fonksiyon ile koşullu şartlandırma

[SELIMT]

bu forum sayesinde excel bilgimin çok eksik olduğunu görmüş bulunmakta ve bu forum sayesinde de bilgi dağarcığıma yeni bilgiler eklemekteyim.

sorumu ekli dosyada bilgilerinize sunar, kıymetli yardımlarınızı rica ederim.


deneme için 20
kabul için 30
red için 40
hatasız için 50


b sütununda yazılan değere göre d hücresinde karşılığı tanımlanmış değerler çıkmasını istiyorum.
Buna uygun formül


örnek : e2 hücresine hatasız yazıldığı zaman f2 hücresine otomatik olarak 50 yazılsın. bunun gibi 16 adet tanımlamam olacaktır.

 

[Ömer]

Merhaba,

Konu başlığını sorunun içeriğini ifade edecek şekilde değiştirmenizi rica ederim.

Açılan Konu Başlığını Düzeltmek

Forum Kurallarina Uymayan Basliklar Hakkinda

 

[SELIMT]

çok özür diliyorum.

konu başlığını ne seçeciğimi bilemedim.

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Belirli olan kelimeleri bir sütuna yazın, ben "I" sütununa yazdım. J sütununa da o kelimeye ait değer yazın ve F sütununda herhangi bir hücreye belirlediğiniz kelimleri yazın...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Evn As Range
    If Target.Column <> 6 Then Exit Sub
    Set Evn = Columns(9).Find(Target.Value, , , xlWhole)
    If Not Evn Is Nothing Then
        Target.Offset(0, 1).Value = Evn.Offset(0, 1).Value
            Else
        Target.Offset(0, 1).Value = ""
    End If
    Set Evn = Nothing
End Sub

 

[Ömer]

Alternatif olarak eki inceleyebilirsiniz.

.

 

[SELIMT]

kıymetli bilgilerinizi paylaştığınız için çok teşekkür ediyorum. Ellerinize sağlık, zihninize kuvvet.

 

[SELIMT]

Sn. Murat Bey;

Forumda şahsa hitap ettiğim için diğer kişilerden özürlerimin kabul edilmesini rica edeceğim.

Vermiş olduğunuz kodun adım adım açıklamasını yapabilirseniz çok minnettar olacağım. Sebebine gelince kodlar hakkında fazla bilgim malesef yok, bu vermiş olduğunuz kodları farklı başka sütunlarda uygulamaya çalışacağım. Kodun mantığını anlamaya çalışıyorum. Birde o "F" sütununa yazacağım değer "I" sütunundaki verilerin aynısı değilde içerir komutu ile yapma imkanımız var mı?

 

[Murat OSMA]

Private Sub Worksheet_Change(ByVal Target As Range)
Sayfanın Change olayı. Hücreye giriş çıkış yapıldığında tetiklenir (çalışır).

Dim Evn As Range
Evn adında hücre değişkeni atadık.

If Target.Column <> 6 Then Exit Sub
Eğer hedef sütun 6 ("F") değilse; Prosedürden (makrodan) çık.

Set Evn = Columns(9).Find(Target.Value, , , xlWhole)
Evn hücre değişkenini set ediyoruz ve Hedef hücreyi ("I") 9. sütunda "xlWhole (Tam eşleşme - Birebir Eşleşme) ile arıyoruz. İçerir demek için xlPart yazabilirsiniz.

If Not Evn Is Nothing Then
Eğer eşleşen bir değer bulunduysa, Evn boş değilse...

Target.Offset(0, 1).Value = Evn.Offset(0, 1).Value
Hedef hücrenin bir sütun sağındaki hücreye, bulunan (eşleşen) hücrenin bir sütun sağındaki hücreyi yaz.

Else
Değilse.. Yani; hedef (aktif) hücredeki değer "I" sütununda bulunamadıysa;

Target.Offset(0, 1).Value = ""
Hedef hücrenin bir sütun sağındaki hücreyi boşalt.

End If
Eğer şartını bitir.

Set Evn = Nothing
Evn hücre değişkenini boşalt.

End Sub
Prosedürün (makronun) sonu...

 

[SELIMT]

çok teşekkür ediyorum.

 

[Murat OSMA]

Rica ederim, iyi akşamlar..

 

[SELIMT]

Bu vermiş olduğunuz kıymet bilgiler ile çalışmamda yeni işler yapmaktayım. Bu kodlar ile farklı sütunlara da uygulamak istiyorum. Yapmaya çalıştım ama maalesef bunu beceremedim. Bu kodu birden fazla kolona uygulamak istersem nasıl yapabilirim, kıymetli yardımlarınızı beklerim.