• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Farklı Düzen ve Formattaki Sayfalardan Standart Bir Database Yapmak

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
J

Jeeday

Yeni Üye
Katılım
22 Kas 2021
Mesajlar
46
Çözümler
1
Aldığı beğeni
5
Excel V
Office 2016 EN
Konu Sahibi
Merhaba arkadaşlar,

Elimde oldukça fazla xls uzantılı oluşturulmuş ve birbirinden farklı görünümlü dosyalar var. Farklı görünüm derken; satırlar kaymış var, sütunlar kaymış olan var, gereksiz açılmış satırlar var vs vs... Örneği aşağıdaki görselde mevcuttur...

Yapmak istediğim bu dosyaları tek tek açarak verileri en alttaki tablo haline getirmek...

Yardımlarınızı rica ederim.

1642519827556.png
1642519846467.png
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Jeeday' Alıntı:
Merhaba arkadaşlar,

Elimde oldukça fazla xls uzantılı oluşturulmuş ve birbirinden farklı görünümlü dosyalar var. Farklı görünüm derken; satırlar kaymış var, sütunlar kaymış olan var, gereksiz açılmış satırlar var vs vs... Örneği aşağıdaki görselde mevcuttur...

Yapmak istediğim bu dosyaları tek tek açarak verileri en alttaki tablo haline getirmek...

Yardımlarınızı rica ederim.
Genişletmek için tıkla...
Jeeday
Yapıla bilir mi diye bakarken bir uyum arıyordum. Bir kaç sorum var.
Birincisi ve en önemlisi kaç dosyadan bahsediyoruz?
İkincisi Ok işaretleri ile gösterilen yazılar hep kutucukların karşısında mı?
örnek olsun diye sarı renk ile renklendirdiğim gibi kutulardan taşan var mı?
 
Konu Sahibi
CacaBey merhaba,
Çok fazla dosya var. VBA bilgim var, oldukça fazla kod yazıyorum. Bu dosyalar arasında ben uyum hiç bulamadım.
Gösterdiğin işaretlerde de hiç uyum yok. Örneğin; Bergamote satırındaki Fresh bazen boş olup bir alt satıra yazılmışta olabiliyor. Bazende o sağdaki veriler boşta olabiliyor. A sütununda bulunan "Top Note:" bile bazen bir alt satırda da olabiliyor. Sarı renkle boyadığın hücreye taşan oluyor.

İş yerinde benden önce çalışanlar dosyaları gelişigüzel kullanmışlar. Bu formatı sonlandırdım ve yeni bir tasarım verdim çalışanlara. Eski dosyalardan database oluşturmaya ve bu farklı formattaki dosyaları standart hale getirmeye çalışıyorum.
 
Top, Middle ve Base alanlarının karşında yer alan değerlerin arasında boş satır olma ihtimali var mi bahsettigim sey grup icinde bos satir olabilme ihtimali var mi
2. Olarak gruplar arasında boş satır olmama ihtimali var mi
3 gruplar her zaman aynı sutunda mi? Burada kast ettiğim mesela top, Middle ve Base aynı sutunda
Sahip oldukları değerler orta sütundakiler aynı sutunda
Son değerler aynı gurupta mi bu asını sutunda olma durumu aynı dosya içinde geçerli
 
Konu Sahibi
halily' Alıntı:
Top, Middle ve Base alanlarının karşında yer alan değerlerin arasında boş satır olma ihtimali var mi bahsettigim sey grup icinde bos satir olabilme ihtimali var mi
2. Olarak gruplar arasında boş satır olmama ihtimali var mi
3 gruplar her zaman aynı sutunda mi?
Genişletmek için tıkla...
1. Grup içinde boş satır belki var olabilir... O kadar çok dosyaya bakmadım...
2. Gruplar arasında bazen boş satır var bazen yok. Bilinçsiz satır eklemişler bazı dosyalara...
3. Gruplar hep aynı sütunda değil. Gelişigüzel sütun ekleyip kaydırdıkları olmuş...
 
Konu Sahibi
halily' Alıntı:
Top, Middle ve Base alanlarının karşında yer alan değerlerin arasında boş satır olma ihtimali var mi bahsettigim sey grup icinde bos satir olabilme ihtimali var mi
2. Olarak gruplar arasında boş satır olmama ihtimali var mi
3 gruplar her zaman aynı sutunda mi? Burada kast ettiğim mesela top, Middle ve Base aynı sutunda
Sahip oldukları değerler orta sütundakiler aynı sutunda
Son değerler aynı gurupta mi bu asını sutunda olma durumu aynı dosya içinde geçerli
Genişletmek için tıkla...
Tam anlayamadım
 
Konu Sahibi
Kod sonuna "başarılı olarak aktarılan dosyaları başka klasöre taşıma" seçeneği ekleyeceğim. O şekilde başarılı olan dosyalar filtrelenecek ve geriye başarılı olmayanlar kalacak. Taaa ki hiç dosya kalmayana kadar kafa patlatacağım :)
 
Jeeday' Alıntı:
CacaBey merhaba,
Çok fazla dosya var. VBA bilgim var, oldukça fazla kod yazıyorum. Bu dosyalar arasında ben uyum hiç bulamadım.
Gösterdiğin işaretlerde de hiç uyum yok. Örneğin; Bergamote satırındaki Fresh bazen boş olup bir alt satıra yazılmışta olabiliyor. Bazende o sağdaki veriler boşta olabiliyor. A sütununda bulunan "Top Note:" bile bazen bir alt satırda da olabiliyor. Sarı renkle boyadığın hücreye taşan oluyor.

İş yerinde benden önce çalışanlar dosyaları gelişigüzel kullanmışlar. Bu formatı sonlandırdım ve yeni bir tasarım verdim çalışanlara. Eski dosyalardan database oluşturmaya ve bu farklı formattaki dosyaları standart hale getirmeye çalışıyorum.
Genişletmek için tıkla...
Kutuların içerisini bulup veriyi alabilirim ama sağda bir uyum olmadığı için beni aşar.
Üstatlarda bir baksınlar.
 
Şablon olmazsa biraz zor
Diyelim ki tek tek tüm dosyalardan recordset ile verileri aldık tabloda kayıtlar arasında ileri geri giderek Top, Middle ve Base değerlerini tek tek bulduk
Top olan satırı bulduk sütun sütun ilerleyip boş olmayan sutunu da bulduk bir önceki kayda gidip önceki satırın, sonraki kayda gidip sonraki satırın ilgili sutunda verileri almak mümkün ama bunun için bile en azında tüm kitaplarda Top Base ifadesinin doğru girilmiş olmasi arada boş satırın falan olmaması gerek
Kabaca bir şablon olustursak bile tüm dosyaları tek tek kontrol etmeden verilerin doğru alındığından emin olamazsınız
 
Konu Sahibi
Ben bir yol denedim, oldu fakat her dosya için manuel bir işlem yaptırmam gerekir ve çok vakit alıyor...

Her verinin soluna referanslar ekledim. "Find" ile bu referansları buldurup sağındaki verileri düzenleyebiliyorum. Bu başarılı oldu fakat binlerce dosyayı açıp bu referansları yazmak oldukça sıkıcı ve zaman alıcı...

1642532298516.png
 
Konu Sahibi
halily' Alıntı:
Şablon olmazsa biraz zor
Diyelim ki tek tek tüm dosyalardan recordset ile verileri aldık tabloda kayıtlar arasında ileri geri giderek Top, Middle ve Base değerlerini tek tek bulduk
Top olan satırı bulduk sütun sütun ilerleyip boş olmayan sutunu da bulduk bir önceki kayda gidip önceki satırın, sonraki kayda gidip sonraki satırın ilgili sutunda verileri almak mümkün ama bunun için bile en azında tüm kitaplarda Top Base ifadesinin doğru girilmiş olmasi arada boş satırın falan olmaması gerek
Kabaca bir şablon olustursak bile tüm dosyaları tek tek kontrol etmeden verilerin doğru alındığından emin olamazsınız
Genişletmek için tıkla...
Bazı dosyalarda "Top Note:" ve altındakiler silinmiş olabilir...
 
Yakında ortada hiç ilişki kalmayacak))
 
halily' Alıntı:
Yakında ortada hiç ilişki kalmayacak))
Genişletmek için tıkla...
Ne güldüm yaa... Jeeday arkadaşımızın dosyaları free takılmayı seviyor demekki. :) :)
Maalesef hiçbir mantık ilişkisi olmazsa olmayan bir mantıkla formül yada kod yazamazsınız.
 
Konu Sahibi
ubak' Alıntı:
Ne güldüm yaa... Jeeday arkadaşımızın dosyaları free takılmayı seviyor demekki. :) :)
Maalesef hiçbir mantık ilişkisi olmazsa olmayan bir mantıkla formül yada kod yazamazsınız.
Genişletmek için tıkla...
Dosyalar benim değil ki. Bu iş ile ilgilenen departmanda 20 senedir çalışan kişilerin tuttuğu dosyalar bunlar. Ben işe dahil olduktan sonra hazırladığım makrolu dosya ile iş düzene girdi fakat eski dosyaların yeni formatları isteniyor. Durum bu... İşin çok zor olduğunun farkındayım.
 
Konu Sahibi
Jeeday' Alıntı:
Ben bir yol denedim, oldu fakat her dosya için manuel bir işlem yaptırmam gerekir ve çok vakit alıyor...

Her verinin soluna referanslar ekledim. "Find" ile bu referansları buldurup sağındaki verileri düzenleyebiliyorum. Bu başarılı oldu fakat binlerce dosyayı açıp bu referansları yazmak oldukça sıkıcı ve zaman alıcı...

Ekli dosyayı görüntüle 4970
Genişletmek için tıkla...
Bu yaptığım geliştirilemez mi?
 
Deneyiniz.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Konu Sahibi
Balta selam

Dosyanı denedim. Bu 4 sayfa için sıkıntısız çalışıyor. Şimdi yazdığın kodu inceliyorum ve genele yayacağım. Sonucunu bildiririm.

Ellerine, aklına sağlık...

Teşekkürler
 
Konu Sahibi
Balta merhaba,

Alttaki satır görseldeki durumda doğru veriyi vermiyor...

sut = S1.Cells.Find(What:="*", After:=SL.Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column
1642594894183.png
 
S1.Cells ve SL.Cells farklı yazılmış.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst