Veri Aktarımı

[excelturk]

Değerli Arkadaşlarım Daha Önce bu konuda bir başlık açmıştım ama Sunucudaki veriler silindiğinden dolayı benzer örnekleri indiremiyorum. Ayrıca EXCEL 2007 kullanmaya başladımdığımdan dolayı makrolarda sorun yaşanıyor.

Üstadlarım Ekteki 3 örnekte (1.si 2003 versiyonuyla-2.2007 versiyonuyla ve 3.sü ise 2007 makro kaydı şeklindedir.Ayrıca daha önceki konudan kodlar yazılıdır.Bu kodları EXCEL 2007 verisyonuna uyarlanıp yeniden düzenlenmesi gerekmekdedir.Faturaların VERİ Sayfasındaki formatıyla (aynı formatta) firma isimlerine göre sayfalara aktar butonuna basınca makro yoluyla yeni sayfalara firma (sayfa isimlerine firma adı olacak şekilde) verinin dağıtılmasını ve dağıtılan sayfaların tutarlarının otomatik toplam olarak aldırmasını sağlayabilir miyiz.(Dağıtım yapıldıktan sonra sayfaların formatının aynı olması ve sütunlarının aralıkları sabit kalmasının sağlanması iyi olacak) .Ayrıca veri sasyfasına yeni veriler girilip sayfalara aktarma yapılınca önceki sayfaların silinmesi ve yeni veriye göre yeniden sayfalara verilerin dağıltılması sağlayabiliriz.

Ayrıca Excel 2003 sürümü ile hazırlanmış Verileri Sayfalara Firma Adına göre aktar.xls dosyasında aktarım yapabiliyorum ama tarihe göre yapıyor oysa ben firmalara göre aktarsın istiyorum.Kodlarda Cdate olan Kısmı Dfirm yapıyorum ama hata veriyor.Arkadaşlar acil olarak ilgilene bilir misiniz ?
Şimdiden herkese Teşekkürler

 

[halit3]

bir şeyler yapmaya çalıştım ama sen kendine göre uyarlamaya çalış ancak mutlaka bir tane fihriz sayfası şart firmaların isimlerini yazmak için birde isimlerin arasında "- " bu işaretleri kaldırman lazım çünkü bunları aksanlı görüyor algılamıyor hata veriyor

 

[excelturk]

İyi akşamlar Değerli üstatlar

Bu konu benin için oldukça önemli. Yani sizin anlayacağınız hayat-memat meselesi. Lütfen yardımcı olun. Hepinizden Allah Razı olsun şimdiden

 

[excelturk]

Bu konu gerçekten benim için önemli özellikle xls şeklindeki eklediğim ikinci dosyada düzenleme yapabilirsiniz makbule geçecek

İyi akşamlar

 

[halit3]

dosya aşağıdaki mesajda

 

[halit3]

ekli dosyayı incelermisiniz.

 

[excelturk]

Halit3 yardımınız için çok teşekkür ederim.Tam istediğim şekilde olmuş.Dosyanın sütunlarını kendime göre yeniden şekillendirdim.ve bazı sütunları kaldırıp bazı sütunları ilave ettim VE KODLARI yeni şekline uyarladım.şok güzel bir şekilde makrolar çalıştı.Ama bir problem var oda Şirket isimlerine göre sayfalara verileri aktarırken Uzun karakterli Şirket ünvanlarını (Şirketin ismi uzun olduğu durumlarda ) sayfalara aktarmıyor. Sanırım bunun nedeni karakter sayısının fazla oluşu veya bu tür Şirket isimlerinde "-" işareti ile ikinci bir isme devam edildiğinden dolayı Şirket sayısı artı kullanılan "-" işaret kadar boş sayfa açıyor ve döngüsel başvuruya neden oluyor. (ÖNEMLİ :Şirket isimlerini Kullanacağımız Muhasebe proğramına farklı kişiler tanımlama yapacağından dolayı "-"işareti ile ikinci isimlerde düzeltme ve yeniden tanımlama imkanımız yok Onun için Bu Şirket ünvanları bu şekliyle girilmeye devam edecektir.) Bunun için önceki konudaki dosyalara ilave olarak kendime göre uyarladığım dosyayı 2 farklı şekilde kaydedip yeniden upload ediyorum.Her iki dosyadaki Şirket isimlelerine dikkat edecek olursanız (Verileri Sayfalara Firma Adına göre aktar1 dosyasında bahsettiğim sorun var diper dosya olan Verileri Sayfalara Firma Adına göre aktar2 de bu sorun yok.) Bo konuda da bir çözüm bulabilirmiyiz .Şayet bulamaz isek Veri aktarımını Şirket Ünvanına göre değil ICAO Koduna göre yaparsak bu sorun çözülmüş olur mu ? Ama tercihim Şirket Ünvanına göre aktarılması yönünde .Bu arada ICAO koduna göre bende bir şeyler yapmaya çalışacağım. Yardımınızı bekliyorum.Bu pazaretsi günü bu sisteme geçeceğimiz için KONU ACİL SAYILIR.

Herkese teşekkür ederim.Hepinizden Allah razı olsun İyi akşamlar.

Not:Bu cevabı gönderdikten sonra yeni versiyonu ile dosyaları upload edeceğim.Bu makroyu EXCEL 2007 de çalıştırabilir miyim ? Şayet çalıştıramaz isem nasıl bir çözüm bulmam gerekir ?

 

[Korhan Ayhan]

Selamlar,

Veri aktarımını ICAO koduna göre yapmanızda fayda var. Sebebide firma isimleriniz 31 karakterden fazla ise excel bunu sayfa adı olarak kabul etmez. Bu sebeple kod hatalı çalışacaktır.

 

[halit3]

evet korhan ayhan beyin vermiş olduğu cevap doğrudur

bende dosyayı bu doğrultuda düzenledim sayfa isimlerini 31 karekter ile sınırladım

dosyanı aşağıda yeniden düzenledim

 

[excelturk]

Merhaba Halit3 Başını fazlaca ağrıtıp meşgül ediyorum ama senden son bir rica olacak . Korhan Beyin ve sizin mesajını gördükten sonra dosyayı ICAO koduna göre ayarlamaya çalıştım ama bir yerlerde sanırım hata yapıyorum.(Firma adına göre sınırlamada Firmaların İsmi uzun olduğu zaman sorun çıktığından dolayı Korhan Beyin Önerisine uyarak ICAO koduna göre aktarılması çok daha iyi olacak Çünkü ICAO Kodları EN FAZLA 15 karakter olarak tanımlanabildiğinden dolayı 31 Karakter sorunu kökten çözülmüş olacak) İlgili dosyayı ICAO koduna göre makrosunu yeniden yazabilir misin ? Benim gibi Makro işine merakla başlayan bir acemi caylağa yardımını esirmeyeceğini düşünüyorum.

Çok Teşekkür ederim.

 

[halit3]

dosyanı yeniden düzenledim

 

[kaptan129]

size bir sorum olacak acaba excel deki verileri listbox a nasıl atarım bunu kodunu bana verir misiniz çok önemli ödev götürmem lazım pazartesiye kadar ilgilenirseniz sevinirim.

 

[halit3]

sayın kaptan129 ben küçük bir örnek vereyim bunun bir sürü yolları var

ÖRNEK1 A1 hücresinden veri almak için

ListBox1.AddItem Cells(1, 1).Value

ÖRNEK2 A1den A30 a kadar veriler için

For i = 1 To 30
ListBox1.AddItem Cells(i, 1).Value
Next

ÖRNEK3 A1den AD1 e kadar veriler için

For i = 1 To 30
ListBox1.AddItem Cells(1, i).Value
Next

 

[excelturk]

Herşey için teşekkürler Halit Bey

 

[tgtd]

Ellerinize sağlık tam aradığım şeydi. Veriler aktarırken bazı hücrelerde renklendirme yapıyor. Aynı şekilde verileri aktarırken verilerin olduğu hücrelerde kenarlık çizilmesi ni istiyorum kodlarla bu işlem yapılabirlirmi?

 

[halit3]

dosya eki aşağıyadaki mesajda

 

[buseen]

Slm halit bey makroda
Range("B2:B65000")) + 1 ' göremi aktarıyor
degişe bilirmi nereleri degiştirmrm gerekir

 

[tgtd]

Sayın Halit Bey son bir istek aktarılan verilerin font ayarlarını nasıl yaparız. yazı boyutunu büyütmek küçültmek gibi

 

[halit3]

sayın buseen evet değişebilir
WorksheetFunction.CountA(Worksheets("VERİ").Range("B2:B65000")) + 1
bu kod B sutunundaki aktarılacak satır edetini veriyor

 

[halit3]

Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous
bukodun hemen altına aşağıdaki kodu koyunuz

Range("A2:G" & sat).Select
Selection.Font.Size = 10
Selection.Font.Name = "Tahoma"
Selection.Font.FontStyle = "Normal"
Range("A1").Select