Formül Değiştirme

[altanson]

Arkadaşlar çok sayıda veri içeren bi çalışma sayfam var. Bu sayfada belirli aralıklarla tekrar eden basit bir toplama formülüm var bu formülü nasıl değiştirebiliriz örnek ve ayrıntılı açıklama ekteki dosyada.

 

[AS3434]

Formül değiştireceğiniz alanı seçin.
Ctrl+H basın
Açılan pencerede Aranan kutusuna + yazın
Yeni değer kutusuna - yazın .
Tümünü değiştir deyin.

 

[altanson]

Sayın AS3434 teşekkürler fakat ben toplama işlemini sadece örnek olsun diye verdim. Eğer başka bir formül varsa ne yapabiliriz.

örneğin D3/(D3+D4) yerine D3*D4 nasıl yapabiliriz yada yine başka bir basit formül.

 

[altanson]

arkadaşlar yardımcı olabilecek kimse var mı? yoksa yapmak istediğimi mi anlatamadım.

 

[Merhum İdris SERDAR]

Formül değiştireceğiniz alanı seçin.
Ctrl+H'ye basın. Açılan diyalog kutusundan Aranan kutusuna "değiştirilecek formül" ,Yeni değer kutusuna bunun yerine koyacağınız"yeni formül"ü yazın .
Tümünü değiştir deyin.


.

 

[altanson]

dediğiniz gibi yapınca sadece değerini girdiğim formülü değiştiriyor. yolladığım örnekte belirli aralıklarla devam eden bir förmülün tamamını değiştirmek istiyorum.

mesela

A1-> =D3+D4
A2..
A3..
A4-> =D6+D7
A5..
A6..
A7-> =D9+D10
A8..
A9..
A10-> =D12+D13
A11..


bu şekilde oldukça uzun bir liste devam ediyor. ilk hücrede değişikliği manuel yapıp uzatarak diğer hücrelere uygulama şansım yok çünkü aradaki hücrelerde veriler var.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Makro1()
For s = 1 To 100 Step 3
Cells(s, 1) = "=R[2]C[3]-R[3]C[3]"
Next
End Sub

Sayın Yurttaş beyin önerdiği yöntemde iş görüyordu.

 

[altanson]

Bu şekilde deneyiniz.

Sub Makro1()
For s = 1 To 100 Step 3
Cells(s, 1) = "=R[2]C[3]-R[3]C[3]"
Next
End Sub

Sayın Yurttaş beyin önerdiği yöntemde iş görüyordu.

Sayın Seyit Tiken,

Verdiğiniz makroyu çalıştırdım fakat iki sorunum var,

1- makronun başlayacağı yeri nasıl değiştirebilirim? (A1 yerine mesela D2 den başlaması)

2- Çıkarma işlemi yerine başka bir formül olarak nasıl değiştirebilirim? (D3-D4 yerine mesela (D3*100)/100 gibi)

sanırım bu ikisinide yapabilirsem sorunum hallolmuş olacak.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Makro4()
For s = 2 To 100 Step 3
Cells(s, 4) = "=(R[1]C*100)/100"
Next
End Sub

 

[altanson]

Aşağıdaki kodu deneyiniz.

Sub Makro4()
For s = 2 To 100 Step 3
Cells(s, 4) = "=(R[1]C*100)/100"
Next
End Sub

Sayın AS3434, yurttas, Seyit Tiken,

hepinize teşekkürler.

Eğer en son verilen formülden başka bir formüle ihtiyacım olursa artık ben makroyu düzelterek elde etmeye çalışırım tabi becerebilirsem