diğer sayfadan veri çekme

[nes432]

mrb,

excelde epeydir kafama takılan bir formülleme sorunu var çözemedim elimde bi tablo var

A B C D E F G H I J K L M N -SÜTUNLARINA GORE
06 1253 16 KARABÜK
07 4325 12 SAKARYA
06 236 15 ANKARA
04 4256 42 BARTIN
05 425 2 ZONGULDAK
07 125 5 ZONGULDAK
04 236 25 ZONGULDAK
36 236 14 KARADENİZ
25 1236 17 ANKARA
şeklinde aşagı doğru devam eden verilerim var sayfa1 de sayfa 2 ye D sütunundaki verilere göre aktarmak istiyorum bu sayfasaki verileri örneğin karabük bartın zonguldak karadeniz sakarya olanları A sütunundan AD sütununa kadar bütün verilerini yan yana aktarsın istiyorum. örneğin ankarayı istemiyorum onu almayacak sayfadan.bu işlemi yaparken tek baz aldığım sütun d sütunu d sütununda almak istediğim veriden onlarca olabilir birer tane değil.bunların hepsini sayfa 2 ye alt alta sıralayacak yanlarına da sayfa1 deki bilgilerini getirecek.

 

[ZorBey_]

Merhaba Sayın nes432 iyi çalışmalar.
Örnek Dosya Ekleyebilirseniz
Cevap verecek arkadaşa yardımcı
olabilirsiniz.

 

[nes432]

sınırlı internet kullandığım için ekleme yapamıyorum izin vermiyor

 

[Excelmy]

Aşağıdaki kodları kullanabilirsiniz

Sub aktar()
With Sheets("Sayfa1")
    .Range("A1").AutoFilter Field:=4, Criteria1:="<>ANKARA"
    If .Range("A65536").End(3).Row > 1 Then
    .Range("A2:AD" & .Range("A65536").End(3).Row).Copy Sheets("Sayfa2").Range("A65536").End(3).Offset(1)
    MsgBox "Aktarıldı"
    Else
    MsgBox "Bulunamadı"
    End If
    .Range("A1").AutoFilter
End With
End Sub

 

[nes432]

TŞK EDERİM hata verdi..

 

[Excelmy]

Sayfa isimlerinizi kontrol edin.

 

[nes432]

sayfalara dikkat ettim doğru da 1004 diye hata veriyo

 

[Excelmy]

İnceleyin

http://s3.dosya.tc/server22/iryGNp/AKTAR.xls.html

 

[nes432]

tmm oldu tşk ederim sayfa isimlerinde harf hatası yapmışım