Formülü kısa nasıl yazarım

[yuemse]

[e2]=[c2]-[d2]
[e3]=[e2]+[c3]-[d3]
[e4]=[e3]+[c4]-[d4]
[e5]=[e4]+[c5]-[d5]
.
.
.
[e248]=[e247]+[c248]-[d248]
[e249]=[e248]+[c249]-[d249]
[e250]=[e249]+[c250]-[d250]
[j2]=[e250]+[h2]-[ı2]
[j3]=[j2]+[h3]-[ı3]
[j4]=[j3]+[h4]-[ı4]
[j5]=[j4]+[h5]-[ı5]
.
.
.
[j248]=[j247]+[h248]-[ı248]
[j249]=[j248]+[h249]-[ı249]
[j250]=[j249]+[h250]-[ı250]

Bu uzun formülün makro da kısa yazılışı var mıdır?

 

[Merhum İdris SERDAR]

.

Neden makro?

Formülle.

E2 hücresine:

=SUM($C$2:C2)-SUM($D$2:D2)

=TOPLA($C$2:C2)-TOPLA($D$2:D2)

yazıp, aşağıya doğru kopyalayın.

Ya da:

=IF(AND(C2="";D2="");"";SUM($C$2:C2)-SUM($D$2:D2))

=EĞER(VE(C2="";D2="");"";TOPLA($C$2:C2)-SUM($D$2:D2))

şeklinde deneyin daha uygun.



.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Makro1()
 
    Dim i As Integer
 
    For i = 2 To 252 Step 50
        Range("E" & i).FormulaR1C1 = "=RC[-2]-RC[-1]"
        Range("E" & i + 1 & ":E" & i + 48).FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
        Range("J" & i).FormulaR1C1 = "=RC[-2]-RC[-1]"
        Range("J" & i + 1 & ":J" & i + 48).FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Next i
 
End Sub

 

[yuemse]

toplama işlemleri çok olunca excel açarken kaydederken kasmaya başlıyor

 

[Merhum İdris SERDAR]

toplama işlemleri çok olunca excel açarken kaydederken kasmaya başlıyor

.




Eee ... Sonuç???

Verdiğim formülün neresi uzun?

.

 

[yuemse]

neden makro dediğiniz için yazdım cevabı formüllerde işimi görür. yardımcı olduğunuz için teşşekkür ederim

 

[Necdet]

Eee bende sonuçta makroyla formül yazdırdım, aynı kapıya çıkıyor, sonuçta fonksiyon kullanmış oluyorsunuz.

Yoksa doğrudan toplamın sonucu mu alınacaktı?

 

[yuemse]

sayfaya 500 formül yazılınca excel kilitlendiği için makroda yazmak istedim

 

[Necdet]

Merhaba,

Yani sonuçtan memnun musunuz değil misiniz? tam olarak anlamadım.
Benim yaptığım makroyla fonksiyon yazdırmak idi, bu da sizin istemediğiniz bir şey anladığım kadarıyla. Bence konu çözülmemiş oldu

 

[yuemse]

Merhaba,

Yani sonuçtan memnun musunuz değil misiniz? tam olarak anlamadım.
Benim yaptığım makroyla fonksiyon yazdırmak idi, bu da sizin istemediğiniz bir şey anladığım kadarıyla. Bence konu çözülmemiş oldu

Amacım makroda yazmak çünkü diğer türlü 250. formüle gelince excel kapanıyor.

 

[yuemse]

merhaba,

yani sonuçtan memnun musunuz değil misiniz? Tam olarak anlamadım.
Benim yaptığım makroyla fonksiyon yazdırmak idi, bu da sizin istemediğiniz bir şey anladığım kadarıyla. Bence konu çözülmemiş oldu

=ıf(and(c2="";d2="");"";sum($c$2:c2)-sum($d$2:d2))
bu formülü makroda nasıl yazabilirim