Formüllerin otomatik atması

[hatirlabeni]

Hayırlı akşamlar.

ekte göndermiş oldugum dosyada bordro sayfasında yer alan D9(D10-D11-D12...)
hücresine sayısı yazdığım gibi üst satırındaki formüllerin yanındaki hücrelere otomatik atmasını nasıl sağlayabilirim ?

bir diğer sorum

J8 hücresi (j9-j10-j11 ...) 0 TL-10.700 TL'ye arasında ise O8 hücresine 15 yazacak
10.700 TL'den 26.000 TL arasında ise O8 hücresine 20 yazacak
26.000TL'den 60.000 arasında ise O8 hücresine 27 yazmasını nasıl sağlayabilirim.

 

[asi_kral]

Merhaba
O8 hücresine

=EĞER(VE(J8>0;J8<=10700);15;EĞER(VE(J8>=10701;J8<=26000);20;EĞER(VE(J8>=26001;J8<=60000);27;"")))

Bu formülü yazın.
Sayfanın kod bölümüne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("D:D")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Range("E8:O" & Target.Row).DataSeries xlColumns, xlLinear, xlDay, 1, , False
Application.EnableEvents = True
End Sub

Bu kodu kopyalayıp deneyin.

 

[hatirlabeni]

Hocam eğer formulü istediğim şekilde oldu fakat formuller otomatik olarak atmıyor üst satırdaki hücredeki sayıları bir artırarak aşağı atıyor.

Bunu başka şekilde yapmak mümkün mü acaba ?