Seçmeli Sütun Aktarma

[sirkülasyon]

Es Selâmu Aleyküm
Bir sayfadan diğer sayfaya sütun aktarmak istiyorum. Ancak;

Seçilen Sayfa
Seçilen Sütunlar
Seçilen satır aralığı
----------------------------------------------------------
Aktarılan Sayfa
Aktarılan Sütunlar
Aktarılan satır aralığı
----------------------------------------------------------
gibi kullanıcıya seçme imkanı verecek şekilde butona bağlayarak aktarmak için yardımcı olabilmeniz mümkün mü?
Saygı ve hürmetlerimle

 

[GursoyC]

Örnek dosya eklerseniz yardımcı olunacaktır.

 

[sirkülasyon]

  Sayfa3.Range("A5:O65536").ClearContents
  sut = Sayfa3.Cells(5, Columns.Count).End(1).Column + 1
  Sayfa2.Range("A2:G32,J2:N32").Copy Sayfa3.Cells(5, sut)

Yukarıda yer alan kod ile sütunları aktarıyorum. Yalnız Sayfa2' de I sütununda "Görevli" yazanları aktar diye bir kriter nasıl ekleyebilirim?

 

[PLİNT]

Merhaba
Aşağıdaki gibi (H1 hücresi boş değilse ) filtreleyerek kopyalayabilirsiniz

  Sayfa3.Range("A5:O65536").ClearContents
  sut = Sayfa3.Cells(5, Columns.Count).End(1).Column + 1
Sayfa2.Range("A1:N32").AutoFilter Field:=9, Criteria1:="Görevli"
Sayfa2.Range("A2:G32,J2:N32").SpecialCells(xlCellTypeVisible).Copy Sayfa3.Cells(5, sut)
Sayfa2.AutoFilterMode = False

 

[sirkülasyon]

Sayın PLİNT
çok çok teşekkür ederim. Allah razı olsun.