formülün aşağı satıra kopyalanması

[igultekin2000]

iyi günler, formda çeşitli alternatifleri inceledim ama pek neticeye ulaşamadım. benim istediğim Her işlem yapacağım çalışma sayfasının A sütununu sıra numarası verecek şekilde ayarlayıp B sütununu referans vererek çalışma sayfasındaki formülün bir alt satıra kopyalanması. Çalışma sayfası yerine göre 3 sütunlu ve 5 sütunlu olabilir. Formülü her zaman 3 satır olarak hazırlayıp ikinci satıra ver geldikçe 3.cü satır formüllerinin 4 satıra şeklinde aşağı doğru kopyalanması. çok sayfalı da olsa her sayfaya formül kopyalama makrosunu girerek işlemin sürekliliğini sağlamak.

http://dosya.co/mmk509471lhf/formül.rar.html

aslında o kadar karışık değil sadece giriş sayfasına veri girdiğimde , ANAGİRİŞ sayfasındaki A sütunundaki formül bir bir alt satıra ve HAREKET sayfasındaki formül de A-O (DAHİL) sütünü arasındaki sütunun bir alt satıra kopyalanması yeterli.

 

[Korhan Ayhan]

Veri girdiğimde derken hangi hücreyi kastediyorsunuz. Birden fazla hücre var.

 

[igultekin2000]

açıklama

Veri girdiğimde derken hangi hücreyi kastediyorsunuz. Birden fazla hücre var.

giriş sayfasından bilgi girdiğimde makro ile ANAGİRİŞİN ilk boş satırına aktarıyor (A sütünü hariç-A2 formül var) ANAGİRİŞ Sayfasındaki A2 Formülünün ANAGİRİŞ Sayfasındaki B sütununa veri girdikeça A2 Sütunundaki formül bir aşağı kopyalansın, ve ANAGİRİŞ Sayfasına satır eklendikçe HAREKET Sayfasındaki ikinci satırdaki A' dan O' ya kadar olan satırdaki formülün bir alt satıra kopyalanması şeklinde düşünüyorum. diğer sayfalardaki zaten stabil dışarıdan müdahaleye gerek olmadan vazifesini yapıyor.
teşekkür ederim

 

[Ömer BARAN]

Merhaba.

Sanırım istediğiniz sonucu Makro2 adlı kod blokunu aşağıdakiyle değiştirerek alabilirsiniz.
.

[FONT="Arial Narrow"]Sub Makro2()
Sheets("SABLON").Activate: Sheets("SABLON").Range("A2:L2").Copy
satır = [B65536].End(3).Row + 1
With Sheets("ANAGİRİŞ")
    satır = .[B65536].End(3).Row + 1: .Activate
    .Range("C" & satır).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    .Range("A" & satır) = .Range("A" & satır - 1) + 1
    .Range("B" & satır) = WorksheetFunction.CountIf(.Range("G2:G" & satır), Range("G" & satır)) & "-" & Range("G" & satır)
    .Range("R" & satır) = Month(.Range("D" & satır))
End With
Application.CutCopyMode = False: Sheets("GIRIS").Activate
Sheets("GIRIS").[B2].Activate
End Sub[/FONT]

 

[igultekin2000]

Merhaba.

Sanırım istediğiniz sonucu Makro2 adlı kod blokunu aşağıdakiyle değiştirerek alabilirsiniz.
.

[FONT="Arial Narrow"]Sub Makro2()
Sheets("SABLON").Activate: Sheets("SABLON").Range("A2:L2").Copy
satır = [B65536].End(3).Row + 1
With Sheets("ANAGİRİŞ")
    satır = .[B65536].End(3).Row + 1: .Activate
    .Range("C" & satır).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    .Range("A" & satır) = .Range("A" & satır - 1) + 1
    .Range("B" & satır) = WorksheetFunction.CountIf(.Range("G2:G" & satır), Range("G" & satır)) & "-" & Range("G" & satır)
    .Range("R" & satır) = Month(.Range("D" & satır))
End With
Application.CutCopyMode = False: Sheets("GIRIS").Activate
Sheets("GIRIS").[B2].Activate
End Sub[/FONT]

teşekkürler formülle sorun çözülmüştür.