"b"sütununda "izmit"değeri olan tüm satırların kopyalanması,"sayfa"2 ye yapışması

[hakansali]

"b"sütununda "izmit"değeri olan tüm satırların kopyalanması,"sayfa"2 ye yapışması

Selamlar arkadaşlar,
eminim sizler için basittir ama aradığım ancak bulamadığım bir konu var;
"sayfa 1" de "B" sütununda özel bir değer arayarak (İZMİT) bu değerlere ait tüm satırları kopyalamasını ve "Sayfa 2" ye A1 den itibaren yapıştırması... yardımcı olan üstada şimdiden teşekkürler.

Not: bu komutu makro içine koyacağım, komut düğmesi vs olarak yazmazsanız sevinirim.

herkese iyi çalışmalar.

 

[EXTRANET]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:]) Is Nothing Then Exit Sub
Call arama(Target, Target.Column)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[EXTRANET]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:]) Is Nothing Then Exit Sub
Call arama(Target, Target.Column)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

dosya ekleidm belki işini görür

 

[hakansali]

ilgilenen arkadaşlarıma çok teşekkür ederim, ancak istediğimi tam sanırım alamadım. aşağıdaki şekilde konuyu tekrar belirtmek istedim, muhtemelen derdimi anlatmakta eksik kaldım.


İŞLENECEK VERİ -SAYFA1 TÜM VERİLER BAŞLANGICI (A1);
A SÜTUN B SÜTUN C SÜTUN
ali istanbul 5
veli izmir 4
ihsan istanbul 2
ömer ankara 2
cenk adana 4
hakan istanbul 3


*BU VERİNİN "İSTANBUL" DEĞERLİ SATIRLARI KOPYALANACAK;
*KOPYALANDIKTAN SONRA, YAPIŞTIRACAK;


MAKRO SONRASI VERİ -SAYFA2 TÜM VERİLER BAŞLANGICI (A1);
A SÜTUN B SÜTUN C SÜTUN
ali istanbul 5
ihsan istanbul 2
hakan istanbul 3


Durum bu arkadaşlar, yeniden ilgilenmiş ve ilgilenecek arkadaşlara teşekkürler, iyi çalışmalar.

 

[hakansali]

az önce attığım mesajta hata olmuş, belirtmek istedim, her bir veri ayrı sütun hücrelerinde, ali(a1) istanbul(a2) 5 (a3) gibi....

 

[hakansali]

PARDONNN
az önce attığım mesajta hata olmuş, belirtmek istedim, her bir veri ayrı sütun hücrelerinde, ali(a1) istanbul(b2) 5 (c3) gibi....

 

[EXTRANET]

dosya eklenem en mantıklısı,

bu kadar detayayı anlamaya zaman ayıran varmı bilemiyorum.:roll:

 

[hakansali]

örnek dosya ekte arkadaşlar,
almak istediğim sonuç sayfa 2 dedir.

 

[Necdet]

Merhaba,

Süzdürülen verinin aktarılmasını inceleyiniz. Aşağıdaki linke 7. nolu mesaj.

http://www.excel.web.tr/f48/suzme-y...o-ile-dioer-sahifeye-aktarylmasy-t109473.html