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?
Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma
sayın hturkavci03,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Ü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.
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.
ö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.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
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.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Ü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.
Konuyu Okuyanlar: 1 Ziyaretçi