Dosyalar arası hücre kopyalama işlemi

[kemal2008]

Arkadaşlar ekli dosyada görüldüğü gibi 2 dosyamız var;

verilen teklifler dosyamızdaki a sütunununun herhangi bir

hücresine yazılan rakamın bir kapat butonuna basılması ile teklif

şablonu dosyamızı açarak alış 1 ve satış 1 çalışma sayfalarındaki

j13 hücrelerine (bu hücreler deki t harfi sabit kalarak) kopyalayıp

farklı bir dosya adı ile kaydetmesini (yani teklif şablonumuz sabit

kalacak şekilde ) ve teklif şablonu & verilen teklifler

dosyalarınıyapılan değişiklerle kapatıp farklı kaydedilen

dosyayı açmasını istiyoruz.

 

[Ömer]

Merhaba,

Eki inceleyiniz. Bu şekilde işinizi görür sanırım.

Kodu çalıştırmadan önce C nin altında Teklifler adında bir klasör oluşturun yedeklenen çalışmalar burada tutulacaktır. Bu tabloyu oluşturmazsanız hata alırsınız. Dosya yolunu kodlardan siz de değiştirebilirsiniz.

.

 

[Ömer]

Sayfa gizlenmiş hali daha uygun olur sanırım.

.

 

[kemal2008]

Ilginize teşekkürler

Ömer bey ilginiz teşekkür ederim.
yanlız yapmış olduğum bazı değişiklikler sonrası makromuz şu noktada With Workbooks("VERİLEN TEKLİFLER GENEL DURUM.xls") hata veriyor.

Ve sizden birkaç ricam olucak:

İşlem sonrası verilen teklifler genel durum dosyasını kapatabilirmiyiz.

Dosyayı şablon... olarak değilde verilen teklifler genel durum dosyasındaki b sütununa yazmış olduğumuz firma adı ve a sütununa yazmış olduğumuz rakamla kaydetsin.

umarım anlatabilmişimdir

 

[Ömer]

2. dosyadaki kodu aşağıdakiyle değiştirin.

Sub Kayıt()
Dim Sayfa As Worksheet
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("ALIŞ 1")
Set S3 = Sheets("SATIŞ 1")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
son = S1.[A65536].End(3).Row
S2.Range("J13") = "T" & S1.Range("A" & son)
S3.Range("J13") = "T" & S1.Range("A" & son)
ActiveWorkbook.SaveCopyAs "C:\Teklifler\" & Range("B" & son) & Range("A" & son) & ".xls"
    Workbooks.Open Filename:="C:\Teklifler\" & Range("B" & son) & Range("A" & son) & ".xls"
    For Each Sayfa In Sheets
        Sayfa.Visible = True
    Next Sayfa
    ActiveSheet.Delete
    With Workbooks("[COLOR=blue]VERİLEN TEKLİFLER[/COLOR].xls")
        .Save
        .Close
    End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Ayrıca mavi işaretlediğim yer kodları yazdığınız çalışma kitabının adı olmalıdır. Hatayı bu yüzden alıyorsunuz. Eklediğim tabloda da dosya adı buydu. Sizinki farklı ise değiştirirsiniz.

.

 

[kemal2008]

Son makro formunuzda hata laıyorum

ÖMER BEY KAYDET BUTONUNA BASTIĞIMDA
AŞAĞIDAKİ ALANDA HATA ALIYORUM SORUN NEDİR SİZCE?

With Workbooks("TEKLİF ŞABLONLARI.xls")

 

[Ömer]

Excel sürümünüzden kaynaklanıyor olabilir. Sanırım 2007 excel sürümü kullanıyorsunuz.

Kod da,

.xls

gördüğünüz bölgeleri

.xlsx

olarak değiştirin.