Tüm Değişkenlerin Sonuçlarını listelemek

[Said12]

Arkadaşlar Merhaba;
forumdan birçok konuda faydalanıyoruz. Öncelikle katkısı olan herkese çok teşekkür ederim.
Sayfada belirttiğim tüm değişkenlere göre Sağ taraftakine benzer bir liste yapmak istiyorum. Veri tablosu sadece iki değişken ve basit formüller için iş görüyor. Ama bazen çok karmaşık formüllerin tüm değişkenlerin sonuçlarını listelemek istiyorum. Sağdaki tabloyu elle tekere teker hesaplayıp yapmıştım. Yaklaşık 4-5 saatimi aldı diyebilirim. Bu tabloyu hazırlayabileceğim Basit bir yönteminiz var mı? yada basit bir makro var mı? Makro hiç bilmiyorum bu arada.
yardımlarınız için şimdiden teşekkür ederim.

 

[YUSUF44]

Sanıyorum her A için x, y ve z değerlerini D3: D5 aralığına yazdıktan sonra D6 hücresine 1'den 30'a kadar sırayla yazıp D7'deki formül sonucunu L2:AO31 aralığına yazmaktan bahsediyorsunuz. Eğer anladığım doğruysa ve örnek dosyanızda L2:AO31 aralığındaki sonuçlar olması gereken değerlerse o sonuçları nasıl bulduğunuzu anlamadım. Çünkü örneğin A1'in datasurge=2 sonucu formülde 0,00 çıkıyorken siz tabloya 0,4376... yazmışsınız. Bu değeri nasıl buldunuz?

Aşağıdaki makroyla tabloyu oluşturmaya çalıştığımda sizin doldurduğunuzdan çok farklı sonuçlar buluyor:

Sub tablo()
Application.ScreenUpdating = False
    sonA = Cells(Rows.Count, "AQ").End(3).Row
    For a = 2 To sonA
        x1 = Cells(a, "AR")
        y1 = Cells(a, "AS")
        z1 = Cells(a, "AT")
        For ds = 1 To 30
            Cells(a, ds + 11) = ((Sqr(x1) + y1 * z1) / Sqr(ds)) / 101
        Next
    Next
Application.ScreenUpdating = True
End Sub

 

[Said12]

Yusuf Bey cevabınız için çok teşekkür ederim. Sonuçları farklı olan tabloyu başka bir işlem için yapmıştım. Bu sebeple sonuçlar farklı. yaptığınız Bu makroyu bu işleme özel kullanabilirim. çok teşekkür ederim ilginiz için. Ama şöyle bir formül yapılabilir mi? F hücrelerindeki Modülleri seçsem, x ve y değerlerini girsem, sonra artım ve bitiş değerlerini girsem, makro yada formül data surge kısmına otomatik tüm artım sayılarını girse, (bitiş sayısına kadar) ve Bunu sağda gösterdiğim tabloya yazsa harika olur. Bu işlemi başka kategorilerde de kullanacağım orda bitiş ve artım sayıları farklı olabilir. Aradığım tamda böyle birşey. Bunu bir formüle atayabilirsem süper olur. Umarım anlatabilmişimdir. Yeni dosyayı ve örnekleri ekledim tekrar.

 

[YUSUF44]

x, y, z değerleri nerden alınacak?

 

[Said12]

Elle gireceğim. yada bir formülden hesaplayacağım. Amacım tüm sonuçlara göre tablolar hazırlamak.

 

[YUSUF44]

Amacınızı anladım. Çözüm için tüm değişkenleri bilmek gerekiyor. Dosyanızın ilk halinde x, y, x değerlerini düşeyara ile mevcut tablodan bulduruyordunuz. Ben de o tabloya göre makroyu düzenlemiştim. Eğer bu değerler önceden belli değilse makro işlem yapamaz. Ya önceki gibi değerleri belirlemelisiniz ya da hangi formülle bulunacaksa o formülü belirtmelisiniz.

 

[Said12]

Teşekkür ederim değerli vaktinizi ayırdığınız için. Demek istediğinizi şimdi anladım. Tüm Tabloları oluşturmam gerekir. Ben bir excel oluşturup size tekrar yazacağım. Müsait olup cevap verirseniz çok sevinirim.

 

[Said12]

Yusuf Bey Dosyayı tekrar yükledim. İncelerseniz çok sevinirim. Ayrıca Modülleri tablodan değil de düşey arayla bağladığım hücrelerden çekebilir misiniz? Böyle birşey mümkün mü? Böyle olursa, başka excellerde de kullanabilirim diye düşünüyorum.

 

[Said12]

güncel//

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub tablo()
Application.ScreenUpdating = False
    Set s1 = Sheets("Module")
    Set s2 = Sheets("Presentation")
    sonb = s1.Cells(Rows.Count, "B").End(3).Row
    eskisat = s2.Cells(Rows.Count, "I").End(3).Row
    eskisut = WorksheetFunction.Max(9, s2.Cells(2, Columns.Count).End(xlToLeft).Column)
    s2.Range(Cells(2, "I"), Cells(eskisat, eskisut)).Clear
    s1.Range("B4:B" & sonb).Copy s2.[I3]
    bas = s2.[C6]
    bit = s2.[C7]
    say = Int(bit / bas)
    s2.[J2] = bas
    For sut = 11 To say + 9
        s2.Cells(2, sut) = s2.Cells(2, sut - 1) + bas
    Next
    For modul = 4 To sonb
        s2.[C5] = s1.Cells(modul, "B")
        s2.[C9] = s1.Cells(modul, "C")
        s2.[C10] = s1.Cells(modul, "D")
        s2.[C11] = s1.Cells(modul, "E")
        s2.[C12] = s1.Cells(modul, "F")
        s2.[C13] = s1.Cells(modul, "G")
        s2.[C14] = s1.Cells(modul, "H")
        sut = 10
        For ds = bas To bit + bas Step bas
            s2.[C8] = ds
            s2.Cells(modul - 1, sut) = s2.[C18]
            sut = sut + 1
        Next
    Next
    s2.Range("I2:I" & sonb - 1).Font.Bold = True
    s2.Range(Cells(2, "I"), Cells(2, sut - 1)).Font.Bold = True
    s2.Range(Cells(2, "I"), Cells(sonb - 1, sut - 1)).Borders().LineStyle = 1
Application.ScreenUpdating = True
End Sub

 

[Said12]

Yusuf Bey çok çok Teşekkür ederim. Gerçekten harikasınız. Bu makroyu sürekli kullanmak istiyorum. Bunu bir formül olarak kullanabilir miyim? Mesela Düşey ara gibi( Aranan Değer,tablo seç, ...). Değişkenleri Seçerek işlem yaptırmak mümkün mü?

 

[YUSUF44]

Tam anlamadım ancak J3 hücresinde aşağıdaki formülü kullanmaktan mı bahsediyorsunuz?

=((KAREKÖK((0,6*$C$4*DÜŞEYARA($I3;Module!$B$3:$H$75;2;0)*DÜŞEYARA($I3;Module!$B$3:$H$75;3;0)/10^3)+((DÜŞEYARA($I3;Module!$B$3:$H$75;4;0)/DÜŞEYARA($I3;Module!$B$3:$H$75;5;0))/10+($C$2*KAREKÖK($C$2)/15-2,5)/10))+((DÜŞEYARA($I3;Module!$B$3:$H$75;4;0)/DÜŞEYARA($I3;Module!$B$3:$H$75;5;0))/10+($C$2*KAREKÖK($C$2)/15-2,5)/10)*(KAREKÖK(DÜŞEYARA($I3;Module!$B$3:$H$75;6;0)+DÜŞEYARA($I3;Module!$B$3:$H$75;7;0))/100))/KAREKÖK(J$2))/101

Eğer öyleyse sağa ve aşağı doğru kopyalayabilirsiniz. Bu formül sadece Vc ve Vs değerlerini C3 ve C4'ten alıp, diğer değişkenleri de module sayfasındaki tablodan çeker ve I sütunuyla 2. satırdaki değerlere göre sonuçları bulur.

 

[Said12]

Çok teşekkür ederim Yusuf Bey, Emeğiniz büyük. Saygılarımla.