makroda koşullu aratoplam

[yuemse]

d sütununu g sütununa aratoplam almak istiyorum ama e sütunu dolu ise aratoplama katmasın

d1=1000 e1=2 ise g1=boş
d2=200 e2=boş ise g2=200
d3=500 e3=1 ise g3=200
d4=600 e4=boş ise g4=800
.
.
.
d75 e kadar olacak şekilde şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Application.ScreenUpdating = False
    For i = 1 To 75
        If Cells(i, "D") <> "" Then
            Cells(i, "G") = Evaluate("=SUMPRODUCT(($E$1:E" & i & "="""")*($D$1:D" & i & "))")
        Else
            Cells(i, "G") = ""
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[yasinbilgi]

makro örneği

M sütundaki 480 min değerden küçük max değerden de büyük değise bir şey yapmasın
M sütundaki 30 min değerden küçük ise mavi max değerden de büyük ise kırmızı olsun
M sütundaki 240 min değerden küçük ise mavi max değerden de büyük ise kırmızı olsun
Not: Fakat bu renklendirmeleri yaparken birtane makrolu bi buton olsun o butona tıkladığımda
işlemi yaptırmak...

isteğim şey makro ekinde mevcut şimdiden teşekkürler .

 

[yuemse]

. . .

Sub kod()
    Application.ScreenUpdating = False
    For i = 1 To 75
        If Cells(i, "D") <> "" Then")
            Cells(i, "G") = Evaluate("=SUMPRODUCT(($E$1:E" & i & "="""")*($D$1:D" & i & "))")
        Else
            Cells(i, "G") = ""
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

If Cells(i, "D") <> "" Then")
hocam bu satır hata veriyor
bide bunu hangi sayfada çalışacağını ayarlayabilir miyiz. bütün kodları bir sayfada topluyorumda
kodların hepsi sayfa1 de ama bu kod sayfa2 yi çalıştıracak
teşşekkürler

 

[Emir Hüseyin Çoban]

If Cells(i, "D") <> "" Then")
hocam bu satır hata veriyor
bide bunu hangi sayfada çalışacağını ayarlayabilir miyiz. bütün kodları bir sayfada topluyorumda
kodların hepsi sayfa1 de ama bu kod sayfa2 yi çalıştıracak
teşşekkürler

. . .

Satırı yanlış yazmışım, şu şekilde olmalı.
If Cells(i, "D") <> "" Then

Kodları tablolanuza uyarlamak için, tablonuzun küçük bir örneğini yükleyiniz.

. . .

 

[yuemse]

. . .

Satırı yanlış yazmışım, şu şekilde olmalı.
If Cells(i, "D") <> "" Then

Kodları tablolanuza uyarlamak için, tablonuzun küçük bir örneğini yükleyiniz.

. . .

kodu yazıp çalıştırdım ama g sütununa #DEĞER! yazıyor.

 

[Emir Hüseyin Çoban]

. . .

Bendeki işlem sonucu.

Yine hata alırsanız, örnek dosya yükleyin inceleyelim.

. . .

 

[yuemse]

. . .

Bendeki işlem sonucu.

Yine hata alırsanız, örnek dosya yükleyin inceleyelim.

. . .

Hocam halletim sorunu bende 1. satırda yazılar vardı ondan olmuyormuş d ve e yi 2. satırdan başlatınca sorun çözüldü teşekkür ederim

 

[yuemse]

ekteki örnek dosyasının çek sayfasının kodlarını nasıl yazabilirim
f sütununa yapılacak işlem
e2=dolu ise d2/e2=f2
e3=boş ise f3=boş
.
.
.
e74 e kadar

bir de bu kodları cari sayfasına yazabilirmiyiz
teşekkür ederim

 

[yuemse]

..........

 

[baydeniro]

Bu koda bir koşul daha nasıl eklenir ?

Kodda E boşsa koşulu var. F sütunundaki veriler J1 ile aynıysa koşulu eklenir ?