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

Katılım
18 Ocak 2006
Mesajlar
25
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
 

Ekli dosyalar

Son düzenleme:

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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.

.
 
Katılım
18 Ocak 2006
Mesajlar
25
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
 

Ekli dosyalar

Son düzenleme:

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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?

.


.
 
Katılım
18 Ocak 2006
Mesajlar
25
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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.

Kod:
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
.
 
Katılım
18 Ocak 2006
Mesajlar
25
ç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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
#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.

.
 
Katılım
18 Ocak 2006
Mesajlar
25
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?
 
Son düzenleme:

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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.

.
 
Üst