Skip to main content

AccessTr.neT


Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma

Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma

Çözüldü #1
Ekteki örnekte Access dosyasında tablodan excele veri aktarılıyor. Aktarılan verilerin bazılarının sütun başlıklarını yukarı yönde yazdırmak için kodlarda nasıl bir düzenleme yapmalıyım. Hatta Alt+Enter ile yapıldığı gibi uzun sütun başlıklarını 2 veya 3 satır halinde yazdırmak için bir yol var mıdır?
.rar Örnek Accessten Excele.rar (Dosya Boyutu: 32,86 KB | İndirme Sayısı: 4)
.rar Kitap1.rar (Dosya Boyutu: 9,54 KB | İndirme Sayısı: 2)
Cevapla
#2
sayın hturkavci03,


EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.
.rar Örnek Accessten Excele-ATOZ.rar (Dosya Boyutu: 43,69 KB | İndirme Sayısı: 20)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Üstadım çok teşekkür ederim emeğinize. Yalnız benim istediğim şekil exceldeki gibi aşağıdan yukarıya istikamette yazdırmak idi ve örneğimde de bu şekilde açıklamıştım. İki satır olayı istediğim gibi olmuş, yöntemi de öğrendiğime göre bundan sonraki çalışmalarımda kullanacağım.
Cevapla
#4
Merhaba;

örneğinize bir göz atayım dedim excele aktarma başarılı ve güzel olmuş. Küçük bir öneride bulunmak istedim. Tüm satırları yazdırdıktan sonra çizgileri çizme işini tek tek yaptırmışsınız. bunu yerine aşağıdaki düzeltmeyi gerekli yere koyarsanız. bir kerede çizgiler çizilir ve Excel sonlanma noktasında çoklu kayıt aldığınızda size zaman kazndırır. İyi Akşamlar.

Kod:
'Hücrelere tablo çizdiriyoruz...
SATIR = "A": SÜTUN = "O"
For Xi = 3 To i - 1
SATIR = "A" & Xi
SÜTUN = "O" & i - 1 'Xi
SÜTUN.Select
SYF.Range(SATIR, SÜTUN).Borders.LineStyle = xlContinuous ' Hücre çerçeve içine alınıyor tablo çiziliyor
SYF.Range(SATIR, SÜTUN).EntireColumn.AutoFit 'Hücre veriye göre genişletiliyor
Next
'Tablo çizim işlemi tamamlandı

POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#5
Pardon bir önceki mesajda döngüden çıkartmayı unutmuşum.  kullanılacak kodlar.

Kod:
'******************************************************************************************
'Hücrelere tablo çizdiriyoruz...
SATIR = "A": SÜTUN = "O"
Xi = 3
SATIR = "A" & Xi
SÜTUN = "O" & i - 1 'Xi
SÜTUN.Select
SYF.Range(SATIR, SÜTUN).Borders.LineStyle = xlContinuous ' Hücre çerçeve içine alınıyor tablo çiziliyor
SYF.Range(SATIR, SÜTUN).EntireColumn.AutoFit 'Hücre veriye göre genişletiliyor
 
'Tablo çizim işlemi tamamlandı

POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#6
Üstadım, çok teşekkür ederim. Gerçekten çok hızlı tablo oluştu. Çok fazla veri söz konusu olduğunda çok daha faydalı olacaktır.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da