Excel de bir sayfaya girilen değerlerin bir başka yerde sÃ

[gaziss]

İyi çalışmalar,
Emeği geçen herkesin eline sağlık.
Bir sorum olacak, cevaplar için şimdiden teşekkür ederim.

Excel de örneğin 1. sayfaya bazı değerler giriyorum ve nu değerlerin bir başka yerde, örn. 2.sayfada sıralanmasını istiyorum. 1. bilgiler için bir makro yapıyorum basitçe copy/paste gibi ancak sonraki işlemleri de sıralamak isteyince bir önceki bilgiyi silerek yenilerini yazıyor. Silinmeden bir sonraki boş satıra kaydedebilir miyim?nasıl?
:shock:

 

[isakarakus]

Merhaba, Hoşgeldiniz
:hey:

makrono şunu ekle.

örneğin 2.sayfada A sutununda sıralatıyorsan
range("A1").select
Selection.End(xlDown).Select


sonra yapıştırma işlemi

 

[Hüseyin]

Merhaba,
foruma hoşgeldiniz.
Yaptığınız çalışmayı da eklerseniz daha çabuk yol alırız.

 

[Levent Menteşoğlu]

Bu durumda makroya en sondaki dolu satırın hangisi olduğunu tanımlamak gerekir. Bunun çeşitli yolları vardır,örnek bir dosya eklerseniz onun üzerinden gitmek daha mantıklı.

 

[isakarakus]

evet SN. leventm haklısınız.
sizin mesajdan sonra yadığım kodun eksik olduğunu da fark ettim.

Range("A1").Offset(1,0).Select

 

[gaziss]

Acemiliğimi hoş görün. Yukarıda belirtilenleri denedim ancak 2. sayfada B sütunu son hücreye geliyor ve "hedef seçip enter tuşuna basınız" şeklinde uyarı geliyor.
1.sayfada A1,B1,C1 hücrelerine girilen bilgiler 2. sayfada yine aynı veya farklı satırlara yazılacak. 2. ve sonraki girilen bilgiler 2. sayfada alt alta kaydedilecek.
Yardımlara teşekkürler

 

[danersin]

sheet("ikincisayfanızınismi").Range("A1").Offset(1,0).Select

ile ikinci sayfada (A sütununu kullandığınız varsayılarak, kullanmıyorsanız yukarıdaki A sütununu değiştirin.) dolu satırdan sonra gelen ilk boş satırı seçmiş olursunuz. Bunun sorununuzu çözüyor olması gerekir. Problem varsa bir dosya eklemeniz mümkünmü.

 

[idogus]

2. sayfada yine aynı veya farklı satırlara yazılacak.

Aynı mı farklı mı ? :?

 

[Levent Menteşoğlu]

Þöyle deneyin.
[vb:1:1f56588db7]say = WorksheetFunction.CountA(Sheets("sayfa2").Range("A1:A65536"))
Sheets("sayfa1").Range("A1:C1").Copy
Sheets("sayfa2").Range("A" & say + 1).PasteSpecial
Application.CutCopyMode = False[/vb:1:1f56588db7]

 

[gaziss]

Basitçe cop/paste üzerinden bir makro yaptım ve bilgiler aşağıda olduğu gibi çıktı.
Buna göre nereleri düzenlemk gerekiyor.?
Sub TEST()
'
' TEST Macro
' Macro recorded 08.03.2005 by 6276
'

'
Range("A3:C3").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A3:C3").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Application.CutCopyMode = False
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

Sub TEST()
say = WorksheetFunction.CountA(Sheets("sayfa2").Range("A3:A65536"))
Sheets("sayfa1").Range("A3:C3").Copy
Sheets("sayfa2").Range("A" & say + 3).PasteSpecial
Application.CutCopyMode = False
End Sub

 

[isakarakus]

özür dilerim arkadaşlar...

evet SN. leventm haklısınız.
sizin mesajdan sonra yadığım kodun eksik olduğunu da fark ettim.

Range("A1").Offset(1,0).Select

burada da yanlış yapmışım. şimdi fark ettim.
kaş yapim derken gözlere ziyan....

şöyle olması gerekli..

Selection.End(xlDown).offset(1,0).Select

Selection.End(xlDown).Select ':Seçilen listenin en son satırını seçer
selection.offset(1,0) 'bir sonraki satırı seçer..