Soru Yetki Matrisi

[bulentkars]

Arkadaşlar Merhaba

Ekte tabloda örnek ile anlattım, Talep sayfasında B7;B9;B11 hücrelerine girilen rakamlara göre Matris sayfasında hangi aralığı giriyorsa Talep sayfası B27 satırına sonucu yazmasını istiyorum, Yardımcı Olabilirseniz Sevinirim. Şimdiden Teşekkürler

 

[ÖmerFaruk]

Bu şekilde çok zor olur. Gereksiz yere kastırmak lazım ve hatta sonuç alınamaya da bilir.

Matris sayfanızdaki verileri yeniden düzenlemelisiniz.

Sütun başlıklarınız şunlar olmalı
Alt Limit
Üst Limit
Vade Alt Limit
Vade Üst Limit
Tutar

 

[bulentkars]

Ömer Faruk Bey,

Yazdığınız Şekide Düzenledim. Teşekkürler

 

[YUSUF44]

İlk dosyanıza göre şu formülü dener misiniz?

=EĞER(B7>=3600000;EĞER(VE(B9=0;B11=0);"Merkez";"Direktör");EĞER(B7>=1700000;"Direktör";EĞER(B7>=1100000;EĞER(VE(B9=0;B11=0);"Merkez";"Direktör");EĞER(VE(B11<=30;B9<=50000);"Şube";"Direktör"))))

 

[ÖmerFaruk]

=DOLAYLI("Matris!L" &TOPLA((B1>=Matris!F6:F22)*(B1<=Matris!G6:G22)*(B3>=Matris!H6:H22)*(B3<=Matris!I6:I22)*(B2>=Matris!J6:J22)*(B2<=Matris!K6:K22)*SATIR(Matris!L6:L22)))

 

[bulentkars]

Ömer Bey İlginiz için teşekkür ederim ancak formül 1.200.000 TL ve üzeri rakam girildiğinde #BAŞV! Hatası veriyor.

 

[bulentkars]

Yusuf Bey,

Sizin yaptığınız formül oldu. Elinze emeğinize sağlık.. zahmet olmayacaksa eğer formülü makro ile "B6" satırına değer olarak yazabilirmiyiz.

 

[bulentkars]

Yusuf Bey,

Sizin yaptığınız formül oldu. Elinze emeğinize sağlık.. zahmet olmayacaksa eğer formülü makro ile "B6" satırına değer olarak yazabilirmiyiz.

 

[YUSUF44]

Doğru anladıysam, aşağıdaki kodları Talep sayfasının kod bölümüne yapıştırıp deneyin. B7, B9 ve B11 hücrelerini değiştirdiğinizde çalışır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B7,B9, B30]) Is Nothing Then
    If [B7] <> "" And [B9] <> "" And [B11] <> "" Then
        If [B7] >= 3600000 Then
            If [B9] = 0 And [B11] = 0 Then
                [B6] = "Merkez"
            Else
                [B6] = "Direktör"
            End If
        ElseIf [B7] >= 1700000 Then
            [B6] = "Direktör"
        ElseIf [B7] >= 1100000 Then
            If [B9] = 0 And [B11] = 0 Then
                [B6] = "Merkez"
            Else
                [B6] = "Direktör"
            End If
        ElseIf [B11] <= 30 And [B9] <= 50000 Then
            [B6] = "Şube"
        Else
            [B6] = "Direktör"
        End If
    Else
        [B6] = "Eksik veri"
    End If
End If
End Sub

 

[bulentkars]

Yusuf bey,

Size zahmet veriyorum lütfen kusura bakmayın.. sizin yaptığınız aşağıdaki formülü tuşa atamak istiyorum. Makro butonunu çalıştırdığımda aşağıdaki formğlğ B27 satırına değer olarak yazmasını istiyorum.


=EĞER(B7>=3600000;EĞER(VE(B9=0;B11=0);"Merkez";"Direktör");EĞER(B7>=1700000;"Direktör";EĞER(B7>=1100000;EĞER(VE(B9=0;B11=0);"Merkez";"Direktör");EĞER(VE(B11<=30;B9<=50000);"Şube";"Direktör"))))
.

 

[YUSUF44]

İnşallah konunun başından beri istediğiniz bu değildir

Sub matris()
If [B7] <> "" And [B9] <> "" And [B11] <> "" Then
    If [B7] >= 3600000 Then
        If [B9] = 0 And [B11] = 0 Then
            [B27] = "Merkez"
        Else
            [B27] = "Direktör"
        End If
    ElseIf [B7] >= 1700000 Then
        [B27] = "Direktör"
    ElseIf [B7] >= 1100000 Then
        If [B9] = 0 And [B11] = 0 Then
            [B27] = "Merkez"
        Else
            [B27] = "Direktör"
        End If
    ElseIf [B11] <= 30 And [B9] <= 50000 Then
        [B27] = "Şube"
    Else
        [B27] = "Direktör"
    End If
Else
    [B27] = "Eksik veri"
End If
End Sub

 

[bulentkars]

Yusuf Bey,

Formül de "Eksik veri" yazılmamış daha düzgün çalışıyor. kotta eksik veri sorun çıkarıyor. ben formülün aynısını makro değer olarak hücreye yazmak istedim.

 

[bulentkars]

Yusuf Bey

Formül ve makro işime yaradı çok teşekkür ederim. Elinize emeğinize sağlık.

 

[YUSUF44]

Yusuf Bey,

Formül de "Eksik veri" yazılmamış daha düzgün çalışıyor. kotta eksik veri sorun çıkarıyor. ben formülün aynısını makro değer olarak hücreye yazmak istedim.

Nasıl bir sorun çıkıyor?