satırdaki verileri sütuna göre kıyaslayıp olmayanı yazdırma

[hakocaaga]

ekte gönderdiğim şekli ile bir satırda karışık şekilde veriler var, farklı bir sütunda aynı verilerin sıralı hali var istediğim satırdaki verileri sütundaki verilere göre kıyaslayıp olmayanı yazan bir formül. ancak olmayanı satıra yazdığımda bir sonraki olmayanı da otomatik göstersin istiyorum.
şimdiden teşekkür ediyorum

 

[Ömer]

Merhaba,

Sorunuz pek açıklayıcı değil. Y sütununu olmasını istediğiniz biçim nasılsa o şekilde sonuçlarını manuel yazıp yeni bir dosya ekleyiniz.

.

 

[hakocaaga]

Merhaba,

Sorunuz pek açıklayıcı değil. Y sütununu olmasını istediğiniz biçim nasılsa o şekilde sonuçlarını manuel yazıp yeni bir dosya ekleyiniz.

.

y1 sütununa öyle bir formül yazmam gerekiyor ki (a1:r1) arasını (z1:z17) ile kıyaslasın;
kıyaslamada (a1:r1) içerisine yazılmayanları y1 de göstersin

 

[Ömer]

Yine aynı açıklamaları yapmışsınız. Sizden ricam Y1 de olması gereken değeri manuel yazıp açıklamanızdı.

Ohalde sorarak gidelim.

Y1 hücresine, tüm olmayanların aralarında virgül koyarakmı yazdırmak istiyorsunuz. Yoksa sadece bir tanesinin yazması yeterli mi?

Bu ikiside değilse yapmak istediğiniz nedir?

.


.

 

[hakocaaga]

Yine aynı açıklamaları yapmışsınız. Sizden ricam Y1 de olması gereken değeri manuel yazıp açıklamanızdı.

Ohalde sorarak gidelim.

Y1 hücresine, tüm olmayanların aralarında virgül koyarakmı yazdırmak istiyorsunuz. Yoksa sadece bir tanesinin yazması yeterli mi?

Bu ikiside değilse yapmak istediğiniz nedir?

.

evet tüm olmayanları aralarına virgül koyarak yazdırmak istiyorum
anlatımım için özür dilerim

 

[Ömer]

evet tüm olmayanları aralarına virgül koyarak yazdırmak istiyorum
anlatımım için özür dilerim

Module kopyalayıp çalıştırınız.

Sub AraYaz()
 
    Dim i As Long
 
    Range("Y1").ClearContents
 
    For i = 1 To Cells(Rows.Count, "Z").End(xlUp).Row
        If WorksheetFunction.CountIf([[COLOR=red]A1:R1[/COLOR]], Cells(i, "Z")) = 0 Then
            Range("Y1") = Range("Y1") & "," & Cells(i, "Z")
        End If
    Next i
    Range("Y1") = WorksheetFunction.Substitute(Range("Y1"), ",", "", 1)
 
End Sub

.

 

[hakocaaga]

çok teşekkür ederim çalıştı. peki eğer alt satırda da aynı özellikleri isteseydik atıyorum a2:r2 yada a50:r50 ozaman nasıl yapacaktık.
bir de bunu makro olmadan yapabilirmiyiz peki.
yardımınız için çok teşekkür ederim

 

[Ömer]

#6 numaralı mesajda ilgili bölümü kırmızı ile işaretledim.

Makro dışında yapabilirsiniz tabi fakat onlarca hatta veri düzeninize göre yüzlerce yardımcı sütun kullanmanız gerekebilir.

.

 

[hakocaaga]

kusura bakmayın yardımınız için teşekkür ederim sorularıma devam edebilirmiyim acaba
satırlar itibariyle tek satır üzerinde bunu yaptık ama varsayalım aynı işlemi birden fazla satır için yapmak istersek verdiğiniz makroyu birden fazla mı yapmak gerekiyor?
atıyorum 500 satır olan verilerde de bu makrodaki kırmızı yerleri tek tek değiştirmek mi gerekiyor.
yani 1. satır için yaptığımızı 2. 3......................500. satıra da tek tek mi yapacağız ozaman işi biraz uzattık demektir .
umarım uzattığımı düşünmemişsinizdir.
saygılarımla.
ilaveten araya olmayan verilerden atıyorum a102 yi ilave edince sonuç hücresinde bu veri otomatik olarak silinebilirmi?

 

[Ömer]

yani 1. satır için yaptığımızı 2. 3......................500. satıra da tek tek mi yapacağız ozaman işi biraz uzattık demektir .

[A1:R1] yerine [A1:R500] yazabilirsiniz.

ilaveten araya olmayan verilerden atıyorum a102 yi ilave edince sonuç hücresinde bu veri otomatik olarak silinebilirmi?

Kodlar hücre tetiklemesine bağlı yazmadığım için otomatik silinmez. Kodu tekrar çalıştırmanız gerekir. Buton ekleyip bu işlemi yapabilirsiniz. Hücre tetiklemesi ile her harekette kodları çalıştırmak bu işlem için tavsiye edeceğim bir yol değil.

.