Kayıt hk.

[valentino06]

Merhaba Kıymetli Hocalarım Örnek Excel kitabımı Format sayfasındaki "B2"hücresindeki koda göre Ortak alanda belirleyeceğim klasöre kopyasını almak istiyorum. şöyle bir sorunum daha var Format sayfasında b2 hücresinde boşluk var boşluk olmadan kopyasını almak istiyorum. lütfen yardımcı olabilir misiniz. çok teşekkür ederim. Allah yolunuzu açık etsin. İnşallah

Saygılarımla,

İyi çalışmalar.

 

[valentino06]

Arkadaşlar lütfen yardımcı olabilir misiniz.

 

[GursoyC]

Format isimli bir sayfanız yok. Sanırım Veri isimli sayfadan bahsediyorsunuz.
B2 hücresindeki koda göre kopya almak derken, kopya alındığında oluşacak dosyanın isminin B2 hücresinden mi alınmasını kastediyorsunuz?
Her iki sorunun cevabının da evet olması durumunda ihtiyacınız olan kodlar:
Z:\yazılım klasörünü kendinize uyarlarsınız.

    Dim ad As String
        ad = "Z:\yazılım\" & Application.WorksheetFunction.Trim(Sheets("Veri").Range("B2").Value) & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=ad, FileFormat:= xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[valentino06]

Hocam Öncelikle çok teşekkür ederim. Evet Hocam Hocam xlsb olarak kaydetmesini nasıl sağlarız. hocam birde B2 hücresinde boşluk var acaba boşluksuz olarak kopyalama yaptırabilir miyiz. lütfen Allah Kat Kat Razı olsun. çok teşekkür ederim.

 

[GursoyC]

satırdaki son kısmı .xlsm yerine .xlsb şeklinde yazarsanız o şekilde kaydeder.

Kod boşluksuz olarak yapmasını sağlıyor zaten. Kodun içerisindeki "Trim" komutu bunun için.

 

[valentino06]

Hocam denedim kaydetmiyor. hata veriyor. aşağıdaki hatayı veriyor. kopya exceli açıyor. açmasını istemiyorum. Hocam

 

[GursoyC]

Kodu bu şekilde deneyin:

    Dim ad As String
        ad = "Z:\yazılım\" & Application.WorksheetFunction.Trim(Sheets("Veri").Range("B2").Value) & ".xlsb"
    ActiveWorkbook.SaveAs Filename:=ad, FileFormat:=xlExcel12, CreateBackup:=False