सेल भरने, अनुक्रमिक संख्या के साथ शीर्ष पर हमेशा नई प्रविष्टि इसमें जोड़ी गई

मैं एक्सेल में VBA के लिए काफी नया हूं, लेकिन मुझे एक छोटे से प्रोजेक्ट के लिए इसकी जरूरत है, जिस पर मैं काम कर रहा हूं और आपकी मदद का इस्तेमाल कर सकता हूं।

मुझे एक अलग शीट ("न्यूमेकिन") से किसी कार्यपुस्तिका में एक अलग शीट ("मशीन") पर एक सूची को पॉप्युलेट करने के लिए क्या करना है, जिस पर मैं जानकारी दर्ज करता हूं, यह "न्यूमैचाइन" शीट पर दर्ज की गई जानकारी साफ हो जाती है, दूसरे के लिए तैयार प्रवेश।

मैं चाहूंगा कि नई प्रविष्टियाँ सूची के शीर्ष पर आएं और नई प्रविष्टि के अनुरूप उस पंक्ति में 2 क्रमिक संख्याएँ जोड़ी जाएँ।

अनिवार्य रूप से

कॉलम A कॉलम B कॉलम C

... ... ...

२ २ जानकारी

1 1 जानकारी

यह मेरे पास अब तक का कोड है:

Sub capturedata()

Dim wks As Worksheet
Dim lastrow As Long

Set wks = Sheets("Machines")

lastrow = wks.Range("A:A").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row


wks.Cells(lastrow + 1, 3).Value = Cells(6, 2).Value
wks.Cells(lastrow + 1, 4).Value = Cells(7, 2).Value
wks.Cells(lastrow + 1, 5).Value = Cells(8, 2).Value
wks.Cells(lastrow + 1, 6).Value = Cells(9, 2).Value
wks.Cells(lastrow + 1, 7).Value = Cells(10, 2).Value
wks.Cells(lastrow + 1, 8).Value = Cells(11, 2).Value
wks.Cells(lastrow + 1, 9).Value = Cells(12, 2).Value
wks.Cells(lastrow + 1, 10).Value = Cells(13, 2).Value
wks.Cells(lastrow + 1, 11).Value = Cells(14, 2).Value


Range("B6:B14").ClearContents

End Sub

यह मुझे सूची को ऊपर से नीचे की ओर पॉप्युलेट करने के लिए जानकारी दर्ज करने की अनुमति देता है, लेकिन बहुत कुछ नहीं।

microsoft-excel macros

— aschark
स्रोत

नई प्रविष्टियाँ सूची में सबसे ऊपर आती हैं

दूसरी पंक्ति को खोजने के बजाय दूसरी पंक्ति से ऊपर डालें lastrow

इसके अलावा, आप प्रत्येक कोशिकाओं के माध्यम से जाने के बजाय एक बार पूरी रेंज की प्रतिलिपि बना सकते हैं।

Sub capturedata()

    Dim wks As Worksheet

    Set wks = Sheets("Machines")

    With wks
        .Rows(2).EntireRow.Insert
        .Range("C2:K2") = Range("B6:B14").Value
    End With

    Range("B6:B14").ClearContents

End Sub

— Máté Juhász
स्रोत

हाय @ उत्तर, आपके उत्तर के लिए धन्यवाद। यद्यपि आपके कोड का उपयोग करते समय, मैं अपना डेटा एक शीट पर दूसरे में स्थानांतरित करने के लिए दर्ज करता हूं, लेकिन जब मैं मैक्रो को निष्पादित करने के लिए बटन पर क्लिक करता हूं, तो यह पहली सेल लिखता है जो मैंने पूरी पंक्ति में दर्ज किया है, जिसमें सभी जानकारी होनी चाहिए दिखाया गया है?

— aschark

मैंने इसका परीक्षण किया है और यह मेरे लिए काम करता है। कृपया इसे डीबग करने का प्रयास करें।

— Máté Juhász