Açık olan bir sayfaya veri girişi

[dgdizayn]

Merhabalar,

Aşağıdaki kodlarla, kapalı olan bir excel dosyasını açıp istediğim sütunlara veri girişi yapabiliyorum. Hedef dosyayı tüm herkese açık paylaşım yapıp, herkes tarafından girilebilir yaptım. Bu kodlarla ise kapalı excel dosyasını aç, veriyi yaz sonra kaydetip kapat yerine açık olan excel dosyasına veriyi yaz sonra kapatmadan kaydet yap istiyorum. Bu konuda yardımcı olabilir misiniz.

Teşekkürler.

Sub BulYaz()
    Dim wbA As Workbook ' açık olan dosya
    Dim wbB As Workbook ' uzak dosya
    Dim wsA As Worksheet ' açık olan dosyadaki sayfa
    Dim wsB As Worksheet ' uzak dosyadaki sayfa
    Dim kelime As String ' aranacak kelime
    Dim sutunNo As Integer ' yazılacak sütun numarası
    Dim sonuc As Range ' arama sonucu
    Dim satir As Long ' arama sonucu satır numarası
    Dim hedefHucresi As Range ' yazılacak hücre
    Sheets("EKRAN").Select
    Range("E2003").Value = Environ("USERNAME")
    Range("F2003").Value = "=NOW()"
    ' Açık olan dosyanın ataması
    Set wbA = ActiveWorkbook
    Set wsA = ActiveSheet
    ' Uzak dosyanın ataması
    Set wbB = Workbooks.Open("c:/Güncel.XLSX")
    Set wsB = wbB.Worksheets("Sheet1")
    ' Aranacak kelime ve yazılacak sütun numarasının alınması
    kelime = wsA.Range("B2003").Value
    sutunNo = wsA.Range("A2001").Value
    sutunNo1 = wsA.Range("A2002").Value
    sutunNo2 = wsA.Range("A2003").Value
    sutunNo3 = wsA.Range("A2005").Value

    ' Arama işlemi
    Set sonuc = wsB.Cells.Find(kelime, LookIn:=xlValues, LookAt:=xlWhole)
    ' Aranan kelime bulunduysa yazılacak hücrenin belirlenmesi
    If Not sonuc Is Nothing Then
    satir = sonuc.Row
    Set hedefHucresi = wsB.Cells(satir, sutunNo)
    Set hedefHucresi1 = wsB.Cells(satir, sutunNo1)
    Set hedefHucresi2 = wsB.Cells(satir, sutunNo2)
    Set hedefHucresi3 = wsB.Cells(satir, sutunNo3)

    ' Yazma işlemi
    hedefHucresi.Value = wsA.Range("D2003").Value
    hedefHucresi1.Value = wsA.Range("E2003").Value
    hedefHucresi2.Value = wsA.Range("F2003").Value
    hedefHucresi3.Value = wsA.Range("H2005").Value

    Else
    MsgBox "mesaj"
    wbB.Save
    wbB.Close
    wbA.Save
       Exit Sub
    End If
    ' Dosyaların kaydedilmesi ve kapatılması
    wbB.Save
    wbB.Close
    wbA.Save

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki satırları silin

    Set wbB = Workbooks.Open("c:/Güncel.XLSX")
    Set wsB = wbB.Worksheets("Sheet1")

Yerine aşağıdaki satırı kopyalayın.

    Set wsB = Workbooks("Güncel.XLSX").Worksheets("Sheet1")

Dosyayı kapatmamak için de wbB.Close satırlarını silin.

 

[dgdizayn]

Hocam merhaba,

Güncel.xlsx i \\ile başlayan servera atsam herkes tarafından editlenebilir olsa. Kod nasıl değiştirmemiz gerekiyor.

Örneğin Güncel.XLSX yerine \\sunucu\Güncel.XLSX

 

[Muzaffer Ali]

Açık dosya ile çalışacaksanız dosya yolunu yazmayacaksınız.
Dosya Serverde kayıtlı olması bir şey değiştirmez.

 

[dgdizayn]

Muzaffer Ali hocam merhaba,

Sanırım ben tam anlatamadım kusura bakmayın. 10 kişilik bir ekip bende açık olan bir dosyaya bu kodlarla veri yazacaklar ama bu dosya hep açık olacak kapanmayacak.

 

[Muzaffer Ali]

Bir bilgisayarda açık olan dosyada başka kullanıcılar güncelleme yapamaz diye biliyorum.
SQL, Ado yada Dao gibi yöntemlerle kapalı dosya açılmadan güncelleme yapılabilir fakat açık olan dosya güncellenmez. Ayrıca açık olan dosya kapatılırken kaydedilerek kapatılırsa o şekilde saklanır, yani diğer kullanıcıların güncellemeleri-kayıtları silinmiş olur.

Çözüm olarak SQL, Ado yada Dao gibi bir yöntem kullanarak kapalı dosyada güncelleme yapın.
Ayrıca dosyayı açmak gerekiyorsa kayıt yapmadan kapatmak gerekiyor ki diğer kullanıcıların yaptığı güncellemeler-kayıtlar silinmesin..

 

[dgdizayn]

Muzaffer hocam merhaba,

Aslında aşağıdaki kodlarla dosyayı açmadan yazabiliyorum. Bu kodları benim kodlara göre uyarlanamaz mı acaba.

Sub WriteToB()
    Dim bWorkbook As Workbook
    Dim bSheet As Worksheet
    
    Set bWorkbook = Workbooks.Open("\\sunucu\güncel.xlsx") ' hedef dosyanın yolu buraya yazılmalı
    Set bSheet = bWorkbook.Sheets("Sheet1") ' hedef sayfanın ismi buraya yazılmalı
    
    bSheet.Range("A1").Value = "Veri" ' buradaki "Veri" yerine yazmak istediğiniz veriyi yazabilirsiniz
    
    bWorkbook.Save ' dosyayı kaydetmek için bu satır eklenir
    
End Sub

 

[Muzaffer Ali]

Bu kod ile dosya açılıp kayıt yapılıyor. Sonra kapatılıyor.

Ne yapmak istediğinizi örnek bir dosya ile gösterirseniz kod yazılabilir.

 

[dgdizayn]

Hocam,

Biraz daha detaylı anlatayım. "\\sunucu\güncel.xlsx" dosyası bende açıkken başkaları bu açık dosyasına ilk verdiğim kodlarla veri girişi yapsın istiyorum. İlk verdiğim kodlar "\\sunucu\güncel.xlsx" dosyası açıkken kodlar çalışmıyor. "\\sunucu\güncel.xlsx" dosyasını kapattığımda kodlar çalışıyor.

Ben "\\sunucu\güncel.xlsx" dosyanın açılıp içerisine veri yazılıp sonra kapatılsın istemiyorum. Açık olan "\\sunucu\güncel.xlsx" dosyasının içerisine veri yazsın kapatmadan kaydetsin istiyorum. En son gönderdiğim kodlar, "\\sunucu\güncel.xlsx" açıkken dosyayı açmadan kapatmadan veri yazabiliyor.

Not: En son gönderdiğim kodlar, dosyayı açmadan açık olanı üzerine yazıp kapatmıyor.

Umarım net anlatabilmişimdir. Teşekkürler.

 

[Muzaffer Ali]

İşte bu istediğiniz şey olmuyor.
Ben de onu anlatmaya çalıştım.

 

[dgdizayn]

Muzaffer hocam,

Sizi yordum kusura bakmayın. Son birşey sorayım o zaman. En son gönderdiğim kodlar peki nasıl oluyor. O kodlar istediğim gibi oluyor.

 

[Muzaffer Ali]

Hala demek istediğimi anlatamamışım.

1- Siz dosyayı açtınız.
2- Siz A1 hücresine Mehmet yazdınız. Kaydettiniz. Dosyayı kapatmadınız.
3- Yukarıdaki kod ile bir başka kullanıcı aynı dosyayı açıp A1 hücresine Ahmet yazdı. Kaydetti ve kapattı.
4- Sizin açık olan dosyanızdaki A1 hücresinde gördüğünüz Mehmet yazısı değişmez kalır. Ama kayıtlı dosyada Ahmet yazıyor.
5- Kaydetmeden kapatırsanız. A1 hücresinde Ahmet kayıtlı kalır.
6- Kaydedip kapatırsanız A1 de Mehmet kayıtlı olur.

 

[RBozkurt]

Dosya açıkken 2. kullanıcı salt okunur uyarısı almaz mı?

 

[Muzaffer Ali]

Ben yardımcı olamıyorum. Kolay gelsin.