Seçilen hücre aralığında ilk boş satırdan itibaren formul kopyalama

[sonkurt]

Merhaba
Excel sayfamda E:M aralığında formüllerim var. Bunları ihtiyacıma göre aşağıya kadar kopyalıyorum. Ancak
10'dan fazla sayfa olduğu için zor olmaya başladı. Yapmak istediğim bu aralıkta formül olmayan yerden başlayıp;
aşağıya doğru 40 satıra üstteki formülleri kopyalamak. Sitede arama yaptım ancak bana uyacak bir yöntem bulamadım.
Örnek sayfayı da mesajın altına ekliyorum. Yardımcı olacaklara şimdiden teşekkürler.

 

[sonkurt]

Merhaba
Excel sayfamda E:M aralığında formüllerim var. Bunları ihtiyacıma göre aşağıya kadar kopyalıyorum. Ancak
10'dan fazla sayfa olduğu için zor olmaya başladı. Yapmak istediğim bu aralıkta formül olmayan yerden başlayıp;
aşağıya doğru 40 satıra üstteki formülleri makro ile kopyalamak. Sitede arama yaptım ancak bana uyacak bir kod bulamadım. Makro olması önemli çünkü başka kodların altına ekleyeceğim.
Örnek sayfayı da mesajın altına ekliyorum. Yardımcı olacaklara şimdiden teşekkürler.

 

[zafer]

Merhaba


Sayfanızı düzenlerken ekli dosyanızı silmişsiniz.Tekrar eklermisiniz.

 

[sonkurt]

Merhaba
Sn. Zafer
Bir alt mesajda ek çıkmış. Bende gözüküyor. Siteye yük olmaması için tekrar yüklemedim.
Eğer genede gözükmüyorsa, tekrar yüklerim. ilginiz için teşekkür ederim.

Merhaba


Sayfanızı düzenlerken ekli dosyanızı silmişsiniz.Tekrar eklermisiniz.

 

[sonkurt]

Merhaba

Formül kopyalamanın "AutoFill" ile yapılabileceğini öğrendim. Ancak son boş satırdan bir önceki satıra giderek, E:M hücre aralığındaki formülleri; aşağıya doğru 40 satıra kopyalamayı öğrenemedim.

 

[sonkurt]

Arkadaşlar aşağıdan yukarıya dolu satırı bulma ve kopyalayacağım hücreleri
seçme sorunumu
aşağıda ki kodlarla çözdüm Ancak şimdide sayfanın sonuna kadar kayıt yapıyor. Buda sayfayı yavaşlatıyor.

Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown))

Kodunu 40 satır kopyalayacak şekilde nasıl düzenlerim.

Kodun tamamı:

Sub formulkopyala()
    Dim aktifS As Long
    Dim aktifC As Byte
    Range("e65536").End(xlUp).Select
    aktifS = ActiveCell.Row
    aktifC = ActiveCell.Column
    Range(Cells(aktifS, aktifC), Cells(aktifS, aktifC).Offset(0, 8)).Select
    Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown))
End Sub

 

[ssomar]

Sub formulkopyala()
   
    Range("e65536").End(xlUp).Select
    Range(ActiveCell, ActiveCell.Offset(0, 8)).Select
    Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(40, 8))
End Sub

Bu kod işinizi görür herhalde...En sondaki dolu olan satırdan aşağı 40 satır kadar kodu kopyalıyor...

 

[sonkurt]

Sub formulkopyala()
 
    Range("e65536").End(xlUp).Select
    Range(ActiveCell, ActiveCell.Offset(0, 8)).Select
    Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(40, 8))
End Sub

Bu kod işinizi görür herhalde...En sondaki dolu olan satırdan aşağı 40 satır kadar kodu kopyalıyor...

Sn Ssomar

Size ne kadar teşekkür etsem az gelir. Kaç gündür bu kodla uğraşıyorum. Bakmadığım yer kalmadı. Tekrar çok, çok teşekkürler.

 

[ssomar]

Sn Ssomar

Size ne kadar teşekkür etsem az gelir. Kaç gündür bu kodla uğraşıyorum. Bakmadığım yer kalmadı. Tekrar çok, çok teşekkürler.

Ne demek, rica ederim :biggrin: