Formül de, döngü içerisine alınabilir mi.?

[EKREM1661]

Saygıdeğer Arkadaşlar..! (Hayırlı geceler ve iyi çalışmalar dileğiyle..)

Ekli örnekte daha net anlaşılacak.. Bir formülü, mevcut döngü içerisine alınarak bir seri değişim sürecine tabi tutulabilir mi veya olmaması halinde başka ne gibi bir çözüm uygulayabiliriz.?

 

[İhsan Tank]

Merhaba
Sorunuzu bir daha okur musunuz_? Acaba

 

[EKREM1661]

İhsan bey..! Bir başka anlatımla şöyle söyleyeyim. Yukarıdaki örnekte ilgili kodun çalıştığı hücrede, yazılı bulunan formülü bozmasın istersek; bu mümkün mü.?
veya şöyle de anlatılabilir: Söz konusu formül, Sayfa1 E2 ye başvuru yaparak yazdıracak, sonra E3, E4......gibi E11 e kadar bu devam edecek..

 

[Korhan Ayhan]

Merhaba,

İhsan beyin size önerdiği kodu aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
 
Sub LisYzd()
    Dim ts, kaplan
 
    For ts = 2 To 11
        If Sheets("Sayfa1").Cells(ts, "E") <> "" Then
            Sheets("Sayfa2").Range("B11") = "=REPT("" "",LEN(B10)-LEN(UPPER(Sayfa1!E" & ts & ")))&UPPER(Sayfa1!E" & ts & ")"
            Sheets("Sayfa2").PrintOut
        End If
    Next
End Sub

 

[EKREM1661]

Korhan bey..! bu iş oldu.. üç ayrı başlık altında bu konu ile ilgili yardımı olan herkese (İhsan bey, N.Ziya bey ve Korhan bey'e) özellikle teşekkür ederim. Sizleri fazla meşgul ettiğim için de özür beyan ederim. Yardımlarınızı unutamam. Muvaffakiyetler dileğiyle, hoşça kalınız..