çift tıkla veri aktar

[sevensuleyman]

kolay gelsin;

örnek te belirttiğim excel ldosyasında a stunundaki stok koduna çift tıkladıgımızda ilgili verileri diğer sayfaya aktarılmasını istiyoruz. mümkünse birden fazla stok kodu hücresi seçildinde hepsini aktarmasıdır. üstadlardan yardım bekliyorum şimdiden teşekkürler

 

[Necdet]

Merhaba,
Soru ne kadar net olursa yanıt da o kadar net olur.
1. Çift tıklama sadece bir hücrede olur ve gereksiz yazışmalardan kurtulunur.
2. Birden fazla da olmasını istiyorsunuz, bu nasıl olacak?
3. Aktarım sayfanın sonuna mı olacak, yoksa silerek mi aktaracak?

 

[sevensuleyman]

Merhaba,
Soru ne kadar net olursa yanıt da o kadar net olur.
1. Çift tıklama sadece bir hücrede olur ve gereksiz yazışmalardan kurtulunur.
2. Birden fazla da olmasını istiyorsunuz, bu nasıl olacak?
3. Aktarım sayfanın sonuna mı olacak, yoksa silerek mi aktaracak?

silerek aktarmamız gerekiyor. o anlık seçmiş oldugumuz satırlar istenilen hücrelere aktarmamız gerekiyor.
yardımcı olursanız sevinirim

 

[Necdet]

Merhaba,
Aşağıdaki kod süzdürülen veriyi diğer sayfaya aktarır.
Kodda sayfa indisini kullandım.

Sub Macro1()

Sayfa2.UsedRange.ClearContents
Sayfa1.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Sayfa2.Range("A1")

End Sub