Sayfa kopyalamadaki olusan cerceve

[kaleci]

Sayin arkadaslar,

Asagidaki Kod ile Sayfa1 deki ("A1:F35")' i Sayfa2 ye kopyaliyorum. Kodu calistirdigimda Sayfa1 de kopyalanilacak kisim kücük kesik cizgiler ile cerceve icerisine aliniyor ve sayfa2 ye kopyalaniliyor. Ama kopyalamadan sonra sayfa1 deki cerceve aktif olarak kaliyor. Herhangi bir hücreye tiklarsam gidiyor. Aslinda bir problem yok, ama bu cerceve kopyaladiktan sonra sayfa1 de nicin aktif olarak kalsin. Bunu nasil yok edebiliriz?

Sub SayfayiKopyala()
Worksheets("Sayfa1").Range("A1:F35").Copy
Worksheets("Sayfa2").Paste Destination:=Worksheets("Sayfa2").Range("A1")
Worksheets("Sayfa1").Range("A1").Select
End Sub

Saygilarimla
Kaleci

 

[DemirKemal]

Sub SayfayiKopyala()
Worksheets("Sayfa1").Range("A1:F35").Copy
Worksheets("Sayfa2").Paste Destination:=Worksheets("Sayfa2").Range("A1")
Sheets("Sayfa1")
Application.CutCopyMode = False
Worksheets("Sayfa1").Range("A1").Select
End Sub

eğer sorunuzu yanlıs anlamadıysam yukarıdaki kod işinizi görecektir.

 

[kaleci]

Sayin DemirKemal,

ilginize tesekkür ederim. Sizden de bir sey daha ögrendim. Bilginizi diger insanlarla paylasmanizi cok önemsiyorum.

Arkadasim affina siginarak kodun 3. satirini Sheets("Sayfa1") sildim. Herhalde silmek gözünden kacti. Belki bir baska arkadasada lazim olursa zorluk cekmesin.

Sayin DemirKemal,
Formda kodlari cerceve icerisinde gösterebilmek icin veya yazilari büyük, kalin, renkli yazmak icin, nereye giriyorsun. Bu özellik penceresi nerede, ben göremedim.

Sub SayfayiKopyala()
Worksheets("Sayfa1").Range("A1:F35").Copy
Worksheets("Sayfa2").Paste Destination:=Worksheets("Sayfa2").Range("A1")
Application.CutCopyMode = False
Worksheets("Sayfa1").Range("A1").Select
End Sub

Saygilarimla
kaleci

 

[alpi]

Sayfanın en üstündeki Hızlı Linkler/Seçenekleri Düzenle'yi seçin Seçeneklerinizi buradan ayarlayabilirsiniz.

 

[kaleci]

Sayin alpi,

tesekkür ederim.

Sayfanın en üstündeki Hızlı Linkler/Seçenekleri Düzenle'yi seçin Seçeneklerinizi buradan ayarlayabilirsiniz.

Saygilarimla
kaleci