iki sayfayı karşılaştırıp birleştirme

[betulsagir]

merhaba forumda yeniyim hatta excel konusunda çok yeniyim ancak stajımın ilk haftasında benden iki excel sayfasındaki bilgileri karşılaştırıp birinde eksik olan satır bilgisini diğerine aktarmam istendi bugüne kadar excelde kod yazıldığını dahi bilmiyodum ama biraz araştırarak iki sütunu kıyaslayan aynı olanları bulup var yazan ufak bi kod yazdım ama yeterli değil benden istenen için ve yapamadığım için zor durumda kalıyorum bana yardımcı olabilirseniz en azından ne yapacagımı anlatırsanız sevinirim yazdığım kod aşağıda

Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant

Set CompareRange = Range("G3:G150")
Range("L3:L150").Select

For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = ("var")
Next y
Next x
End Sub

 

[Huseyinkis]

Merhaba yapmak istediğiniz işlemi ufak bir dosya ile örneklerdirebilirmisiniz.

 

[betulsagir]

rapor1 deki f sutunundaki kodlarla rapor 2 deki g sütunundaki kodları karşılaştırıp rapor1 de yeni eklenmiş olan koda sahip satırdaki bilgileri alarak rapor2 ye kopyalıycaz (rapor2 korumalı parolayı kaldıramadım parolalar 2011 ve 123)

 

[Huseyinkis]

rapor1 deki f sutunundaki kodlarla rapor 2 deki g sütunundaki kodları karşılaştırıp rapor1 de yeni eklenmiş olan koda sahip satırdaki bilgileri alarak rapor2 ye kopyalıycaz (rapor2 korumalı parolayı kaldıramadım parolalar 2011 ve 123)

ekli dosyayı incelermisiniz.

 

[betulsagir]

size ne kadar teşekkür etsem az yüzde yüz anlamamakla beraber çalıştırdım kontrolde ettim oldu tek şey sorcam kodun çalışması için ikinci listenin adının güncel bekleyen mi olması lazım çünkü ikinci liste yani renksiz olan her hafta değişiyo

 

[Huseyinkis]

size ne kadar teşekkür etsem az yüzde yüz anlamamakla beraber çalıştırdım kontrolde ettim oldu tek şey sorcam kodun çalışması için ikinci listenin adının güncel bekleyen mi olması lazım çünkü ikinci liste yani renksiz olan her hafta değişiyo

Dosyada Alt+f11 tusuna basın orada sayfa ismini görüceksiniz onu değiştirmeniz yeterli olacaktır.

 

[betulsagir]

teşekkür ederim çok yardımcı oldunuz iyi günler