If Sheets("sayfa1").[A1] = 1 Then..

[INSMUH]

Merhaba;
( yine ben demeliyim )

Sub deneme()
    If Sheets("sayfa1").[A1] = 1 Then
    Sheets("sayfa2").[b1] = Sheets("sayfa3").[c1]
    End If
End Sub

'olmasını gereken;
'sayfa1 A1=1 ise sayfa2 deki B1 hücresindeki değeri sayfa3 deki C1 hücresine yaz
'sayfa1 A1=2 ise sayfa2 deki B1 hücresindeki değeri sayfa3 deki D1 hücresine yaz
'sayfa1 A1=3 ise sayfa2 deki B1 hücresindeki değeri sayfa3 deki E1 hücresine yaz
'sayfa1 A1=4 ise sayfa2 deki B1 hücresindeki değeri sayfa3 deki F1 hücresine yaz
'.....
'sayfa1 A1=9 ise sayfa2 deki B1 hücresindeki değeri sayfa3 deki K1 hücresine yaz.

arada " = " olduğu için sayfa3 c1 hücresini, sayfa2 b1'e eşitliyor. yardımlarınızı bekliyorum.
İyi çalışmalar.

 

[veyselemre]

[vb:1:70e1560fab]Sub deneme()
For x = 1 To 9
If Sheets("sayfa1").[A1] = x Then Sheets("sayfa3").Cells(1, x + 2) = Sheets("sayfa2").[b1]
Next x
End Sub[/vb:1:70e1560fab]

 

[INSMUH]

Çok çok teşekkürler!
:arkadas: