Belirlenen katsayıya göre işlem yapma

[uslu45]

ekteki dosyada bir dizi sayılar var. benim istediğim 4. satırda bulunan sayılarla bir takım işlemlerin gerçekleştirilmesi. 6. satırda bu sayıların kareleri alınacak, sonraki satırlarda da sarı ile boyalı sabit sayı ile çarpılıp karesi eklenecek herbir alt satıra.(formüldeki gibi)
ancak benim bunu 4. satırdaki tüm sayılara uygulamam zamanımı alıyor daha kolay yolu var mıdır.

 

[Ömer]

Merhaba,

Bu işlemin kaçıncı satıra kadar devam edeceğini belirtmemişsiniz..

Sub Hesapla()
Application.ScreenUpdating = False
    For i = 1 To [IV4].End(1).Column
        For j = 7 To 20 
            Cells(6, i) = Cells(4, i) ^ 2
            Cells(j, i) = Cells(4, i) * [B1] + Cells(j - 1, i)
        Next j
    Next i
Application.ScreenUpdating = True
End Sub

Bu şekilde deneyiniz.

.

 

[verbakalim]

İstediginiz bu şekildemi olacak.

 

[suatbayhan]

Merhaba sayın uslu45,
B7 hücresine
=$B$1*DOLAYLI(ADRES(4;SÜTUN(B4)))+DOLAYLI(ADRES(SATIR()-1;SÜTUN()))
yazıp aşağı ve sağa çekseniz...
Olur mu acaba?
Selamlar...

 

[uslu45]

İstediginiz bu şekildemi olacak.

evet bu şekilde olacak teşekkürler.
emeğinize sağlık herkesin

 

[uslu45]

Merhaba,

Bu işlemin kaçıncı satıra kadar devam edeceğini belirtmemişsiniz..

Sub Hesapla()
Application.ScreenUpdating = False
    For i = 1 To [IV4].End(1).Column
        For j = 7 To 20 
            Cells(6, i) = Cells(4, i) ^ 2
            Cells(j, i) = Cells(4, i) * [B1] + Cells(j - 1, i)
        Next j
    Next i
Application.ScreenUpdating = True
End Sub

Bu şekilde deneyiniz.

.

teşekkürler işe yarıyor ama bayağ kasıyor pc yi. yine de saolun

 

[uslu45]

Merhaba sayın uslu45,
B7 hücresine
=$B$1*DOLAYLI(ADRES(4;SÜTUN(B4)))+DOLAYLI(ADRES(SATIR()-1;SÜTUN()))
yazıp aşağı ve sağa çekseniz...
Olur mu acaba?
Selamlar...

İngilizceye çevirebilir misiniz rica etsem

 

[suatbayhan]

Merhaba,
=$B$1*INDIRECT(ADDRESS(4;COLUMN(B4)))+INDIRECT(ADDRESS(ROW()-1;COLUMN()))
Selamlar...

 

[uslu45]

yardım için herkese teşekkürler...