तो जब किसी सेल का मान खाली नहीं है, तो कटौती और एक अन्य कार्यपत्रक में पूरी पंक्ति पेस्ट

वोट
-2

मैं Excel मैक्रो में शुरुआत कर रहा हूँ। मैं सिर्फ मैक्रो रिकॉर्ड करें फ़ंक्शन का उपयोग, आदि उन्हें थोड़ा अदल-बदल करके कुछ किया है

इस समय मेरे पास है खरोंच से शुरू करने के लिए और मैं हार रहा हूँ।

मैं निम्नलिखित पूरा करने के लिए एक आसान तरीका के लिए देख रहा हूँ: अगर जब किसी सेल का मान, खाली नहीं है (मान लीजिए कि सेल यू भी नहीं) तो कटौती और एक अन्य कार्यपत्रक में पूरी पंक्ति का पेस्ट और बचाओ बदल जाता है।

आप कृपया मुझे इस मैक्रो का निर्माण कर सकते हैं। मैं इस एक के लिए एक बहुत ही कम बदलाव है और मैं पहले से ही सिरदर्द हो रहा है। मैं सीखने के लिए उत्सुक हूँ, लेकिन मैं मूल बातें याद आ रही है। मैं जल्द ही कक्षाओं में भाग लेने पर योजना बना रहा हूँ।

धन्यवाद आपकी मदद के लोगों के लिए एक गुच्छा! बहुत सराहना :) माइक

28/07/2016 को 11:17
का स्रोत उपयोगकर्ता
अन्य भाषाओं में...                            


1 जवाब

वोट
0

के रूप में शिव ने कहा, यह एक मेरे लिए यह करने के लिए जगह नहीं है। इसका अर्थ है कि मैं कुछ पुराने कोड मैं कॉपी / आसानी से कि अपने लाभ के लिए है से पेस्ट कर सकते हैं करने के लिए होता है। इस शीट 1 पर साथ डेटा स्तंभ यू सभी पंक्तियों के माध्यम से गतिशील रूप से काम करता है:

Sub CutCopyPaste()
Dim x as Integer
Dim y As Integer
Dim i as Integer

x = Sheets("Sheet1").Range("U" & Rows.Count).End(xlUp).Row
y = Sheets("Sheet2").Range("U" & Rows.Count).End(xlUp).Row

For i = 1 to x
    If Not Range("U" & i).value = "" Then
        Range("U" & i).EntireRow.Cut Sheets("Sheet2").Range("A" & y)
        Workbooks("your workbook.xlsm").Save
        y = y + 1
    End If
Next i
End Sub
28/07/2016 को 12:42
का स्रोत उपयोगकर्ता

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more