- Katılım
- 12 Temmuz 2006
- Mesajlar
- 201
- Excel Vers. ve Dili
- Microsoft 365 / Türkçe
- Altın Üyelik Bitiş Tarihi
- 04-05-2026
Merhaba aşağıdaki kodlarda
u7 6 ya eşit veya daha küçükse t16 büyükse v16
u7 6 ya eşit veya daha küçükse u16 büyükse w16
Sayfa1.Cells(16, Sayfa1.Range("u7") + 25).Value = Sayfa1.Range("x16").Value
şeklinde yapmak mümkünmüdür acaba
Sub Düğme54_Tıkla()
Sayfa1.Cells(14, Sayfa1.Range("u7") + 25).Value = Sayfa1.Range("t16").Value
Sayfa1.Cells(15, Sayfa1.Range("u7") + 25).Value = Sayfa1.Range("u16").Value
Sayfa1.Cells(16, Sayfa1.Range("u7") + 25).Value = Sayfa1.Range("x16").Value
End Sub
u7 6 ya eşit veya daha küçükse t16 büyükse v16
u7 6 ya eşit veya daha küçükse u16 büyükse w16
Sayfa1.Cells(16, Sayfa1.Range("u7") + 25).Value = Sayfa1.Range("x16").Value
şeklinde yapmak mümkünmüdür acaba
Sub Düğme54_Tıkla()
Sayfa1.Cells(14, Sayfa1.Range("u7") + 25).Value = Sayfa1.Range("t16").Value
Sayfa1.Cells(15, Sayfa1.Range("u7") + 25).Value = Sayfa1.Range("u16").Value
Sayfa1.Cells(16, Sayfa1.Range("u7") + 25).Value = Sayfa1.Range("x16").Value
End Sub