Soru Aktar Makrosu

[konas06]

İyi akşamlar,
Bir aktarma makrosu konusunda yardımınıza ihtiyacım vardır.
Değerli vaktini ayıran üstatlara ayrıca teşekkürler.

Buraya belirtebilirim kısaca

YAPILMAK İSTENEN

E3 DEN I 100000 E KADAR TEMİZLEYECEĞİZ

E2 DEN I2 YE SEÇECEĞİZ

E3 DEN I15 E KADAR FORMÜLLERİ KOPYALAYACAĞIZ

E3 DEN I15 E KADAR OLAN BÖLÜMÜ FORMÜLDEN KURTARIP DEĞER OLARAK YAPIŞTIRACAĞIZ

ANCAK BURADA I15 HÜCRESİNİN BELİRLENMESİ ŞUNA GÖRE OLACAK

I15 SAYFA2 A SÜTÜNU SON DOLU HÜCREYE GÖRE BELİRLENECEK

SON OLARAK BUNU SAYFA1 DE BİR BUTONA EKLEMEMİZ GEREKİYOR.

 

[konas06]

Sub aktaryeni()

Range("E3:I" & Rows.Count).Clear
Worksheets("Sayfa4").Select
Range("E2:I2").Select
Selection.Copy
Worksheets("Sayfa4").Range("E3:I15").Select
ActiveSheet.Paste

End Sub


Eksik kalan kısmı, I15 hücresinin 2.sayfa A sütunun son dolu hücreye göre belirlenmesi ve formülden kurtarıp, değerlerin yapıştırılması.

Ayrıca, Kullanacağım makro kodu, bir çok sayfada çok satırlı bilgi için kullanılacak, dolasıyla dosyayı kasmaması için daha kolay yazım şekli var ise önerinizi değerlendirebilirim.

 

[konas06]

Sorum günceldir.
Yapamadığım kısım,

Aşağıdaki kodda, I15 hücresini dinamik hale getirip, bunu 2.sayfa A sütunu son dolu satırını belirlemek.
örneğin 2.sayfa A Sütünu 15.satır ise burada da I15 olmalı
20.satır ise burada da I20 olmalı.



Sub aktaryeni()

Range("E3:I" & Rows.Count).Clear
Worksheets("Sayfa4").Select
Range("E2:I2").Select
Selection.Copy
Worksheets("Sayfa4").Range("E3:I15").Select
ActiveSheet.Paste

End Sub