Kapalı Dosyaya Kayıt

[1Al2Ver]

Merhaba,

"YEMEK KAYIT" isimli dosyada ;

Yemek_Kayıt sayfasından, aynı dosyanın Yemek_Listesi sayfasına, makro ile kayıt yapıyorum.

İSTEK ;

Bu kayıt, aynı zamanda C sürücüsünde,

Aynı klasör (YEMEKLER adlı klasör) içinde bulunan "KAYITLI YEMEKLER LİSTESİ" adlı dosyanın, Yemek_Listesi sayfasına da yapılsın istiyorum.

NOT ; Kayıt esnasında, "KAYITLI YEMEKLER LİSTESİ" dosyası açık yada kapalı olabilmektedir. Her 2 dosya da C sürücüsü, "YEMEKLER" klasörü içindedir.

Teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu mevcut kodunuzun bulunduğu modülün içine kopyalayınız. Daha sonra mevcut kodunuzun sonuna Call Liste ekleyip deneyiniz.

Private Sub Liste()
yol = "C:\YEMEKLER\"
isim = "KAYITLI YEMEKLER LİSTESİ.xlsx"
For Each ktp In Workbooks
    If ktp.Name = isim Then
        Set w2 = ktp
        GoTo 1
    End If
Next
Set w2 = Workbooks.Open(yol & isim)
ThisWorkbook.Activate
1
Set s2 = w2.Sheets("YEMEK_LİSTESİ")
Set s1 = ThisWorkbook.Sheets("YEMEK_LİSTESİ")
s2.Cells(s2.Rows.Count, 2).End(3).Offset(1).Resize(, 8).Value = s1.Cells(s1.Rows.Count, 2).End(3).Resize(, 8).Value
s2.Cells(s2.Rows.Count, 1).End(3).Offset(1).Value = WorksheetFunction.Max(s2.Range("A:A")) + 1
w2.Save
End Sub

 

[1Al2Ver]

Sayın Ömerbey,

Öncelikle çok teşekkür ederim, şuana kadarki denemelerimde sorun çıkmadı, sağ olun.

Şöyle bir ihtiyaç oldu,

Kayıt yapılan dosya (KAYITLI YEMEKLER LİSTESİ) kapalı ise kayıt sırasında açılıyor, bu dosya kayıt biter bitmez, kod kanalıyla tekrar kapatıla bilir mi ?

Tekrar teşekkür ederim.

 

[ÖmerBey]

Peki kod çalışmadan önce açıksa da kapatılacak mı?
Yoksa kod çalışmaya başladığında ne durumdaysa öyle mi kalacak?

 

[1Al2Ver]

Ömerbey merhaba,

Kod çalışmadan önce açıksa ; Kapatılmayacak,

Küçük bir açıklama eklemek istiyorum ;

Yemek Kayıtlarını yapan kişi kayıt yaparken, bir başkasının kullandığı dosya'ya (KAYITLI YEMEKLER LİSTESİ) da kayıt yapılıyor,

Şayet KAYITLI YEMEKLER DOSYASI açık kalır ise, YEMEK KAYIT dosyası ile çalışan yani kaydı yapan kişi açık olan dosyaya erişe bilir.Bu nedenle KAYITLI YEMEKLER DOSYASI'nın kayıt sonrası kapanmasını arzuluyorum.

Teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki şekilde deneyiniz.

Private Sub Liste()
yol = "C:\YEMEKLER\"
isim = "KAYITLI YEMEKLER LİSTESİ.xlsx"
For Each ktp In Workbooks
    If ktp.Name = isim Then
        Set w2 = ktp
        kapa = False
        GoTo 1
    End If
Next
Set w2 = Workbooks.Open(yol & isim)
kapa = True
ThisWorkbook.Activate
1
Set s2 = w2.Sheets("YEMEK_LİSTESİ")
Set s1 = ThisWorkbook.Sheets("YEMEK_LİSTESİ")
s2.Cells(s2.Rows.Count, 2).End(3).Offset(1).Resize(, 8).Value = s1.Cells(s1.Rows.Count, 2).End(3).Resize(, 8).Value
s2.Cells(s2.Rows.Count, 1).End(3).Offset(1).Value = WorksheetFunction.Max(s2.Range("A:A")) + 1
w2.Save
If kapa = True Then w2.Close
End Sub

 

[1Al2Ver]

Sayın ÖmerBey, merhaba,

Elinize sağlık, tam arzuladığım gibi oldu, çok teşekkür ederim.

Saygılarımla.

 

[baydeniro]

ÖmerBey üstadım kod için teşekkürler

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...