İki satırı karşılaştırma

[Denizl]

Merhabalar ekte örneğini sunduğum gibi bir dosyam var ancak binlerce satırdan oluşuyor. Birinci satır sabit olmak kaydıyla iki satırı karşılaştırsın eğer iki satır arasında farklılık var ise ikinci sütunu bir aşağı kaydırsın ve bir alttaki satırdan işlemi devam ettirsin gibi bir koda ihtiyacım var yardım ederseniz sevinirim.

 

[usubaykan]

Merhabalar ekte örneğini sunduğum gibi bir dosyam var ancak binlerce satırdan oluşuyor. Birinci satır sabit olmak kaydıyla iki satırı karşılaştırsın eğer iki satır arasında farklılık var ise ikinci sütunu bir aşağı kaydırsın ve bir alttaki satırdan işlemi devam ettirsin gibi bir koda ihtiyacım var yardım ederseniz sevinirim.

Merhaba;

Option Explicit
Sub Deneme()
Dim u As Long
For u = 2 To Range("B65536").End(3).Row
    If Cells(u, "A") <> Cells(u, "B") Then
    Cells(u, "B").Insert Shift:=xlDown
    End If
    Next
End Sub

aradığınız böyle birşeymi?

 

[Denizl]

tşkrler çok işime yarayacak..