Bir önceki sıra ile iki önceki sıranın toplamı.

[EupAeon]

merhabalar.

Muhtemelen aradıgım basit birşey.ancak içerisinden çıkamadıgımdan buraya yazıyorum.

Öncelikle yapmaya çalıştığım şey basit bi adet fiyat çarpımı yapıp yanına yazdırmak.Ektede gösterdigim gibi normal toplam işlemini biliyorum.ancak bu türde yaklaşık 300 tane giriş yapmam gerektiginden bu yöntemi arıyorum.

Merak ettiğim şey;A ve B kolonlarında fiyat ve adet oldugunu varsayarsak C bölümüne yazdıgım formülde "aynı sıradaki A ve B yi çarp" veya "bu karenin 1 sıra eksigi ve 2 sıra eksigini çarp" yerine gecebilicek bir yöntem olup olmadığı.

İlginiz için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Sorunuz anlaşılmıyor daha detaylı açıklama yapınız.

=a2*b2

bir sıra eksiği yada iki sıra eksiğinden kastınız nedir.

Not: Eklediğiniz dosyaların 2003 formatında olmasına özen gösteriniz.

.

 

[EupAeon]

Merhaba tekrar.Özet olarak girişleri yatay olarak yapmaktayım.adeti ve fiyatı verdigimde toplamı otomatik hesaplamasını istiyorum.ancak her yatıgım giriş için "=a2*b2" formulunu kullanmak istemiyorum cünkü cok fazla sayıda girişim olucak.bunu yapmam için daha kısa bir yöntem yokmu acaba?

dosyayı 97-2003 olarak tekrar upload ettim.

 

[Ömer]

Merhaba,

C1 hücresine,

=EĞER(A1="";"";EĞER(A1="birim";"Toplam";A1*B1))

EĞER ~ IF

Formülünü yazarak alt hücrelere istediğiniz kadar kopyalayabilirsiniz. Eğer bu işlemle uğraşmak istemiyorsanız makro kullanmanız gerekir.

.

Option Explicit
 
Sub Carp()
Dim i As Long
Application.ScreenUpdating = False
Range("C:C").ClearContents
    For i = 1 To [A65536].End(3).Row
        If Cells(i, "a") = "Birim" Then Cells(i, "c") = "Toplam"
        If IsNumeric(Cells(i, "a")) = True And Cells(i, "a") <> "" Then
            Cells(i, "c") = Cells(i, "a") * Cells(i, "b")
        End If
    Next i
Application.ScreenUpdating = True
End Sub

Eki inceleyin. Makro ayarlarınız düşük değilse önce boş bir excel sayfası açarak makro ayarını düşünürün

.

 

[EupAeon]

Cevabınız için cok teşekkür ederim.Ancak macro ayarlarımı en düşüğe getirmeme ragmen calısmamakta.