- Katılım
- 18 Ağustos 2005
- Mesajlar
- 85
- Excel Vers. ve Dili
- EXCEL 2003
- Altın Üyelik Bitiş Tarihi
- 28.01.2022
Merhaba;
( yine ben demeliyim )
arada " = " olduğu için sayfa3 c1 hücresini, sayfa2 b1'e eşitliyor. yardımlarınızı bekliyorum.
İyi çalışmalar.
( yine ben demeliyim )
Kod:
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.
İyi çalışmalar.