Çözüldü Aktarma kodu

Aşağıda yapmak istediğimi listeledim,
Oluşturabildiğim de bu kadarı ancak eksiğim var yardımcı olur musunuz

Sub aktar()

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

YAPILMAK İSTENEN
E3 DEN I 100000 E KADAR TEMİZLENECEK
E2 DEN I2 YE SEÇİP KOPYALAYACAĞIZ
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
SON SATIRIN NEREYE KADAR OLACAĞI 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.

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

konas06' Alıntı:

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

Genişletmek için tıkla ...

Yanlış anlamadıysam aşağıdaki şekilde olması yeterlidir.

İyi Çalışmalar.

Worksheets("Sayfa4").Range("E3:I" & Sayfa1.Range("A90000").End(xlUp).Row).Select

Her şeyden önce ilginiz için teşekkürler.
Evet bunu kullanabilirim.
Ancak (Sayfa1 A Sütunu son dolu hücre adresini) değişken tanımlamak suretiyle bir çok kodda kullanmayı umuyordum.
Daha kolay olmaz mı (kodların çalışması bakımından)

Son dolu satırın adresini mi tespit etmek istiyorsunuz? Yoksa sayısını mı?
Yapılmak istenen tüm durumu kestiremediğim için yazılan kodları incelemeden çözüm üretmeye çalıştım.

Bilginize sunarım.

Sayısını.
Ürettiğiniz çözüm doğru teşekkürler.
Selamlar.