Sayıları diğer bir hücreye gönderme

[selcuk]

Selam arkadaşlar.Benim öğrenmek istediğim bir uygulama var.Yardımlarınızı bekliyorum.

Þehirlerin altında sayılar var,bu sayıların şhirlerin yanına yazılmasını istiyorum.Bunu nasıl yapabilirim?81 il olunca tek tek atmak çok zor oluyor

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

[vb:1:946f606b25]Sub aktar()
For a = [a65536].End(3).Row To 2 Step -2
Cells(a - 1, "b") = Cells(a, "a")
Rows(Cells(a, "a").Row).Delete
Next
End Sub
[/vb:1:946f606b25]

veya

[vb:1:946f606b25]Sub aktar()
Range("A1:A" & [a65536].End(3).Row).SpecialCells(xlCellTypeConstants, 1).Copy
[b1].PasteSpecial Paste:=xlPasteValues
Range("A1:A" & [a65536].End(3).Row).SpecialCells(xlCellTypeConstants, 1).Delete
End Sub
[/vb:1:946f606b25]

 

[selcuk]

Levent bey teşekkürler.Yine bir sorunumuza çare oldunuz.