veri güncelleme

[kesikbey]

Arkadaşlar, Ekteki dosyada YEDEK çalışma kitabındaki DEPO ve MSH sayfaların verilerinin GÖZDE çalışma kitabındaki aynı isimli sayfadan, açtığımda otomotik güncellemesi mümkün mü acaba

 

[asi_kral]

Arkadaşlar, Ekteki dosyada YEDEK çalışma kitabındaki DEPO ve MSH sayfaların verilerinin GÖZDE çalışma kitabındaki aynı isimli sayfadan, açtığımda otomotik güncellemesi mümkün mü acaba

Merhaba
Gözde kitabında Depo diye bir sayfa yok.

 

[kesikbey]

Merhaba
Gözde kitabında Depo diye bir sayfa yok.

Aslında GÖZDE ve YEDEK aynı kitap DEDİĞİM GİBİ YAPABİLİRSEM bİRİ ŞİFRELİ , DİĞER ŞİFRESİZ OLARAK AÇILACAK, DÜZENLEMEYİ YAPTIM VE DOSYAYI YENİDEN EKLEDİM...

 

[asi_kral]

Aslında GÖZDE ve YEDEK aynı kitap DEDİĞİM GİBİ YAPABİLİRSEM bİRİ ŞİFRELİ , DİĞER ŞİFRESİZ OLARAK AÇILACAK, DÜZENLEMEYİ YAPTIM VE DOSYAYI YENİDEN EKLEDİM...

Merhaba
Kitabınızın Kod bölümünde bulunan Bu Çalışma Kitabına

Private Sub Workbook_Open()
'Konu       :   Başka Dosyadan Güncelleme
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi, kral, ortak1, ortak2
Dim s1, s2, s3, s4
Dim a, b, c, d, yol
Application.ScreenUpdating = False
c = ActiveSheet.Name
asi = ActiveWorkbook.Name
ortak1 = "msh"
ortak2 = "DEPO"
yol = ThisWorkbook.Path & "\"
kral = "GÖZDE.xlsm"
Workbooks.Open (yol & kral)
Set s1 = Workbooks(asi).Sheets(ortak1)
Set s2 = Workbooks(asi).Sheets(ortak2)
Set s3 = Workbooks(kral).Sheets(ortak1)
Set s4 = Workbooks(kral).Sheets(ortak2)
s1.Range("B2:N" & Rows.Count).ClearContents
s2.Range("A2:R" & Rows.Count).ClearContents
Workbooks(asi).Activate
s1.Select
a = ActiveCell.Address
s3.Range("B2:N" & s3.Range("B" & Rows.Count).End(xlUp).Row).Copy
s1.Range("B2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Range(a).Select
s2.Select
b = ActiveCell.Address
s4.Range("A2:N" & s4.Range("A" & Rows.Count).End(xlUp).Row).Copy
s2.Range("A2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Range(b).Select
Sheets(c).Select
Workbooks(kral).save
Workbooks(kral).Close
Application.ScreenUpdating = True
End Sub

Bu kodu kopyalayın ve kitabı kaydedip kapatın sonra açarak deneyiniz.
Eki inceleyin.

 

[kesikbey]

Merhaba
Kitabınızın Kod bölümünde bulunan Bu Çalışma Kitabına

Private Sub Workbook_Open()
'Konu       :   Başka Dosyadan Güncelleme
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi, kral, ortak1, ortak2
Dim s1, s2, s3, s4
Dim a, b, c, d, yol
Application.ScreenUpdating = False
c = ActiveSheet.Name
asi = ActiveWorkbook.Name
ortak1 = "msh"
ortak2 = "DEPO"
yol = ThisWorkbook.Path & "\"
kral = "GÖZDE.xlsm"
Workbooks.Open (yol & kral)
Set s1 = Workbooks(asi).Sheets(ortak1)
Set s2 = Workbooks(asi).Sheets(ortak2)
Set s3 = Workbooks(kral).Sheets(ortak1)
Set s4 = Workbooks(kral).Sheets(ortak2)
s1.Range("B2:N" & Rows.Count).ClearContents
s2.Range("A2:R" & Rows.Count).ClearContents
Workbooks(asi).Activate
s1.Select
a = ActiveCell.Address
s3.Range("B2:N" & s3.Range("B" & Rows.Count).End(xlUp).Row).Copy
s1.Range("B2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Range(a).Select
s2.Select
b = ActiveCell.Address
s4.Range("A2:N" & s4.Range("A" & Rows.Count).End(xlUp).Row).Copy
s2.Range("A2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Range(b).Select
Sheets(c).Select
Workbooks(kral).Close
Application.ScreenUpdating = True
End Sub

Bu kodu kopyalayın ve kitabı kaydedip kapatın sonra açarak deneyiniz.
Eki inceleyin.

Kral Kardeşim çok tşkrler, işimi görür, emeğine sağlık, kolay gele...

 

[asi_kral]

Kral Kardeşim çok tşkrler, işimi görür, emeğine sağlık, kolay gele...

Kolay Gelsin.

 

[kesikbey]

Kolay Gelsin.

Arkadaşım, bu kodlarla veri güncelleme güzel çalışıyor ama her açtığımızda veri alınan dosyayıda açıyor, kapatırken kayıt soruyor, bunu otomotik kapatsa ,geri sormadan olmaz mı?

Tamam yaptım tşkrler

 

[asi_kral]

Arkadaşım, bu kodlarla veri güncelleme güzel çalışıyor ama her açtığımızda veri alınan dosyayıda açıyor, kapatırken kayıt soruyor, bunu otomotik kapatsa ,geri sormadan olmaz mı?

Tamam yaptım tşkrler

Üstteki kodu güncelledim. Tekrar dener misiniz_?
Not : Sadece kod düzenlenmiştir.

 

[kesikbey]

Üstteki kodu güncelledim. Tekrar dener misiniz_?
Not : Sadece kod düzenlenmiştir.

tmm arkadaşım yapmıştım tşkrler

Workbooks(kral).Close
kodu yerine
Workbooks(kral).Save
Workbooks(kral).Close
kodunu kullanınca işimi gördü. tşkrler...

 

[asi_kral]

tmm arkadaşım yapmıştım tşkrler

Workbooks(kral).Close
kodu yerine
Workbooks(kral).Save
Workbooks(kral).Close
kodunu kullanınca işimi gördü. tşkrler...

Kolay Gelsin.