Skip to main content

AccessTr.neT


excelde verileri biçimi ile çekmek

excelde verileri biçimi ile çekmek

Çözüldü #7
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.
Son Düzenleme: 18/05/2011, 08:29, Düzenleyen: DUAYEN.
Cevapla
Çözüldü #8
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ı
Son Düzenleme: 18/05/2011, 17:24, Düzenleyen: leydies81.
Cevapla
Çözüldü #9
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.
Cevapla
Çözüldü #10
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.
Cevapla
Çözüldü #11
duayen bey yazdığın kod da çalışmadı. yad ben yapamadım. yinede teşekkürler.
Cevapla
Çözüldü #12
Sn:leydies81
İstediğinizi özet tablo ile yapabilirsiniz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da