H

Soru Excel Kaydetme İşlemi Yapma

hsyn0506

Normal Üye
SELAMUNALEYKÜM CÜMLENİZE

BU KOD ÖNCELERİ ÇALIŞIYORDU

D: RAPORLAR /GÜNLÜK DOSYASINA KOPYALADIĞI VERİYİ BU GÜNÜN TARİHİ İLE KOPYALIYORDU XLS (MAKROSUZ)

kaydet1 Makro

Dim Dosyam As String
With Sheets("34,5")
Dosyam = "D:\Raporlar\Günlük\" & .Range("Aj3").Value & ".xls"

ActiveWorkbook.Worksheets = Dosyam HATA VEREN YER BURASI
ActiveWorkbook.ActiveSheet = Dosyam
ActiveWorkbook.ActiveWindow. ActiveSheet = Dosyam
ActiveWindow. ActiveWorkbook.ActiveSheet = Dosyam
BU ÜSTDEKİ AÇILIMLARI DENEDİM AMA ÇALIŞTIRAMADIM...............İLGİLENİZE ŞİMDİDEN TEŞEKKÜRLER
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(81 satır)
 
Merhaba.

Bilgisayarınızda D:\Raporlar\Günlük\ şeklinde bir dizin olduğundan ve
34,5 isimli sayfanın AJ3 hücresinde, dosya isimlendirmesinde kullanılamayan > < : \ | / * gibi bir karakter olmadığından emin misiniz?

Ayrıca kodlarınızda kullandığınız aşağıdaki gibi (benzer başka satırlar da var)
bir yapı yerine, yeşil renklendirdiğim şekilde de (başka alternatif yöntemler de olabilir elbette) aynı sonuç alınır.
Yani bir alanı kendi yerine DEĞER olarak yapıştırmak için Select, Copy, Özel Yapıştır işlemine gerek yok.
Benzer şekilde, bir alan içeriğini temizlemek için
Range(....).Select, Selection.ClearContents yerine [A1:C3] .ClearContents şeklinde de işlem gerçekleştirilebilir, vs, vs.

Ayrıca; kodlamalarda, mümkün olduğunca .....Activate, ..... Select komutları kullanmamanız yerinde olur diye düşünüyorum.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(10 satır)

.
 
Üst