ayrı sutunlardaki aynı içerikli hücreleri yanyana getirme

[mudem]

selam arkadaşlar
bu forumda yeniyim umarım yardımcı olursunuz
benim sıkıntım A B ve C sutunlarında yazan değerlerin aynı olanlarını yanya getirme ekte verdiğim dosyada sanırım daha iyi anlattım

 

[Korhan Ayhan]

Selamlar,

C2 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=EĞER(EHATALIYSA(DÜŞEYARA(B2;D:D;1;0));"";DÜŞEYARA(B2;D:D;1;0))

 

[veyselemre]

Sub dene()
    With Range("b2:b" & [b65536].End(3).Row)
        For x = 2 To [d65536].End(3).Row
            Set bul = .Find(Cells(x, 4))
            If Not bul Is Nothing Then
                If Cells(bul.Row, 3) = "" Then
                    Cells(bul.Row, 3) = Cells(x, 4)
                    Cells(x, 4) = ""
                End If
            End If
        Next x
    End With
End Sub

 

[mudem]

aklınıza fikrinize elinize sağlık çok teşekkür ederim

 

[mudem]

teşekkür ederim çok sağol