Üstten formül kopyala formülü?

Katılım
28 Eylül 2014
Mesajlar
11
Excel Vers. ve Dili
2013
Arkadaşlar merhaba, bi konuda çalışırken üst satırdan formül kopyalıyorum alt satırlara ancak en üstteki formülü sürekli değiştiriyorum ve alt satırlara uyguluyorum.

Sorum; Üstteki formül neyse aynısını altındaki formüllere de nasıl uygulayabiliriz? Yani üstteki formülün aynısını kopyalama formülü var mıdır? en üstteki formülü değiştirdiğimde de altındaki formüller otomatik olarak ona göre değişecek?

Teşekkürler.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Formülünüze göre değişebilir. Örneğin B1 hücresine yazılan

Kod:
=A1*10
formülünü kopyalayıp B2 hücresine yapıştırdığınızda formül şöyle olur:

Kod:
=A2*10
Yani hücre değişince başvurulan hücreler de değişir.

B1 hücresindeki formülü şöyle yaparsanız:

Kod:
=[COLOR="red"]$[/COLOR]A[COLOR="Red"]$[/COLOR]1*10
Formülü B2 hücresine kopyaladığınızda formül yine:

Kod:
=[COLOR="red"]$[/COLOR]A[COLOR="Red"]$[/COLOR]1*10
olarak kalır.

Sanıyorum böyle bir şey istiyorsunuz.
 
Katılım
5 Eylül 2007
Mesajlar
1,247
Excel Vers. ve Dili
ofis 2010
Altın Üyelik Bitiş Tarihi
21-07-2024
formül kopyalama

iyi günler; formülün belli sütun hücrelerine yazdıkça çoğalmasını isityorsan
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Target = Empty Then Exit Sub
If Target.Column = 2 Then 'hangi satırda işlem olacağı
If Target.Column = 2 And Target.Row = 2 Then Exit Sub  'formülün hangi satırda uygulanmayacağın belirtir
If Target.Column = 2 And Target.Row = 1 Then Exit Sub 'Target.Row = 1 formülsüz .nci satır sayısı


Range("D3").copy Range("D" & Target.Row)
Range("E3").copy Range("E" & Target.Row)
Range("F3").copy Range("F" & Target.Row)
Range("G3").copy Range("G" & Target.Row)
Range("H3").copy Range("H" & Target.Row)
Range("I3").copy Range("I" & Target.Row)
Range("J3").copy Range("J" & Target.Row)
Range("K3").copy Range("K" & Target.Row)
Range("L3").copy Range("L" & Target.Row)
Range("M3").copy Range("M" & Target.Row)
Range("O3").copy Range("O" & Target.Row)

    
Application.CutCopyMode = False
End If
End Sub
böyle bir şeyde işinizi görebilir, veya başlık ve ilk formüllü satırı seçip toblo oluşturdan da formüllerin alt alta koplalanması sağlanabilir.
 
Üst