AccessTr.neT

AccessTr.neT > Microsoft Excel > Excel Cevaplanmış Soruları > excelde verileri biçimi ile çekmek
Tam Versiyon: excelde verileri biçimi ile çekmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3

DUAYEN

18/05/2011, 08:29
Kod:
On local error resume next
With Sheets("sayfa1")
    .Range("A1:a" & .Range("a65536").End(3).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    .Range("A1:a" & .Range("a65536").End(3).Row).Copy Sheets("sayfa2").Range("a1")
    .ShowAllData
err.clear
End With


bu kodu denermisiniz.

leydies81

18/05/2011, 17:20
yazdığınız kodu pek anlayamadım. sayfa1 verilerin olduğu yer sayfa2 ise verilerin biçimleri ile birlikte aktarılacağı yer mi oluyor. ayrıca sayfa1 deki a1den a65536ya kadar olan alanı sayfa2ye a1den a65536ya kadarmı kopyalıyor. umarım doğru anlamışımdır Img-grin
birde gönderdiğiniz kodu benim hazırladığım kod satırının neresine yerleştireyim. benim kod satırımdan neresini sileyim onuda söylerseniz sevinirim. çünkü sizin kodu tek başına yazdığımda hiçbir şey olmadı

DUAYEN

18/05/2011, 19:29
Sn;Leydies81 sizin yapacagınız sayfa isimlerini ve a1 ve a65536 olanı değiştirmeniz ve kendi programınıza göre uyarlamanız.

ercansahin

19/05/2011, 00:04
Lütfen konuları doğru yerlerde açalım. Excel konusunu Access Soruları ve Cevapları bölümüne açmışsınız.

Not: Doğru yere aktarılmıştır.

leydies81

20/05/2011, 07:54
duayen bey yazdığın kod da çalışmadı. yad ben yapamadım. yinede teşekkürler.

Olcay

20/05/2011, 17:03
Sn:leydies81
İstediğinizi özet tablo ile yapabilirsiniz.
Sayfalar: 1 2 3
AccessTr.neT > Microsoft Excel > Excel Cevaplanmış Soruları > excelde verileri biçimi ile çekmek