hücre karşılaştırma hakkında

[myildiz]

arkadaşlar ekteki dosyada anlaşılır bir şekilde yaptım.

 

[S.Yiğit]

arkadaşlar ekteki dosyada anlaşılır bir şekilde yaptım.

Merhaba,

Sn myildiz, ya benim gözlerimde bir bozukluk var yada sizin hafızanız zayıf.
Bu konunun benzerini daha önce açmıştınız.

Sütunlardaki verileri karşılaştırma

 

[myildiz]

arkadaşım gözlerinizde bozukluk yok,benim hafızamda iyi merak etme,oraya ben bir sütun daha açtım il lerin yazdığı sütunu bana sadece il llerin olduğu sütunun formülü lazım.

 

[myildiz]

anladığım kadarıyla daha önceki göndermiş olduğum konunun ekini indirip karşılaştırmadan bi ön yargıda bulunuyosun.

 

[S.Yiğit]

Aynısı demedim, benzeri dedim. Tabiki ikisinide inceleyip mesaj yazdım.

 

[Orion1]

Dosyanız ekte.

Sub eslestir()
ReDim myarr(1 To 5, 1 To 10)
For i = 1 To 10
    Set k = Range("C3:C12").Find(Cells(i + 2, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        For j = 1 To 5
            myarr(j, i) = Cells(k.Row, j).Value
        Next j
    End If
Next i
Range("A3").Resize(10, 5) = Application.Transpose(myarr)
End Sub

 

[myildiz]

tşk. ederim arkadaşım

 

[Orion1]

tşk. ederim arkadaşım

Rica ederim.
İyi çalışmalar.