Son İşlem Tarihi

[xwyz1]

Tabloda; tarih, satıcı VE alıcı mevcut.
Merak ettiğim konu ise her firmanın yaptığı alım satımın son işlem tarihi.

Dosya ektedir.

 

[hhaseken]

d17 ye MAK(EĞER(C2:C12=C17;B2:B12))
e17 ye MAK(EĞER(D212=C17;B2:B12))
dizi formülüdür

 

[xwyz1]

Teşekkürler. Bu arada hatırlatma;

Dizi formulu eklerken CTRL + SHIFT + ENTER basarak ekleyin. Aksi halde "Değer" hatası verir.

 

[xwyz1]

---
Deleted Message.
---

 

[xwyz1]

Formul boş hücreler ile karşılaştığında #YOK veya #SAYI hatası veriyor. Bunu nasıl aşabilirim?

MAK(EĞER(C2:C12=C17;[B]B2:B12[/B]))

yerine

MAK(EĞER(C2:C12=C17;[B]Sayfa2!B:B[/B]))

kullandığımda başıma geldi.

 

[hhaseken]

=MAK(EĞER(C2:C12=C17;Sayfa2!$B$2:B12))
Birde sen bakarsan olması gerek

 

[xwyz1]

Oldu ancak bu boş hücrelerle karşılaştığında yine hata veriyor ben tamamen stünu almasından bahsettim dolu sütunu değil.

B:B

 

[hhaseken]

Ben olsam b12 değerini b65000 gibi değer yapar bırakırdım.
eğer(ehatalıysa gibi başlangıçlar var ama bunda denedim olmadı.

 

[Ali]

Diğer bir formül.

=ARA(2;1/($C$2:$C$13=C17);$B$2:$B$13)

.

 

[xwyz1]

Evet oldu, teşekkürler.

 

[xwyz1]

Arkadaşlar konu ile ilgili beklenmedik bir gelişme oldu. 30.000+ formullu hücreyi excel kaldırmadı, bunu makro ile çözmem gerekicek, konu ile ilgili şöyle bir kod var elimde ancak kodu düzenlerken sorun yaşıyorum, yardımınız lazım.

Kod yazarken bile henüz 0, 1 veya 0, -2 gibi (2 solunda, 1 sağında) mantığını kavrayamadım bunu hücre ismi olarak değiştireceğim zamanda kodun yapısı bozuluyor daha açık bir şekilde düzenlememe yardım edermisiniz? Teşekkürler.

Sub arztalep()
Dim o As Worksheet, f As Worksheet, bul As Range, i As Long
Set o = Sheets("örnek"): Set f = Sheets("firmalar")
    For i = 2 To f.Range("a1").End(4).Row
        firma = f.Cells(i, 1).Value
            For Each bul In o.Range("c2:c" & o.Range("a1").End(4).Row)
                If f.Cells(i, "a").Value = bul.Value Then
                    f.Cells(i, "b").Value = bul.Offset(0, -1).Value
                End If
                If f.Cells(i, "a").Value = bul.Offset(0, 1).Value Then
                    f.Cells(i, "c").Value = bul.Offset(0, -1).Value
                End If
            Next bul
    Next i
Set o = Nothing: Set f = Nothing
Set bul = Nothing: i = Empty
End Sub

 

[xwyz1]

= "B2:B65000"

kaynak verilerini şeklinde yazmaktan bahsetmiştim... :roll: Yardımcı olan olursa sevinirim (=