Sayfa1 den Sayfa2 ye aktarma

[sirkülasyon]

Sub aktar()
Sheets("Sayfa1").Range("c26:K45").Copy
Sheets("Sayfa2").Activate
For Each hcr In Range("b23:J42")
If hcr.Column > 20 Then GoTo bitti:
If hcr = "" Then GoTo son:
Next
son:
hcr.Select
ActiveSheet.Paste
bitti:
MsgBox "Kayıt Sonu!!!", vbInformation
End Sub

Yukarıda ki kod BEDERSU abime ait olan kod idi kendime göre düzenledim. Ancak Sayfa1 den sayfa2 ye aktarırken aktarma sayfa1 kopyala şeklinde kalıyor. Kalmaması için ne eklemeliyim ya da neyi çıkarmalıyım.

 

[RONIN1]

Merhaba

Biraz tembel işi olacak ama aşağıdaki şekilde kullanırsan düzelecektir.

iyi çalışmalar

Sub aktar()
Sheets("Sayfa1").Range("c26:K45").Copy
Sheets("Sayfa2").Activate
For Each hcr In Range("b23:J42")
If hcr.Column > 20 Then GoTo bitti:
If hcr = "" Then GoTo son:
Next
son:
hcr.Select
ActiveSheet.Paste

Application.CutCopyMode = False

bitti:
MsgBox "Kayıt Sonu!!!", vbInformation
End Sub

 

[sirkülasyon]

Teşekkür ederim RONIN abi

 

[seyyahali]

merhaba kolay gelsin benim bir sorunum var bütün öceki aylarda diğer sayfalardaki bir önceki sayfayı getirdim ancak aralık2012 deki satırları ocak 2013'ye getiremedim. 2013 de ayın 1 inde satış varsa 2012 aralıktaki ayın birindeki satışı getirmesini istiyorum...

 

[bKzZz]

peki ben şöyle bir şey soracağım. sayfa 1 ve sayfa 2 de veriler var örneğin sayfa1 de elma armut ayva var sayfa 2de ise sadece elma ve armut var işte benim yapmak istediğim şey bu iki sayfada farklı olan şeyi yani ayvayı 3. sayfaya yazdırmak bu mümkün müdür?

 

[seyyahali]

örnek gönderirsen bir sana zahmet....

 

[bKzZz]

buyur kardeşim dosyada ayrıntılı bir şekilde anlattım olayı teşekkürler ilgin için.

 

[turist]

Kaydet Makrosu ile bir çalışma ekli dosyadadır.
Üstadlar daha pratik birşey yapabilirler.

Kolay gelsin...

 

[ugurcoskun]

Örnek dosya yüklerseniz yardımcı olabilirim.

 

[bKzZz]

Örnek dosya yüklerseniz yardımcı olabilirim.

Örnek dosya ektedir kardeşim.İçinde Ayrıntılı Bir Biçimde Anlattım Ne Yapılması Lazım diye.Ancak şöyle bir sorun var bu örnek dosyada örneğin z5 hücresine farklı bir değer girdiğimizde bunu karşılaştırmaya almıyor benim istediğim A1:Z50 hücreleri arasında girilebilecek herhangi bir değeri karşılaştırmaya almak.