Bir sutundaki uyusan verileri diger sutuna kopyalama

Katılım
26 Aralık 2005
Mesajlar
40
Excel Vers. ve Dili
Microsoft Office Excel 2003 - Ingilizce
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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