[ÇÖZÜLDÜ] Hücredeki formülün otomatik kopyalanması...

[enteresan]

Sevgili excel'ci arkadaşlar. Sayfa1 deki sayısı değişken olan satırları sayfa2'ye taşımak istiyorum. Sayfa2 de a2:M2 hücreleri arasında her hücrede bulunan bir formül ile 2 nci satırı taşıyorum. Bu a2:m2 hücrelerinde bulunan formülleri sayfa1 deki verilerin tamamını alabilecek şekilde aşağıdaki diğer satırlara makro ile nasıl kopyalayabilirim. Yardımcı olursanız minnettar olurum. Saygılarımla...

 

[Recep İpek]

Küçük bir örnek dosya eklemeniz mümkünmüdür?

 

[enteresan]

Küçük bir örnek dosya eklemeniz mümkünmüdür?

Sevgili ripek hocam. Küçük bir örnek hazırlamaya çalıştım. Yazdığım formüllerin konu ile bir ilgisi yok. Sadece örnek olması için rastgele yazdığım formüller. Amacım o formülleri sayfa1 deki dolu satır kadar aşağıya doğru kopyalamak. Tabii ki makro ile. İlginize teşekkür ederim.....

 

[enteresan]

Aradığım makroyu kendim buldum.

Sub deneme()

Range("C2:g2").Select
Selection.AutoFill Destination:=Range("C2:g22"), Type:=xlFillDefault

End Sub

Bu kod işime yaradı ama tek bir eksiği var o da sayfa1 deki dolu olan verileri makroya gösteremedim. Yani C12'ye kadar satırlarda veri olmasına rağmen ben C22'ye kadar kopyalama yaptım. Dolu olan satırlara kopyalama yapmasını sağlayamadım. Biraz daha araştıracağım. Belki onu da yapabilirim. İlgilenenlere teşekkür ederim....

 

[Recep İpek]

Aşağıdaki şekilde deneyiniz.

Sub deneme()
Range("c2:g2").Select
Set s1 = Sheets("Sayfa1")
sat = s1.[a65536].End(3).Row
Selection.AutoFill Destination:=Range("c2:g" & sat & ""), Type:=xlFillDefault
[c2].Select
Set s1 = Nothing
End Sub

 

[enteresan]

Aşağıdaki şekilde deneyiniz.

Sub deneme()
Range("c2:g2").Select
Set s1 = Sheets("Sayfa1")
sat = s1.[a65536].End(3).Row
Selection.AutoFill Destination:=Range("c2:g" & sat & ""), Type:=xlFillDefault
[c2].Select
Set s1 = Nothing
End Sub

Sevgili ripek hocam,
ilgi ve alakanıza minnettarım. Çok teşekkür ederim. Benim yazdığım kod da işimi görüyor ama her seferinde bir uyarı mesajı çıkıyor ve, "Hedef hücrelerin içeriği diğiştirilsin mi?" diye soruyor. Sizin kodunuzu denemedim. Onu da deneyeceğim fakat, benim kodda nasıl bir değişiklik yapayım ki, bu soruyu sormasın. Saygı ve sevgilerimle....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub FORMÜL_KOPYALA()
    Application.DisplayAlerts = False
    Son_Satır = Sheets("Sayfa1").[A65536].End(3).Row
    Range("C2:G2").AutoFill Destination:=Range("C2:G" & Son_Satır), Type:=xlFillDefault
End Sub

 

[enteresan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub FORMÜL_KOPYALA()
    Application.DisplayAlerts = False
    Son_Satır = Sheets("Sayfa1").[A65536].End(3).Row
    Range("C2:G2").AutoFill Destination:=Range("C2:G" & Son_Satır), Type:=xlFillDefault
End Sub

Sayın Cost_Control,
ilginize teşekkür ederim. Kodda küçük bir ilave yaptım ve istediğim gibi oldu. Çok teşekkür ederim.

Sub FORMÜL_KOPYALA()
Application.DisplayAlerts = False
Son_Satır = Sheets("Sayfa1").[A65536].End(3).Row
Sheets("sayfa2").Select 'İLAVE ETTİĞİM SATIR
Range("C2:G2").AutoFill Destination:=Range("C2:G" & Son_Satır), Type:=xlFillDefault
End Sub

 

[Necdet]

C2:G10 u seçip ve Ctrl+D yaptım, bunu da Makro Kaydet ile kaydettim.
Genel amaçlı olması açısından range i değiştirdim, aşağıdaki kod çıktı ortaya.

Paylaşmak istedim

Sub Formul_Kopyala()
Son_satir = Sheets("Sayfa1").[A65536].End(3).Row
Range("C2:G" & Son_satir).Select
Selection.FillDown
End Sub