Kolay bir soru: Ardışık olmayan sayıları kendi yerine gönderme

[izcik]

Tüm uzmanlarıma selam ve saygılar

Çok basit bir sorum var

A1 den itibaren aşağıya doğru şunlar yazılı: (Hücre hücre belirtiyorum)

A1 : 7
A2 : 18
A3 : 19
A4 : 152
A5 : 153
A6 : 155
A7 : 1766
A8 : 25265

şeklinde sayılar yazılı.

İstediğim şey şu: Makro düğmesine basınca
7 sayısı, B7 ye
18 sayısı B18 e
19 sayısı B19 a
152 sayısı B152 ye
153 sayısı B153 e
155 sayısı B155 e
1766 sayısı B1766 ya
25265 sayısı B25265 e gitsin

yani kendi yerine gitsin. Hatta B sütunu şart değil, A sütunu da olabilir. Hangisi kolayınıza gelirse.

Teşekkür ederim şimdiden.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyin:

Sub yerine()
For i = 1 To Cells(Rows.Count, 1).End(3).Row
yer = Cells(i, 1).Value
Cells(yer, "B") = Cells(i, 1)
Next
End Sub

 

[izcik]

Hiç eksiksiz , tam istediğim gibi. Çok teşekkür ederim Yusuf44 uzmanım.