Yeni sütun eklenince Formülasyonu düzeltmek

[ahmethasim]

Merhaba arkadaşlar sorunumu anlatayım şimdi.

For i = 1 To donati_sirasi_sayisi(j) Step 1

Set fe(i) = Sayfa2.Cells(i + 1 + fark, 32)

fe(i).FormulaLocal = "=F" & i + 1 + fark & "/(B" & 2 + fark & "-2*D" & 2 + fark & ")"

şeklinde hücrelere formül ataması yapıyorum.

Yalnız F sütunundan önce yeni bir sütun eklemem gerek.

Bu durumda F sütunu ve sonrasındaki bütün formüllerde F olan yeri G ;

G olan yeri H şeklinde değiştirmem gerek. Bu durum çok zahmetli.

Bu durumu nasıl çözebilirim? Bir diğer sorum da;

fe(i).FormulaLocalda "= F yazmak yerine [ , 6] şeklinde formül içine yazmak mümkün mü? Formül içinde böyle sayılarla hücreyi belirtmek mümkünse o zaman [,6+yeni_sütun] gibi birşeyler yapılabilir miydi?

Yardımlarınızı bekliyorum

İyi çalışmalar

 

[uzmanamele]

merhaba

bunun gibi bişey olabilir mi

i,j değişken olabilir, yeni_sütun gibi bir değişken inputbox ile belirlenebilir.
cells(i,j)
cells(i,j+yeni_sütun)

 

[ahmethasim]

Merhaba Süleyman Bey

Şimdi ben hücreye bir formül ataması yaparken sürekli

Cells(1,1).FormulaLocal = "=EĞER(B" & 2+fark & "+C" & 2+fark & ") şeklinde formül ataması yapmayı biliyorum.

Bu şekilde yazınca satırlarda 2+fark nedeniyle fark değişkenine değerler vererek oluşturduğum formülü alt satırlarda da kullanabiliyorum.

Peki B yazmak yerine sütunlarda da benzer işi yapmak mümkün mü? Belirttiğiniz gibi Cells(i,j+yeni_sütun) şeklinde bir yazım mümkün mü ? Ama FormulaLocal in içinde bu yazım şeklinin geçerli olması gerek.

j=2
Yani Cells(1,1).FormulaLocal= "=EĞER(Cells(2+fark,j+yeni_sütun).Value & "+" Cells(2+fark,j+1+yeni_sütun).Value & ") şeklinde yazmak

Böyle yazmayı deneyince hata veriyor?

Teşekkürler

İyi çalışmalar

 

[ahmethasim]

Merhaba arkadaşlar lütfen olumlu olumsuz fikir verebilir misiniz?

Hocalarım siz olup olamayacağını bilirsiniz.

Dim a() As Range

ReDim a(donatı_sayısı)


For i=1 To 5

Set a(i)=Sayfa2.Cells(i,3)

a(i).FormulaLocal= "=EĞER(B" & i & "=5;0;5)"

Next

Şimdi b formül 3. sütundaki i=1. satırdan 5. satıra kadar tüm satırlara aynı formül uygulanıyor.

İstediğim ise formulaLocal yazarken B 1 ; B 2 şeklinde yazmak yerine

[1,2] [2,2] şeklinde B1 B2 yi sayılarla ifade edebilmek istiyorum.

a(i).FormulaLocal= "=EĞER([i,2] & "=5;0;5)"
yazdığımda hata veriyor.

Bunu yapmak mümkün mü?

Teşekkürler

İyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Kırmızı renkli bölümdeki 2 değer sütun bilgisini ifade etmektedir.

Option Explicit
 
Sub FORMÜL_UYGULA()
    Dim X As Integer
    
    For X = 1 To 5
        Cells(X, 1).FormulaLocal = "=EĞER(" & [COLOR=red]Cells(X, 2).Address[/COLOR] & "=5;0;5)"
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ahmethasim]

Hocam çok çok teşekkürler

İyi çalışmalar

Saygılarımla