AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

excelde verileri biçimi ile çekmek

1 2 3
18/05/2011, 08:29

DUAYEN

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.
18/05/2011, 17:20

leydies81

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 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ı
18/05/2011, 19:29

DUAYEN

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.
19/05/2011, 00:04

ercansahin

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.
20/05/2011, 07:54

leydies81

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

Olcay

Sn:leydies81
İstediğinizi özet tablo ile yapabilirsiniz.
1 2 3