Hücre değerini denetleyip aynı değeri yazdırma

[coderozkan]

Merhaba arkadaşlar

Sub DENEME()
'
Dim veri1 As Range
Dim veri2 As Range
For Each veri1 In Range("a1:a5")
For Each veri2 In Range("c1:c5")
Set bul = veri2.Find(Cells(veri1).Value)
If Not bul Is Nothing Then
Cells(10, 2).Value = Cells(bul.Row, 2).Value
Else
End If
Next
Next
End Sub


veri1 ve veri2 alanlarındaki hücre değerlerini denetleyen ve aynı olan değeri Cells(10, 2) alanına yazdıran bir kod oluşturmak istedim ancak hata nerede bulamadım

yardımlarınız için teşekkürler

 

[Ömer]

Merhaba,

Örnek dosyanızıda ekleyerek açıklarmısınız..

.

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz?

Sub DENEME()
'
Dim veri1 As Range
Dim veri2 As Range
For Each veri1 In Range("a1:a5")
    For Each veri2 In Range("c1:c5")
        If veri1 = veri2 Then
            Cells(10, 2).Value = Cells(veri2.Row, [B][COLOR=red]1[/COLOR][/B]).Value
        Else
        End If
        Next
    Next
End Sub

 

[coderozkan]

Merhaba

Merhaba

Sayın Ömer dosyayı ekler kısmına ekledim

Rcep bey vermiş olduğunuz kodu çalıştıramadım ne yazık ki


İlginize teşekkürler

 

[Recep İpek]

Makro kodunu güncelledim.