hücreler ayni ise yanındaki satırın kopyalanması.

[northcyprus]

Iyi günler sayın hocalarım ve arkadaşlar.
Kroki sayfasında sabit masa numaraları var bu masa numaralarının altındaki kare kısımlara isimler yazılıyor. Yapmak istediğim şey liste sayfasında ki d stününa yazacagım masa numaraları d3 ten d46 ya kadar degişiklik gösterecek yani masa 55 şimdi d4 te ben masa 55 i d9 a koydugumda kroki sayfasında ki masa 55 in altındaki h31 in hüsniye olması lazım yani kroki sayfasındaki masa numaraları ile liste sayfasındaki d3 ten d46 ya kadar olan kısımda ayni si varasa yanındaki ismi masa numarasının altındaki hücre ile eşit olmasını istiyorum bir türlü beceremedim yardımlarınızı bekliyorum saygılarımla...

 

[Murat OSMA]

Merhabalar,

Bu kodları kullanabilirsiniz..

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    For i% = 3 To Sayfa2.Range("B65536").End(3).Row
        If Sayfa2.Cells(i, 4).Value <> "" Then
            Set evn = Sayfa1.Range("F1:O40").Find(Sayfa2.Cells(i, 4).Value, , , 1)
            If Not evn Is Nothing Then
                evn.Offset(1, 0).Value = Sayfa2.Cells(i, 5).Value
            End If
        End If
    Next i
    i = Empty: Set evn = Nothing
End Sub[/SIZE][/FONT]

 

[northcyprus]

teşekür ediyorum sayın hocam

 

[Murat OSMA]

Rica ederim, iyi günler.​