İki Koşullu Veri Aktarma

[MrExcelMr]

Pardon, Evet kişisel bir pc hata vermiyor.

 

[Korhan Ayhan]

Bu durumda benim yapabileceğim birşey yok maalesef.

 

[MrExcelMr]

Korhan Bey,

Ziynettin Bey'in kodundada aynı hatayı veriyor.
Makroyu çalıştırdığım durumda titus programında Object2 yazıyor. Yeni bir excel açtım ve kaydetmek istedim. Object2 yazan yerden Kitap1 yazıyor.
Bu birşeyi ifade edebilir mi.

 

[Korhan Ayhan]

Üzgünüm bilmediğim birşey hakkında yorum yapamayacağım. Belki bilen arkadaşlar yorum yapabilirler.

 

[gicimi]

@Korhan Ayhan Hocam Merhaba,
@MrExcelMr talebine katkıda bulunmak için bir makale buldum TITUS ile ilgili incelemek isterseniz.
https://stackoverflow.com/questions/38109265/how-to-save-workbook-and-handle-titus-or-any-other-document-classification-add

 

[Korhan Ayhan]

@gicimi,

Yönlendirme için teşekkür ederim.

Orada bahsedilen çözümü #29 nolu mesajımda ki koda uyarladım.

@MrExcelMr deneyip sonucu bildirirse memnun olurum.

 

[MrExcelMr]

@gicimi,

Yönlendirme için teşekkür ederim.

Orada bahsedilen çözümü #29 nolu mesajımda ki koda uyarladım.

@MrExcelMr deneyip sonucu bildirirse memnun olurum.

Korhan Bey Merhabalar,
Malesef olmadı. Ayn hata ile karşılaştım. Ziynettin Bey'in hazırlamış olduğu #27 mesajdaki koda sizin eklendiğiniz kodu ekledim. Orda ise aşağıdaki kodda duruyor.
Hata olarak,

Run-time error 1004:
Geçersiz bir ad yazdınız. Aşağıdakilerden emin olun:
Yazdığınız ad 31 karakterden uzun olmamalıdır.
Ad şu karakterlerden hiçbiri içermemelidir. :\/?*
Ad boş bırakılmamalıdır.

ActiveWorkbook.ActiveSheet.Name = sh(j)



 

[Korhan Ayhan]

Peki kodu F8 ile adım adım çalıştırdığınızda tam olarak hangi satırda bu hatayı veriyor.

 

[MrExcelMr]

Peki kodu F8 ile adım adım çalıştırdığınızda tam olarak hangi satırda bu hatayı veriyor.

Hocam Zİynettin Beyîn kodda "ActiveWorkbook.ActiveSheet.Name = sh(j) "

 

[Korhan Ayhan]

Ben kendi önerdiğim kodu kast etmiştim.

Excelde sayfa isimleri 31 karakterden uzun olamaz. Eğer uzunluk bu sınırı aşıyorsa hata alırsınız.

O bölümü aşağıdaki gibi değiştirip kullanabilirsiniz.

ActiveWorkbook.ActiveSheet.Name = Left(sh(j), 31)

 

[MrExcelMr]

Ben kendi önerdiğim kodu kast etmiştim.

Excelde sayfa isimleri 31 karakterden uzun olamaz. Eğer uzunluk bu sınırı aşıyorsa hata alırsınız.

O bölümü aşağıdaki gibi değiştirip kullanabilirsiniz.

ActiveWorkbook.ActiveSheet.Name = Left(sh(j), 31)

Korhan Bey sizin Kodda ise,

Sh.SaveAs File_Folder & My_Recordset(0) & ".xlsx", 51 burda takılıyor.

 

[MrExcelMr]

Ben kendi önerdiğim kodu kast etmiştim.

Excelde sayfa isimleri 31 karakterden uzun olamaz. Eğer uzunluk bu sınırı aşıyorsa hata alırsınız.

O bölümü aşağıdaki gibi değiştirip kullanabilirsiniz.

ActiveWorkbook.ActiveSheet.Name = Left(sh(j), 31)

Korhan Bey,
Kodu dediğiniz gibi güncelledim. Bu sefer sizin ActiveWorkbook.ActiveSheet.Name = Left(sh(j), 31) kodunda takıldı.

 

[Korhan Ayhan]

@gicimi'nin #45 nolu mesajda paylaştığı linkte en son mesajı çevirince aşağıdaki bölümde çözüme dair açıklama yapılmış.

Titus yazılımı yeni boş bir excel dosyası oluşturup kaydetttiğinizde devreye giriyormuş. Fakat önceden boş bir çalışma kitabı oluşturup kaydederseniz kod içinde bu kitabı kullanıp işlem yapıldığında ve farklı kaydet özelliği kullanıldığında sorun çıkarmıyormuş. Kırmızı bölümde bu yönde açıklama yapılmış.

Böyle kullanabilirim derseniz üzerinde çalışabiliriz.

Ben bir VBA kodlayıcı değilim ama arkadaşlarım bunun üzerinde çalışıyordu
Bulduğumuz çözüm Titus'un davranışındaydı.
Kaydettiğinizde herhangi bir yeni çalışma kitabını sınıflandırmanızı isteyecektir. Not yeni, önceden kaydedilmiş bir çalışma kitabı değil. Böylece boş bir çalışma kitabı oluşturduk ve kaydettik (gerekli sınıflandırma ile)
Bu çalışma kitabını almak ve ona veri eklemek ve gerekli dosyaları oluşturmak için farklı kaydet özelliğini kullanmak için kod değiştirildi
Herhangi bir sorun olmadan sorunsuz çalışmaktadır.

 

[MrExcelMr]

@gicimi'nin #45 nolu mesajda paylaştığı linkte en son mesajı çevirince aşağıdaki bölümde çözüme dair açıklama yapılmış.

Titus yazılımı yeni boş bir excel dosyası oluşturup kaydetttiğinizde devreye giriyormuş. Fakat önceden boş bir çalışma kitabı oluşturup kaydederseniz kod içinde bu kitabı kullanıp işlem yapıldığında ve farklı kaydet özelliği kullanıldığında sorun çıkarmıyormuş. Kırmızı bölümde bu yönde açıklama yapılmış.

Böyle kullanabilirim derseniz üzerinde çalışabiliriz.

Korhan Bey,
Destek olursanız benim için sıkıntı yok. Hemde farklı dosyalarda da kullanım açısından faydalı olacak.

 

[Korhan Ayhan]

O zaman boş bir çalışma kitabını Titus ile kaydedip forumda paylaşırsanız ona göre önerdiğim kodu revize etmeye çalışırım.

 

[MrExcelMr]

Korhan Bey,
Hastane PC lerinden dosya aktarımı yapamıyoruz. Benim aklıma şöyle bir yöntem geldi. Sizce olma şansı var mı _?
Açıklama kısmında örneğin 10 çeşit aşı olduğunu düşelim. Ben aynı formatta ve Açıklama kısmında ismi ile yeni excel kitabı oluşturup klasörün içerisine TİTUS sınıflandırıp kaydedeyim. Aktarılacak aynı sayfa formatında uygun olur mu_?

 

[Korhan Ayhan]

Bir tane dosya oluşturmanız yeterli olacaktır.

Adına da Kitap1 dersiniz. Sabit olarak onu kullanıp diğer aşı isimlerine göre dosyaları üretebiliriz. Tabi ki deneme yapamadığım için çalışacağı konusunda şüphelerim var. Ama denemekten zarar gelmez.

 

[MrExcelMr]

Korhan Bey,
Kodu dediğiniz gibi güncelledim. Bu sefer sizin ActiveWorkbook.ActiveSheet.Name = Left(sh(j), 31) kodunda takıldı.

Korhan Bey,
Şimdi kodları dosyaları tekrar incelerken Zİynettin Bey'in kodları çalıştı. Çalışmama sebebi, Açıklama kısmında bir aşının adını sistemden Biontech-1 olduğundan dolayı hata almış. TİTUS burda devreye girmedi. Direk verileri klasörün içerisine oluşturdu.

 

[MrExcelMr]

Bir tane dosya oluşturmanız yeterli olacaktır.

Adına da Kitap1 dersiniz. Sabit olarak onu kullanıp diğer aşı isimlerine göre dosyaları üretebiliriz. Tabi ki deneme yapamadığım için çalışacağı konusunda şüphelerim var. Ama denemekten zarar gelmez.

Korhan Bey,
Sizin kodlarda Masaüstüne yeni bir klasör oluşturup, Aşılar günün tarihi oluşturup içerisine excel dosyası oluşturuyor. Ben şimdi kitap1 adında bir kitabı hangi klasöre oluşturmam gerekecek.

 

[Korhan Ayhan]

Farketmez. Dosyanın bulunduğu adresi bilelim yeterli. (Masaüstü olabilir mesela..)