Hücreri eşleştirme

[gyilmaz87]

Selam,

Elimde bir excel dosyası var ve içerisindeki sayılardan bazıları eksik ben olmayan sayıların boş geçilerek iki sütünun birbirine eşitlenmesi yapamadım yardımcı olurmusunuz.

Not: örnek için 20 adet verilmiştir.

Teşekkürler.

 

[Murat OSMA]

Orta kısımlar ilginç :dusun:

 

[gyilmaz87]

Dosyayı değiştirdim. ortadaki alan önemli değil amacım arada olmayan numaralarda boşluk bırakarak iki sütunu bir birine eşitlemek.

 

[Murat OSMA]

Şimdi anlaşıldı...

Şu kodları kullanabilirsiniz;

Sub Hizaya_Gel()
    Dim Rky As Integer
    For Rky = 3 To 22
        If Cells(Rky, "B") <> Cells(Rky, "E") Then
            Cells(Rky, "D").Resize(, 2).Insert Shift:=xlDown
            Rky = Rky + 1
        End If
    Next Rky
    Rky = Empty
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Application.ScreenUpdating = False

Range("G:K").Clear
Range("A:B").Copy Range("G:H")

For i = 2 To [H65536].End(3).Row

Set BUL = Range("D:D").Find(Cells(i, "G"), , xlValues, xlWhole)

If Not BUL Is Nothing Then
sat = BUL.Row
Cells(i, "J") = Cells(sat, "D")
Cells(i, "K") = Cells(sat, "E")
End If

Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .