sayfa2 den sayfa 1 e sayı aktarma

[pergeweb]

Arkadaşlar Ekte bişey gösteremiyorum çünkü ekleyemedim çalışmıyor hata veriyor şimdi konuyu anlatacağım
sayfa birde girilen değerler var a1 den d1 e kadar sayısal olarak
sayfa 2 de ise a8 den d8 e kadar aynı sayılar var yalnız e8 dede değer var
sayfa 1 de ki sayılar sayfa 2 deki sayılarla aynı olduğu taktirde sayfa2 deki e8 de olan değeri sayfa 1 deki e1 'e aktarılmasını istiyorum yardımcı olursanız sevinirim iyi günler gerçekten çok lazım lütfen yarım edermisiniz.

 

[Orion1]

Ekli dosyayı inceleyiniz.
İstediğiniz böyle bir şeymi?

Sub karsilastir()
Dim sut As Byte, k As Range, sayac As Byte
Sheets("Sayfa1").Select
Range("E1").Value = ""
For sut = 1 To 4
    Set k = Sheets("Sayfa2").Range("A8:D8").Find(Cells(1, sut).Value, LookIn:=xlValues, lookat:=xlWhole)
    If k Is Nothing Then
        sayac = 0
        Exit For
        Else
        sayac = 1
    End If
Next sut
If sayac = 1 Then Range("E1").Value = Sheets("Sayfa2").Range("E8").Value
Set k = Nothing
End Sub