Tablo Karşılaştırmasında çıkan değerleri Farklı Sütüna yazdırma

[kotto]

Merhaba Arkadaşlar,

Ekte bulunan tablo karşılaştırmasında A ve B karşılaştırılarak A dan farklı olan B verileri C ye aktarılıyor. Ancak arada birçok boşluk mevcut.

Yapmak istediğim C de bulunan verileri D ye boşluksuz olarak aktarılmasını sağlamak.

Not: ENG Office 2007 Kullanıyorum.

Konu ile ilgili yardımlarınızı rica ediyorum.

Teşekkürler.

 

[hamitcan]

Sub Makro1()
Columns(4).Clear
c = 1
For i = 2 To [a65536].End(3).Row
If Cells(i, 3) <> "" Then c = c + 1: Cells(c, 4) = Cells(i, 3)
Next
End Sub

 

[kotto]

Merhaba,

Hocam kod çalıştı. Emeğine sağlık teşekkür ederim.