Sayfadaki Fare ile seçilen verileri Yeni Çalışma Sayfa Aktarmak

[haqan]

Selamlar;

Ek de Yüklediğim excel de örnek olarak sarı ile işaretlediğim bölümleri müşterimiz belirli dönemlerde excel olarak istiyor, tarihler arası seçili alanları yeni excel olarak mail istiyor kopyala yapıştır yapmak zaman alıyor bazende unutuluyor bu durumu hızlandırmak isteriz.

Sayfa1 de ki fare ile seçilen verileri Aktar Butona tıklayarak Yeni Kitap1 (Yeni Çalışma sayfası ) na aktarmak isteriz.

Teşekkürler

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
Dim alan As Range
Set alan = Selection
alan.Copy Workbooks.Add.Sheets(1).Range("A1")
End Sub

 

[haqan]

Merhaba,
Deneyiniz...

Sub kod()
Dim alan As Range
Set alan = Selection
alan.Copy Workbooks.Add.Sheets(1).Range("A1")
End Sub

ÖmerBey
ÇOK ÇOK TEŞEKKÜRLER;

ek ilave bi ricam daha olsa ilk mesajımda yazmayı unutmuşum ek olarak = göndermiş olduğum tabloda tablo başlıklarını ni (sarı olarak işaretlediğim başlıklar) ı da aktarabilir miyiz acaba.

 

[ÖmerBey]

Rica ederim,
İsteğiniz için Set alan = Selection satırını aşağıdaki ile değiştirip deneyiniz.

Set alan = Union(Intersect(Selection.EntireColumn, Range("2:2")), Selection)

İyi çalışmalar...

 

[haqan]

Rica ederim,
İsteğiniz için Set alan = Selection satırını aşağıdaki ile değiştirip deneyiniz.

Set alan = Union(Intersect(Selection.EntireColumn, Range("2:2")), Selection)

İyi çalışmalar...

Üstadım ellerine sağlık, Gözlerine ışık olsun Çok teşekkür ederim. süper oldu.