Ortalama alma ve toplamını bulma.

[sirkülasyon]

Değerli ağabeylerim en avantajlı firma sorusunu Korhan abi mükemmel bir şekilde çözerek istifademize sundu. Yüz verdik astarını istiyor demezseniz bir istirhamım daha olacak
yine dosyamı ekledim.istediğim ise YAKLAŞIK MALİYET İÇİN ORTALAMA başlığının altında yer alan birim tutar ve toplam tutar kısmını makro ile bulmak.
Birim Fiyat = satır olarak Teklif Fiyatlarını toplayacak ve üçe bölecek
Toplam Fiyat = Ortalaması alınan Birim Fİyatı Miktar ile çarpacak.
TESPİT EDİLEN KDV HARİÇ TOPLAM YAKLAŞIK MALİYET TUTARI : satırında yer alan toplam kısmına da sütunların toplamını yazacak.

Ben bunu sitede yer alan formülleri aynan kopyalayıp yapıştırarak yapmıştım.
İnşallah yardımlarınız ile Makroya terfii ettireceğim.

 

[bedersu]

Sayın sirkülasyon,
Aşağıdaki kodlar sanırım işinizi görür.Diğer toplamları da koda aktardım.

Sub ortalama()
On Error Resume Next
For i = 10 To 29
Cells(i, 15) = WorksheetFunction.Average(Cells(i, 9), Cells(i, 11), Cells(i, 13))
Cells(i, 16) = Cells(i, 15) * Cells(i, 7)
Next
Range("O31") = WorksheetFunction.Sum(Range("O10:O29"))
Range("P31") = WorksheetFunction.Sum(Range("P10:P29"))
Range("I30") = WorksheetFunction.Sum(Range("I10:I29"))
Range("J30") = WorksheetFunction.Sum(Range("J10:J29"))
Range("K30") = WorksheetFunction.Sum(Range("K10:K29"))
Range("L30") = WorksheetFunction.Sum(Range("L10:L29"))
Range("M30") = WorksheetFunction.Sum(Range("M10:M29"))
Range("N30") = WorksheetFunction.Sum(Range("N10:N29"))
End Sub

 

[mesto26]

Makro Eklenmiş Dosya

Merhaba;

Butona tıkladığınızda işleminiz gerçekleşecektir.

 

[sirkülasyon]

Değerli ağabeyim bedersu ve mesto26
Ellerinize sağlık . Yardımlarınız için teşekkür ederim.
Ancak bunu şu rakamlar değiştiği zaman hesaplamayı kendiliğinden otomotik olarak yapan buton muton kullanmadan olan şekil varya o şekle çevirirsek nasıl olur.

 

[bedersu]

Sayın sirkülasyon,
Aşağıdaki kodları VBA sayfasında Sayfa1'e yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
For i = 10 To 29
Cells(i, 15) = WorksheetFunction.Average(Cells(i, 9), Cells(i, 11), Cells(i, 13))
Cells(i, 16) = Cells(i, 15) * Cells(i, 7)
Next
Range("O31") = WorksheetFunction.Sum(Range("O10:O29"))
Range("P31") = WorksheetFunction.Sum(Range("P10:P29"))
Range("I30") = WorksheetFunction.Sum(Range("I10:I29"))
Range("J30") = WorksheetFunction.Sum(Range("J10:J29"))
Range("K30") = WorksheetFunction.Sum(Range("K10:K29"))
Range("L30") = WorksheetFunction.Sum(Range("L10:L29"))
Range("M30") = WorksheetFunction.Sum(Range("M10:M29"))
Range("N30") = WorksheetFunction.Sum(Range("N10:N29"))
End Sub

 

[sirkülasyon]

DEğerli Ağabeyim bedersu Ellerine sağlık berim istediğim de bu idi işte.
Sağolasın abim benim