özel kopyalama hk

[3gear12]

İyi forumlar.

Elimde bir döküm mevcut. Buradaki borç ve alacak kısımlarını tek hücrede birleştirmek istiyorum. Tabiki rakamlar değişmeden. İki sütundaki boş hücreleri sildim ve alacak kısmındaki rakamlara - işaretini koydum. Ancak bir türlü boş sütunları alacak kısmından borç kısmındaki boş sütunlara yapıştıramıyorum. Kopyala yapıştır dediğimde hepsini alt alta alıyor. Ben alt alta değil hücre sırasını koruyarak kopyalamak istiyorum. Bunun bir yolu var mıdır?

 

[Muzaffer Ali]

Merhaba.
Örnek dosya hazırlayarak üzerinde sormalısınız.

 

[3gear12]

Borç - alacak
15 0
20 0
0 5
0 6

Altın üyeliğim olmadığı için mecburen bu şekilde yazdım. Burdaki sıfırları unutun. Sadece iki hücredeki verileri birleştirmek istiyorum.

Borç
15
20
5
6
şeklinde olacak yani. bu şekilde 2500 sayfalık veri var. Yani borç sütununda 0 olan değerlere alacak kısmındaki (0 olmayan) değerleri yapıştırsam yeterli olacak. alacak kısmındaki sayıları toplu seçip düz kopyala yapıştır yaptığımda, hepsini alt alta yapıştırıyor.

 

[Muzaffer Ali]

Veriler A:B sütunlarındaysa aşağıdaki kodu bir modüle kopyalayıp Çalıştırın.

Sub Test()
    Dim Bak As Long
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(Bak, "A") = 0 Then Cells(Bak, "A") = Cells(Bak, "B")
    Next
    MsgBox "Tamamlandı."
End Sub