Soru Puantaj Makro Çalışması

[merttr07]

Bir çok sitede araştırma yaptım ama ne yazık ki çözüm bulamadım.
Aşağıda belirmiş olduğum hatayı sadece standart olan excel alıyorum professional böyle bir hata karşılaşmıyorum program gayet net çalışıyor.
Öncelikle kolay gelsin yazdığım kodlamalar ile Puantaj Hazırlama sayfasında kayıt alma ve verileri geri getirme sorunu yaşamıyorum. Farklı bir pc aktardığım zaman Set wb = Workbooks.Open(dosya) bu kısımda hata alıyorum. Kendi bilgisayarımda bu hatayı almıyorum.

Mesai kısmında puantajdaki gibi kayıt yapmak istiyorum Örneğin Excel Dosyasının adı Eylül Mesai 2021 gibi ama onda ise aynı kodları kullanmama rağmen Aktarilacak veri yok. hatası alıyorum bir türlü çözemedim verileri geri getiremiyorum.

Makroda sıkıntı yok çünkü ilk kaydet dediğim zaman kayıt yapıyor başka bir tesis seçtiğimde hata alıyorum. İşin ilginç yanı aynı kodlar ile mesai işleminde hata almıyorum. Kodlarda bir farklılık yok. Bire bir aynı kaydet kaydı getir.


Örneğin Eylül 2020 içine 3 4 puantaj farklı sayfalarda kaydedicem o ayın puntajları bunu profosyonel olan Excel rahatlıkla yapa biliyorum. Ama standard 2013 bunu yapamıyorum sadece profesyonel olan Excel rahatlıkla oluyor. Hata almıyorum. Aldığım hata yukarıda belirttiğim gibi.

En ilginç tarafı mesailerde kodlama aynı ama kayıt yapıyor sadece puntaj kısmında sayfayı açamıyor bu nedenle Makroda hata veriyor. Excel kitabını açıp kayıt yapamıyor /xl/worksheets/sheet1.xml. hatasını düzeltip elle kendim kaydettiğim zaman inciyi kaydediyor üçüncü de yine aynı hata yine elle kaydet yapmam gerekiyor.

Kaydettiğim Excel hatası

Metin belgesindeki Gelen bilgi
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<recoveryLog xmlns="

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

"><logFileName>error122080_01.xml</logFileName><summary>'C:\Users\mert.sevinc\Desktop\Yeni klasör\Puantaj Eylül 2023.xlsx' dosyasında hata algılandı</summary><removedFeatures summary="Aşağıda kaldırılan özelliklerin listesi verilmiştir:"><removedFeature>Kaldırılan Özellik: /xl/worksheets/sheet1.xml parçasından Veri doğrulama</removedFeature></removedFeatures></recoveryLog>

 

[merttr07]

Ayrıca Çalışma sayfasının içine kayıt yapıyor ne yazıkki yeni bir excel açmıyor. Örnek Puantaj Aralık 2020 diye yeni excel açıp aralık ayının tüm tesislerini içine kaydetmesi gerekirken tam tersi program içine kayıt yapıyor yeni sayfa oluşturmuyor.

 

[Patron]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

satırını,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

şeklinde düzenler misiniz.

 

[merttr07]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

satırını,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

şeklinde düzenler misiniz.

wb.SaveAs Filename:=dosya HATA veriyor ve hala program içerisine sayfa açıyor yeni dosya oluşturmuyor.

 

[Patron]

Makro kaydet yöntemiyle bir dosyayı farklı kaydet yapıp, oluşan kodu paylaşır mısınız?

 

[merttr07]

Makro kaydet yöntemiyle bir dosyayı farklı kaydet yapıp, oluşan kodu paylaşır mısınız?

Sub Makro1()
'
' Makro1 Makro
'

'
ChDir "C:\Users\mert.sevinc\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\mert.sevinc\Desktop\Kitap1.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

 

[Patron]

Bu şekilde de olmazsa yapacak bişeyim kalmadı.
Bende verdiğim bütün öneriler düzgün çalıştı.

 

[merttr07]

Bu şekilde de olmazsa yapacak bişeyim kalmadı.
Bende verdiğim bütün öneriler düzgün çalıştı.

Ne yazık ki teşekkürler desteğiniz için

 

[aeGNoR]

Bir şeyi merak ettim.
Diğer bilgisayardaki izinler ile dosyayı hazırladığınız bilgisayardaki izinler aynı mı?

Konu tam olarak nedir bilmeden, okumadan yazıyorum ama "workbook.open()" kodunun çalışmamasının çok fazla sebebi olamaz gibi geliyor bana.
-En temel sebep dosya söz konusu konumda yoktur. Bunu adımlayarak çözdüğünüzü varsayıyorum.
-Dim tanımlamalarınızda bir sıkıntı vardır. Böyle bir hata yapmayacak kadar tecrübeli olduğunuz kodlarınızdan anlaşılıyor.
-Söz konusu bilgisayarda farklı bir excel dosyası ile makro çalışması yapıp workbook.open() kodunu çalıştırmayı denediğinizi de varsayıyorum.

Bütün bunlar kontrol edildikten sonra;




Eklediğim resimde workbook.open() olayının parametrelerini görüyoruz. Bu parametreler ile ilgili bir problem yaşıyor olabilir miyiz?

 

[merttr07]

Bir şeyi merak ettim.
Diğer bilgisayardaki izinler ile dosyayı hazırladığınız bilgisayardaki izinler aynı mı?

Konu tam olarak nedir bilmeden, okumadan yazıyorum ama "workbook.open()" kodunun çalışmamasının çok fazla sebebi olamaz gibi geliyor bana.
-En temel sebep dosya söz konusu konumda yoktur. Bunu adımlayarak çözdüğünüzü varsayıyorum.
-Dim tanımlamalarınızda bir sıkıntı vardır. Böyle bir hata yapmayacak kadar tecrübeli olduğunuz kodlarınızdan anlaşılıyor.
-Söz konusu bilgisayarda farklı bir excel dosyası ile makro çalışması yapıp workbook.open() kodunu çalıştırmayı denediğinizi de varsayıyorum.

Bütün bunlar kontrol edildikten sonra;

Ekli dosyayı görüntüle 4719


Eklediğim resimde workbook.open() olayının parametrelerini görüyoruz. Bu parametreler ile ilgili bir problem yaşıyor olabilir miyiz?

Çok uğraştım çok araştırdım işyerindeki tüm pc denedim standarta sadece kayıtlı olan puantaj dosyasının içine diğer tesislerin punatajlarını eklemiyor ve hata veriyor çözüm bulamadım.