Biray3550
Altın Üye
- Katılım
- 29 Mayıs 2021
- Mesajlar
- 48
- Excel Vers. ve Dili
- Microsoft Office Professional Plus 2021
- Altın Üyelik Bitiş Tarihi
- 29-05-2026
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
İ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