Çapraz hücre verilerini yok say

[mozdem]

Merhabalar, Dosyada örnek ile anlattım. buradada anlatsamda anlaşılabilir olduğunu düşünmüyorum.
A ve B sütuna yazılan sayıları D sütuna aktaracak formül olmalı.
Burada D sütunda görülen renkli olan hücrelere aktarmamalı
çünkü B6 hücresi ile onun altındaki A7 hücresi aynı olduğundan.
Yada A16 hücresi ile B17 hücresi eşit olduğundan.
Ancak B17 ile A18 ile eşit, işte bu durumda formül oluşturamıyorum.
Çünkü A18 hücresini aktarmalı
yine buna benzer B30 da yazmalı.
D sütunda oluşan veriye göre makro çalıştığından yani geri alınamaz bir işlem yaptığından, Burada bir önemli durumda Örneğin A16 ya veri geldi D 16 ya hemen aktarmamalı. Çünkü B17 ye eşit veri girildiğinde D16 verisi iptal olacak.
Biraz karışık oldu, güzel anlatamadım.
Teşekkürler

 

[ÖmerFaruk]

Aşağıdaki kodu sayfanızın kod sayfasına değiştirerek kullanbilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
    x = WorksheetFunction.Max(Range("A" & Rows.Count).End(3).Row, Range("B" & Rows.Count).End(3).Row)
    Do
        Sayı = WorksheetFunction.Max(Range("A" & x, "B" & x))
        If Sayı = WorksheetFunction.Max(Range("A" & x + 1, "B" & x + 1)) Then
            Range("D" & x) = ""
        Else
            Range("D" & x) = Sayı
        End If
    x = x - 1
    Loop While x > 1
End Sub

 

[uzmanamele]

Merhaba

Boş görülen hücrelerde veri var mı? sadece örneğinize has çapraz bağlantıları göstermek için mi veri yazmadınız?
A16, B17, A18 hücrelerinde aynı veri var;
B23, A27, B25 hücrelerinde de aynı veri var. Burada kriter uygulanmayacak mı?

 

[mozdem]

Aşağıdaki kodu sayfanızın kod sayfasına değiştirerek kullanbilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
    x = WorksheetFunction.Max(Range("A" & Rows.Count).End(3).Row, Range("B" & Rows.Count).End(3).Row)
    Do
        Sayı = WorksheetFunction.Max(Range("A" & x, "B" & x))
        If Sayı = WorksheetFunction.Max(Range("A" & x + 1, "B" & x + 1)) Then
            Range("D" & x) = ""
        Else
            Range("D" & x) = Sayı
        End If
    x = x - 1
    Loop While x > 1
End Sub

Hocam, formül olsa benim projem için daha iyi olacaktı. takribi gün sonu 25000 satır oluşuyor. Çünkü benim excelde bir saniyede bir veri girişi oluyor. Paylaştığım exceldeki D sütununda oluşan sayıya göre başka bir işlem yapılıyor. İşlem gerçekleştikten sonrada geri almam mümkün olmuyor. O nedenle formül ile çözmek mantıklı diye düşünüyorum. Gerçi bu kadar satırda formül sorun çıkarırmı orasıda başka bir konu. Ayrıca Cevabınız için de çok teşekkür ederim.

 

[mozdem]

Merhaba

Boş görülen hücrelerde veri var mı? sadece örneğinize has çapraz bağlantıları göstermek için mi veri yazmadınız?
A16, B17, A18 hücrelerinde aynı veri var;
B23, A27, B25 hücrelerinde de aynı veri var. Burada kriter uygulanmayacak mı?

Boş görülen hücrelerde veri yok. A16 B17 çapraz olduğundan D sutunu karşılığı boş olacak. Ama B17 A18 çapraz ama bir yukarıda A16 B17 birbirini götürdüğünden diyelim o nedenle A18 D sütuna yazılacak. B28 A29 D sütuna birşey yazılmaz iken B30için yazılmış olacak.
D sütundaki Formül doğru çalışır ise D ye yazmış olduklarım gibi olacak. F sütunu denemedir bir anlamı yok

 

[ÖmerFaruk]

2500 satırda bu işlemi yapacak formülünüzün kasması sebebiyle performans düşüklüğü olacağoı aşikardır. Bu kodları daha da hızlandırmak mümkündür. Tercih sizindir.

 

[mozdem]

2500 satırda bu işlemi yapacak formülünüzün kasması sebebiyle performans düşüklüğü olacağoı aşikardır. Bu kodları daha da hızlandırmak mümkündür. Tercih sizindir.

Hocam, önce formül tercihimdi ancak dediğiniz gibi Makro daha mantıklı. Sizin kodları çalıştırdım ancak bir yerde sorunum var çözebilirsek çok memnun olurum. Sanırım iyi anlatamadığım için yeni bir dosya yükledim. Daha iyi anlatmaya çalıştım.
Sizin kodlar ile kendim yapmaya çalıştım. 2-3 saat uğraştım bir şey çıkaramadım. Çözümün püf noktası örneğin 8. satır veri girişi yapıldığında Makronun 6. ve 7. satırı kontrol ederek 6. satıra verinin yazılması gibi. Ama ben yapamadım. Yardım ederseniz çok memnun olurum.

 

[ÖmerFaruk]

Kriterlerinizi ya da kurallarınız eksiksiz ve sırayla tek tek açıklarmısınız.

 

[mozdem]

Kriterlerinizi ya da kurallarınız eksiksiz ve sırayla tek tek açıklarmısınız.

Hocam, bir örnekle anlatmaya çalışayım. A sutunu alış, B sütunu satış olsun ve burada Ahmet A ve B sutunda işlem yapıyor.
Benim yapacağım ilem ise D sutunu.

Ahmet ne alır ise bende o kadar alacağım ne kadar satar ise bende o kadar satacağım.
Ama ahmet 8 Alır sonra 8 satar ise (eşit) ben alım satım yapmak istemiyorum.

Ama Ahmet 8 Alır sonra 8 satar sonra 8 alır ise 8 almak isterim ancak

8 alır 8 satar 8 alır 8 satar ise hiç birini işlem yapılmasın (Bu kısmı excel tablomda belirtmemişim)
Bu işlemler alır satar olsun satar alır olsun fark etmez.
Çok oldum ama Teşekkürden başka elimden bir şey gelmiyor.
İlgilendiğin için Çok teşekkür ederim.

 

[ÖmerFaruk]

23-24 satırı neden sarı değil de 24-25 satırı sarı?
benzer durum 28-29-30 arasında da var. Ama orada tersini yapmışsınız.
Size bu yüzden dedim Kriterlerinizi ya da kurallarınız eksiksiz ve sırayla tek tek açıklarmısınız.

 

[mozdem]

23-24 satırı neden sarı değil de 24-25 satırı sarı?
benzer durum 28-29-30 arasında da var. Ama orada tersini yapmışsınız.
Size bu yüzden dedim Kriterlerinizi ya da kurallarınız eksiksiz ve sırayla tek tek açıklarmısınız.

Hocam haklısınız. gözden nasıl kaçırdım. Aslında 23,24 sarı olacak 25 satır ise sarı olmayacak çünkü sonra gelen veri 1 olduğundan.
28,29 sarı olması normal ama 45 verisi için sarı olup plmayacağı bir sonraki satıra gelecek veri belirleyecek. Tabloyu düzelttim.