Dolu satırları resim olarak kopyala.

[Biray3550]

Merhaba, Aşağıdaki macro ile kopyalama yapabiliyorum. Fakat ben sadece daha geniş alan içinde dolu satırları kopyalamasını istiyorum.
İlginiz için teşekkür ederim.

Sub Resimkopyala2()


Dim pic_rng As Range, LstRw As Long
Dim sh As Worksheet, ws As Worksheet

Set sh = Sheets("x")
Set ws = Sheets("Resim")
Set pic_rng = sh.Range("A1:h20")

With ws
.Select
LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row + 3
pic_rng.Copy
.Cells(LstRw, 1).Select



Sheets("Resim").Range("m10").Select
ActiveSheet.Pictures.Paste(Link:=True).Select
.Cells(LstRw - 1, 1).Select
End With

End Sub

 

[Biray3550]

Güncel

 

[Seyit Tiken]

Örnek dosyayı inceleyiniz, istediğiniz böyle bir şey mi? (Çift Tıklama)

 

[Biray3550]

Dolu satırları kopyalayıp whatsapp'a atacağım.

 

[Biray3550]

Bu attığınız olmadı.

 

[Biray3550]

Tamam çözdüm teşekkür ederim.

 

[Seyit Tiken]

Nasıl Çözdünüz?, bir hayır yapın da vatandaş faydalansın.

 

[Biray3550]

Siteden sadece kopyala macosu buldum kopyala yapınca whatsapp'a resim olarak atıyor işimi gördü . Çok teşekkür ederim.

Dim Say As Integer
Say = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:G" & Say).Copy