excelde sayfadan veri çekme

[rauben]

merhaba ekteki dosyada sheet2 deki f sütununda bulunan değerleri sheet1 deki b sütunundaki IP yi arayıp bulan ve bulduğu ıpye ait tüm satırı sheet3 d kaydedecek ve kaydettiği satırı sheet1 den silecek bu işlemi tüm dosya için yapabilecek bir yönteme ihtiyacım var. yardımlarınız için şimdiden teşekkürler

 

[matriks]

Düşeyara formülü ile yapılabilir gibi geliyor...

 

[rauben]

düşeyara ile buluyoruz ama diğer sayfaya kaydettikten sonra kopyaladığımız satırı ilk sayfadan nasıl sildireceğiz

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub araaktar()
Sheets(3).[a:f].Clear
For t = 2 To Sheets(2).[a65536].End(3).Row
Set bul = Sheets(1).Columns("b").Find(Sheets(2).Cells(t, "f"))
If Not bul Is Nothing And Sheets(2).Cells(t, "f") <> Empty Then
c = c + 1
Sheets(1).Rows(bul.Row).Cut Destination:=Sheets(3).Rows(c + 1)
End If
Next
End Sub

 

[rauben]

çalıştırdım ama olmadı. dosyayı tekrar ekledim. sayfa2 deki IP yi sayfa 1 de bulacak ve o IP ye ait satırı sayfa3'e kaydettikten sonra sayfa1 den o satırı silmek istiyorum.

 

[hamitcan]

Yukar&#305;daki kodu g&#252;ncelledim.

 

[rauben]

saol arkadaşım tam istediğim gibi çalıştı

 

[matriks]

Merhabalar;
Makrolar ba&#351;l&#305;&#287;&#305;nda konu a&#231;t&#305;m ama, belki de bu ba&#351;l&#305;k alt&#305;nda sormam gerekir diye buraya sorunumu yaz&#305;yorum.Tekrar i&#231;in &#246;z&#252;r dilerim. A&#351;a&#287;&#305;daki linkte &#246;rnek dosyada bulunmakta.

http://www.excel.web.tr/showthread.php?t=37346

Belirtilen tarihe g&#246;re sayfadan buna denk d&#252;&#351;en de&#287;erlerin 40 g&#252;n &#246;ncesi ve varsa 40 g&#252;n sonras&#305; de&#287;erlerini eklemesini bir t&#252;rl&#252; nas&#305;l yapabilece&#287;imi bulamad&#305;m. Forumda arama yapt&#305;m ancak buna benzer bir konu da bulamad&#305;m.