एक ही नेटवर्क पर 2 कंप्यूटरों के बीच समान एक्सेल वर्कबुक को कैसे सिंक करें

Question

कृपया मुझे इसके साथ कुछ मदद चाहिए।

मेरे पास एक इनपुट कार्यपुस्तिका है जहां उत्पाद डेटा दर्ज किया गया है, और एक आउटपुट वर्कबुक (रिपोर्ट) जहां यह कहा गया डेटा vba मैक्रोज़ का उपयोग करके एक एकल पंक्ति में कॉपी किया गया है।

बात यह है कि मुझे एक ही नेटवर्क पर 2 अलग-अलग कंप्यूटरों पर इस एप्लिकेशन का उपयोग करने की आवश्यकता है। मैं चाहता हूं कि दोनों कंप्यूटर स्वतंत्र इनपुट वर्कबुक का उपयोग करें और एकल आउटपुट वर्कबुक (रिपोर्ट) पर इनपुट डेटा की प्रतिलिपि बनाने में सक्षम हों।

तो दूसरे शब्दों में, मैं इस आउटपुट कार्यपुस्तिका को 2 कंप्यूटरों के बीच सिंक करना चाहता हूं ताकि यह मुझे वह डेटा दिखा सके जो दोनों कंप्यूटरों ने दर्ज किया है।

क्या यह भी संभव है? मैं इसके लिए नया हूं, मुझे यह भी नहीं पता कि कोई सुझाव या सलाह कहां से शुरू करनी है। अग्रिम में धन्यवाद..

संपादित करें: यह वह कोड है जिसे मैं लिखने में कामयाब रहा हूं। इस बात पर ध्यान दें कि मैं लामो को कोड करने के लिए नया हूं, मुझे यकीन है कि यह सही नहीं है, लेकिन यह ठीक काम करता है।

Sub GrabarAbono()

Dim NumAnticipo As Long
Dim Fecha As Date
Dim Cedula As Long
Dim Nombre As String
Dim Total As Double
Dim UltimaFila As Long

Dim Anticipos As Range
Set Anticipos = Worksheets("Anticipo").Range("A7", Range("C6").End(xlDown))

UltimaFila = Worksheets("Reporte Ant.").Range("A" & Rows.Count).End(xlUp).Row
NumAnticipo = Worksheets("Anticipo").Range("B1").Value
Fecha = Worksheets("Anticipo").Range("B2").Value
Cedula = Worksheets("Anticipo").Range("B3").Value
Nombre = Worksheets("Anticipo").Range("B4").Value
Total = Worksheets("Anticipo").Range("C" & Rows.Count).End(xlUp).Value

'Imprimir
Worksheets("Anticipo").PrintOut Preview:=True


'Transferir Datos
Anticipos.Copy (Worksheets("Reporte Ant.").Range("E" & Rows.Count).End(xlUp).Offset(1))

Worksheets("Reporte Ant.").Activate

Range("E" & UltimaFila).Offset(1).Select

Do Until ActiveCell.Value = ""

    Worksheets("Reporte Ant.").Range("A" & Rows.Count).End(xlUp).Offset(1) = NumAnticipo
    Worksheets("Reporte Ant.").Range("B" & Rows.Count).End(xlUp).Offset(1) = Fecha
    Worksheets("Reporte Ant.").Range("C" & Rows.Count).End(xlUp).Offset(1) = Cedula
    Worksheets("Reporte Ant.").Range("D" & Rows.Count).End(xlUp).Offset(1) = Nombre
    ActiveCell.Offset(1).Select
Loop

'Protect
Worksheets("Anticipo").Protect 
End Sub

Comments

कृपया मौजूदा vba मैक्रो के लिए कोड दिखाएं जो आपकी एक इनपुट कार्यपुस्तिका के लिए काम कर रहा है।

— Rey Juna

क्या यह भी संभव है? सामान्य तौर पर, यह असंभव है। कल्पना करें - फ़ाइल को एक साथ दोनों स्टेशनों पर खोला और ठीक किया जाता है। जो स्टेशन बाद में अपना काम बचाता है, वह स्टेशन द्वारा डाले गए सभी परिवर्तनों को मार देगा, जिसने पहले अपना काम बचाया था।

— Akina

Answer 1

स्वतंत्र इनपुट कार्यपुस्तिका का उपयोग करने के लिए और एक ही नेटवर्क पर एक ही आउटपुट कार्यपुस्तिका (रिपोर्ट) पर इनपुट डेटा की प्रतिलिपि बनाने में सक्षम होने के लिए, निम्नलिखित कार्य करें:

विकल्प 1:

• फ़ोल्डर को शार्बल करें & amp; INPUT स्टोर करें वहां वर्कबुक।
• अपना VB कोड संपादित करें और इस लाइन को खोलने के लिए जोड़ें पश्चिम बंगाल।

Workbooks.Open Filename:="DriveLetter:\Path\Filename.xlsm"

• इस कोड को बाकी प्रक्रियात्मक लाइनों द्वारा पालन किया जाना चाहिए।

विकल्प 2:

यह मैक्रो बनाएं & amp; मानक मॉड्यूल के रूप में स्टोर करें:

Private Sub RunfromServer()

Dim wb As Workbook
Dim MyFile As String
Dim MyPath As String
MyPath = MyPath = "\\MYServer\ShareFolder\My Folder\"

MyFile = Dir("Filename.Xlsm")


Do While MyFile <> ""
Set wb = Workbooks.Open(MyPath & MyFile)


*Your code here*


  wb.Close SaveChanges:=True
  MyFile = Dir
Loop

 End Sub

• अपने VBA (मैक्रो) के लिए जितनी प्रतियां चाहिए & Amp; इसे अलग-अलग कंप्यूटर से चलाएं।

Comments

ख़ुशी है @Christian की मदद करने के लिए, आप पूछते रहिए। ☺

— Rajesh S