Formüllü Sayfayı Yeni Sayfaya Hesaplanmış Şekilde Kaydettirme.

[zozotr]

Arkadaşlar selamlar;


Forumunuzu bir süredir takip ediyorum. Paylaşılan bilgiler çok güzel. Hepinize teşekkürler. Bende faydalanıyorum. Ama üstadlardan aldığım bilgilerde kendim hemen beceremiyorum.

Bir sorunum var ve yardımlarınızla mümkünse en kısa zamanda çözmek istiyorum.

Aşağıda örnek dosyayı veriyorum. Örnek dosyamın üst tarafında formuller var ve bu formullere göre bir hesaplama yaptırıyorum. Sorunum ise bu formullerin sonuçlarını ve alttaki fiyat tablosunun hesaplanmış değerlerini yeni sayfaya KAYDET tuşu ile kaydettirmek.

Yardımcı olabilirseniz sevinirim.

Saygılar
Zozo

 

[fedeal]

kontrol şansım olmadı özellikle birleştirilmiş hücrelerde hatalı sonuç verebilir kontrol edin umarım olmuştur
not: hesaplama 10 saniye kadar sürüyor bence veri çok olduğu için normal

 

[fedeal]

birde bu hesaplama sabit 2 kişi çocuksuz olarak düşünülerek yapılıyor hepsi için bu geçerli değilmi?

 

[zozotr]

ilginize ve cabuk cevabiniza cok tesekkurler. 2 Kisi sabit degil. Her sutunun kendi sabitleri var.
Ben macro lariniza baktim ama malesef benim isin icinden cikabilecegim gibi degil. Her sutuna ait olan makrolari nereye yazmaliyim sizin veridiginiz bu dosyada?

Rica etsem bunu bana yazabilirmisiniz? Cunku bu dosya ile cok fazla vaktinizi aldim ve daha fazla sizi yormak istemiyorum!

Saygilar
Zozo

 

[fedeal]

Sub m()
Dim i As Long, k As Long
Set s1 = Sheets("Spo")
Set s2 = Sheets("Result")
s1.Select
Range("A9:R1668").Select
Selection.Copy
s2.Select
Range("A9:R9").Select
ActiveSheet.Paste

For i = 11 To Sheets("Spo").Cells(65536, 1).End(xlUp).Row
For k = 6 To 18
If IsNumeric(Cells(i, k).Value) Then
s2.Cells(i, k).Value = "=((Spo!R1C6*2)+(Spo!R3C6*2*Spo!R5C6)+(Spo!R4C6*2)+(Spo!RC*Spo!R5C6)*(1))+(((Spo!R1C6*2)+(Spo!R3C6*2*Spo!R5C6)+(Spo!R4C6*2)+(Spo!RC*Spo!R5C6)*(1))*Spo!R7C6/100)"
s2.Cells(i, k).Value = s2.Cells(i, k).Value
Else
s2.Cells(i, k).Value = s1.Cells(i, k).Value
End If
Next
Next
End Sub

bu makro döngü yoluyla calışıyor her satır için ayrı bir makro yok,siz satırların sabitlerini yazarsanız uyarlamaya çalışırım.

 

[zozotr]

Satirlarin Sabitleri ektedi txt dosyasindaki gibidir.

Saygilarimla
Zozo

 

[fedeal]

spo sayfasına istediginiz krterleri içeren bir tablo yaptım bu tablodaki verilere göre hesaplıyor(daha sonra sizde değiştirmeniz kolay olması açısından)inceleyin iyi çalışmalar.

 

[zozotr]

Cok Tesekkur ederim tam anlamıyle istedigim buydu. Harikasınız.

 

[zozotr]

Ustad son halimiz bu. Ama dedigim gibi Hedef sayfadaki hucrelere acıkmala kısmında yazan formulleri yazdırmamız lazım yapamadım bir turlu.

 

[fedeal]

Dosyanız ekte,iyi çalışmalar.

 

[zozotr]

cok tesekkur ediyorum hemen kontrol ediyorum.

Saygılar
Zozo