- Katılım
- 13 Haziran 2012
- Mesajlar
- 5
- Excel Vers. ve Dili
- 2010 vb
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
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
Son düzenleme:
