makro ile eğer

[yalovam77]

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

 

[yalovam77]

pardon belgeyi eklemeyi unutmuşum