Hücre içine girilen değeri sütun ve satırda eşleşen değeri bulduramıyorum :((

[wassel]

Merhaba arkadaşlar,
Çok uğraştım ama yapamadım.
Göl seviyesini girdiğimde tablodan hacmini bulduramadım.

=iddis(B3:K12;KAÇINCI(saoldan(P3;5);A3:A12;0);KAÇINCI(SAĞDAN(P3;1);B2:K2;0))

nerde yanlış yapıyorum

Resim linkte mevcut : https://i.hizliresim.com/vJ4EBA.jpg ve https://hizliresim.com/vJ4EBA

 

[wassel]

Mesela göl seviyesi 890,15
dikey sütunda 890,1 + yatay sütunda da 0,05 alıp kesişen yer göl hacmi olacak
=İNDİS(B3:K12;KAÇINCI(SOLDAN(P3;5);A3:A12;0);KAÇINCI(SAĞDAN(P3;1);B2:K2;0))
yapıyorum YOK diyo

 

[Beyribey]

Yazdığınız formülü nasıl çıkardınız anlamadım. Bu tür tablolarda düşeyara kullanın.
Herhangi bir yere aradığınız değeri(890,1) yazın ve aşağıdaki formülü uygulayın. Ben A4 olarak bırakıyorum.

=DÜŞEYARA(A4;A2:K20;KAÇINCI(G2;A2:K2;0);YANLIŞ)

Eğer sorunuzu yanlış anladı isem lütfen düzeltin

 

[antonio]

Mesela göl seviyesi 890,15
dikey sütunda 890,1 + yatay sütunda da 0,05 alıp kesişen yer göl hacmi olacak
=İNDİS(B3:K12;KAÇINCI(SOLDAN(P3;5);A3:A12;0);KAÇINCI(SAĞDAN(P3;1);B2:K2;0))
yapıyorum YOK diyo

Merhaba,
Size yanıt vermeden önce, sunulan bilginin doğruluğunu test etmek için üzerinde çalışılan verilere ihtiyaç oluşmaktadır. Altın üye olmadığınıza göre, dosyanızı;
dosya.tc, dosya.web.tr veya gmail-drive sitelerinden birini kullanarak paylaşınız.
Böylece daha hızlı yardım alabilirsiniz.

 

[wassel]

antonio dediğn adreslerden birine yükledim
link : http://www.dosya.tc/server10/a6c4nz/i_Microsoft_Office_Excel_Calisma_Sayfasi.xlsx.html
Mesala seviye 890,25 diyelim
Tabloda sol sarı sütunda 890 / 890,1 / 890,2 ... gibi ditmekte
yatay sarı sütunda 0,01 / 0,02 / 0,03 ... gibi gitmekte
ben 890,25 metre seviyesi yazdığımda sol sarı sütundan 890,2 değerini bulacak yatay sarı sütundan da kalan 0,05 değerini bulup kesişim yerinin değerini çıkaratcak
ama yapamadım

 

[antonio]

Örnek dosyanızda, çalışmanızın bulunduğu sayfanın sekmesine sağ tıklayarak "Kod görüntüle" seçeneğine tıklayınız. Açılan pencereye, aşağıdaki kodları aynen yapıştırınız.
Sayfanızdaki tabloda P3 hücresine yeniden bir değer giriniz, veya mevcut değeri yeniden algılaması için P3 hücresi seçili durumda iken F2 ye, sonra ENTER e tıklayınız. Sonucu gözlemleyiniz.
Q3 hücresine gelen sonuçlardaki virgül sayısını, dilediğiniz şekilde arttırmak veya azaltmak için: Q3 hücresi seçili durumda iken sağ tıklayın >> Hücreleri biçimlendir >> sayı (sekme adı) >> sayı (seçenek) >> ondalık sayısını dilediğiniz şekilde belirleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dikey As Range, yatay As Range, k As Range, seviye As Double, fark As Double, _
    sat As Range, sut As Range, hcr As Range
    
If Not Intersect(Target, [P3]) Is Nothing Then
    Set dikey = [A3:A13]
    Set yatay = [B2:K2]
    If Target.Value = 0 Or Target.Value = "" Then Exit Sub
        [B3:K13].Interior.ColorIndex = xlNone
        seviye = Format(CDbl(Target.Value), "000.00")
        aranan = CDbl(Left(seviye, 5) * 1)
        Set sat = dikey.Find(CDbl(aranan), , xlValues)
        If Not sat Is Nothing Then
            x = sat.Row
        Else
            MsgBox "Dikey sütunda seviye bulunamadı.", vbExclamation, "antonio"
            Exit Sub
        End If
        fark = Format(CDbl(seviye) * 1 - CDbl(aranan) * 1, "0.00")
        Set sut = yatay.Find(fark, , xlValues)
        If Not sut Is Nothing Then
            y = sut.Column
        Else
            MsgBox "Yatay düzlemde derinlik bulunamadı.", vbExclamation, "antonio"
        End If
        Set hcr = Cells(x, y)
        hcr.Interior.ColorIndex = 6
        [Q3].Value = hcr.Value
End If
End Sub

 

[wassel]

Çok teşekkür ederim, ellerine sağlık.
Dediğin gibi yaptım takır takır buluyor )

 

[antonio]

Rica ederim.

 

[wassel]

excel sayfasını kapatıp açtığımda kodsuz açılıyor ve tekrar kodu aktarıp kullanıyorum. dosyayı kapatıp açtığımda kodun hala işlevsel olması için ne yapmalıyım. Kaydedince vb projesi kaydedilemez diyor

 

[antonio]

excel sayfasını kapatıp açtığımda kodsuz açılıyor ve tekrar kodu aktarıp kullanıyorum. dosyayı kapatıp açtığımda kodun hala işlevsel olması için ne yapmalıyım. Kaydedince vb projesi kaydedilemez diyor

Uzantısı ".xlsx" ise farklı kaydet >> dosya türünden ".xlsm" seçeneğini veya ".xls" seçeneğini tıklayınız. ".xlsx" uzantılı dosya türleri sadece veritaban olarak işlev görürler. makro kodlarını temizlerler.

 

[wassel]

süpersin

 

[antonio]

Estağfurullah.