Formül ile yazdırma

[kamenzü]

1. eğer .... ise sayfa1, sayfa 3, sayfa 5 i yazdır, değil ise sayfa 2, sayfa 4, sayfa 6 yı yazdır.)

2. sayfa 6 hücre a5 de kaç yazıyorsa, sayfa 8 i o sayı kadar yazdır.

şeklinde formüllere ihtiyacım var.

formül ile yazdırmayı bulamadım, o yüzden foruma yazıyorum.

Daha önce çıktığına eminim ancak ben bulamadım.

Teşekkür ederim.

 

[turist]

İstediğiniz şekilde FORMÜL ile yapılması mümkün değildir.
MAKRO ile çözüm bulunabilir.

 

[Emir Hüseyin Çoban]

. . .

Yanlış terim kullanıyorsunuz. Makrolar ile yapılabilir.
Dosyanız ektedir.

Sub KOD_1()
On Error Resume Next

If Range("A2") = Evet Then
Sheets("Sayfa1").PrintOut
Sheets("Sayfa3").PrintOut
Sheets("Sayfa5").PrintOut
Else
Sheets("Sayfa2").PrintOut
Sheets("Sayfa4").PrintOut
Sheets("Sayfa6").PrintOut
End If

End Sub

Sub KOD_2()
On Error Resume Next
For i = 1 To Sheets("Sayfa2").Range("A5")
Sheets("Sayfa8").PrintOut
Next i
End Sub

. . .

 

[kamenzü]

Teşekkürler,

Ancak formül ile yapmak zorundayım,

Yardımlarınız için teşekkürler.