Çözüldü Son Dolu Satırı Kopyala

[Hsn55]

Merhabalar;
Ekli dosyada üs yazı sayfasında E7:L23 hücre aralığındaki son dolu satırı nasıl kopyalarız. Ekli makro tüm aralığı kopyalıyor. Benim istediğim son satırı kopyalaması. Yardımıcı olursanız sevinirim
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[arzuhalci]

makronuzda E7:L23 aralığı seçip istediğiniz yere gidipentere bastığınızda tammaını kopyalıyor son satır neresi ne kopyalanacak basit örnek veriniz

Sub ÜSTYAZI_SON_SATIR()

Dim S1 As Worksheet
Dim sonSatir As Long

Set S1 = Sheets("üs YAZI")
sonSatir = S1.Range("K" & S1.Rows.Count).End(xlUp).Row
If sonSatir > 23 Then sonSatir = 23
S1.Range("E" & sonSatir & ":L" & sonSatir).Copy

End Sub

 

[Hsn55]

Sayın Arzuhalci E7:L23 hücre aralığında en son dolu olan satır kopyalanacak. Örnekte En son dolu satır 15 inci satır buraya kadar olanı kopyalayacak. Formül 23 satıra kadar olmasına rağmen veri 15 satırda olduğu için buraya kadar olan kısım kopyalanacak

 

[arzuhalci]

deneyiniz

 

[arzuhalci]

3 nolu mesaj iptaldir dikkate almayınız

 

[Alpi]

Eğer hemen bir yere yapıştıracaksanız aşağıdaki kod ile daha kısa bir şekilde yapabilirsiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Hsn55]

3 nolu mesaj iptaldir dikkate almayınız

Sayın Arzuhalci birlel-ştirlen hücelerşn aynı boyutta olması gerekyor diye hata verdi

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Hsn55]

Eğer hemen bir yere yapıştıracaksanız aşağıdaki kod ile daha kısa bir şekilde yapabilirsiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Sayın Alpi Son dolu satır kopyalanması gerekiyor. (Veri Olan)

 

[Alpi]

Kopyaladıktan sonra, kopyalanan verileri ne yapacaksınız? Söylerseniz ona göre daha pratik çözüm bulunabilir.

 

[arzuhalci]

5 nolu mesaj çalışmaktadır hatada vermemektedir kursor neredeyse kopyala dediğinde veri olan tüm satırları kopyalama yapmaktadır. üç nolu mesaj iptal diye yazdımya dikkate alma

 

[Hsn55]

Kopyaladıktan sonra, kopyalanan verileri ne yapacaksınız? Söylerseniz ona göre daha pratik çözüm bulunabilir.

Web sayfasına yapıştıracağım

 

[Hsn55]

5 nolu mesaj çalışmaktadır hatada vermemektedir kursor neredeyse kopyala dediğinde veri olan tüm satırları kopyalama yapmaktadır. üç nolu mesaj iptal diye yazdımya dikkate alma

Sayın Arzuhalci ekli hatayı veriyor. Kopyalanacak alan doğru. Ben bu kopyaladığımı elektronik yazışma programına Ctrl+v ile yapıştıracağım. 5.Nolu Mesaj

 

[arzuhalci]

 

[Hsn55]

Gene aynı hatayı veriyor

 

[arzuhalci]

kopyalama yapmak için kursoru bir hücre üzerinde tut ve kopyala de bu kadar kopyalama yapılacak olan yerde veri olmasın üst üste yazmaya kalkınca böyle hata verebilir aynı dosyyaı tekrar paylaştım bende hata vermiyor

 

[Hsn55]

Sayın Alpinin yapmış olduğu makro işimi görüyor. Fakat tümünü kopyalıyor. Sadece veri olan satırı kopyalasa tamam olacak
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Alpi]

Web sayfasına yapıştıracağım

Bu kodu deneyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Hsn55]

Bu kodu deneyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Sayın Alpi ve sayın arzuhalci çok teşekkür ederim.