Makro ile Alan Seçip Kopyalama

[Epakambalaj]

Excel Versiyonu

Excel 2010

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Hayırlı akşamlar üstadlarım

örnek dosyada belirttiğimiz şekilde;
H sütununda herhangi bir hücreye "K" yazdığımızda,
soldan 6 sütunundan, alta doğru 36 satırı seçip kopyalamasını istiyoruz

böyle bir makro mümkün müdür?

ilginiz için şimdiden çok teşekkür ediyorum

 

Veri Aktarımda Sonrasında Satır Kaydırma

Alfabetik Sıralama ve Satır Temizleme

[Epakambalaj]

P de yazdırır.
K da koplayar.

Görüntülemek için giriş yapmanız gerekmektedir.
(25 satır)

hocam yazdığınız formülü deneme yanılma yoluyla biraz sadeleştirdim
emeğiniz için tekrar teşekkür ediyorum
hürmet ederim

Private Sub Worksheet_Change(ByVal Target As Range)
If sutun = 8 Then Exit Sub

If Target = "w" Then
Range(Cells(Target.Row, "B"), Cells(Target.Row + 35, "G")).Select

Selection.Copy

ElseIf Target = "y" Then
Range(Cells(Target.Row, "B"), Cells(Target.Row + 35, "G")).Select

PageSetup.PrintArea = Selection.Address
PrintOut copies:=1
PageSetup.PrintArea = ""
End If

End Sub

 

[okutkan]

If sutun = 8 Then Exit Sub bu satır hatalı olmuş. 'sutun' diye yazmışsınız fakat bu ismin kodunuzda herhangi bir şeyi ifade etmediği için aşağıdaki kodlar her zaman çalışacaktır.

Birde önceki koddaki selection.count komutunu sildiğiniz için çoklu hücre seçimlerindeki silme işleminde hata alabilirsiniz.
Önceki iki koşulu kullanmanız daha doğru olur.

 

[Epakambalaj]

If sutun = 8 Then Exit Sub bu satır hatalı olmuş. 'sutun' diye yazmışsınız fakat bu ismin kodunuzda herhangi bir şeyi ifade etmediği için aşağıdaki kodlar her zaman çalışacaktır.

Birde önceki koddaki selection.count komutunu sildiğiniz için çoklu hücre seçimlerindeki silme işleminde hata alabilirsiniz.
Önceki iki koşulu kullanmanız daha doğru olur.

teşekkür ediyorum hocam,
yazdığınız koddan devam edeyim

 

[Epakambalaj]

hocam yazdığınız kod gayet güzel çalışıyor

fakat mevcut kodun içerisine uyarlayamadım
yardımcı olmanız mümkün müdür?

 

[okutkan]

Ekledim fakat deneme yapmadım. Deneyip geri dönüş yaparsınız.

 

[Epakambalaj]

@okutkan
ellerinize sağlık hocam
çok teşekkür ediyorum