Bir sutundaki uyusan verileri diger sutuna kopyalama

[arkanonur]

Merhaba arkadaslar,

Benim yapmak istedigim sey su:

Uzerinde calistigim dosyada
Bir "AI" sutunum var bir de "AL" sutunum var.
"AI" sutunumda numaralarim var ve "AL" sutununda bazi veriler var.

"AI" sutunumdaki numaralara bakip, ayni olan numara varsa
Diyelim ki "AI20" hucresindeki ve "AI30" hucresindeki numaralar ayni
ama "AL20" hucremde bazi veriler var ama bu veriler "AL30" hucremde yok.
Ben ise "AI20" ve "AI30" daki numara ayniysa "AL20" ve "AL30" daki verileriminde ayni olmasini istiyorum ve bunun butun "AI" sutunu icin olmasi gerekiyor.

Eger yardim edebilecek arkadaslar olursa simdiden cok tesekkur ederim.

Saygilarimla,

Onur Arkan

 

[veyselemre]

[vb:1:7609e5c43d]Sub kont()
baksut = "AI"
kontsut = "AL"
son = Cells(65536, baksut).End(3).Row
For x = 1 To son - 1
For y = x + 1 To son
If Cells(x, baksut) = Cells(y, baksut) And Cells(y, kontsut) = "" Then Cells(y, kontsut) = Cells(x, kontsut)
Next y
Next x
End Sub[/vb:1:7609e5c43d]

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili örnek bir dosya eklemeniz mümkün mü?