रिपोर्ट

MS Excel data entry with specific code

सवाल पूछें Virendra - 28 जून, 2017 04:38 अपराह्न पर ताजा जवाब Tanu ने किया
How do I make a data entry in a row with a specific code?
और पढ़िए 
वोट करें
+0
plus moins
Try the following code, placed in a standard module and assigned to a button:-

Sub DataTransfer()

Application.ScreenUpdating = False

With ActiveSheet
.AutoFilterMode = False
With Range("F1", Range("F" & Rows.Count).End(xlUp))
.AutoFilter 1, 1
If Range("F" & Rows.Count).End(xlUp).Row > 1 Then
.Offset(1).EntireRow.Copy Sheet2.Range("A" & Rows.Count).End(3)(2)
'.Offset(1).EntireRow.Delete
End If
End With
ActiveSheet.[F1].AutoFilter
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub


The code filters Sheet1 Column F for the number 1 and then transfers the relevant rows of data to Sheet 2. Did you want to clear the "used" data from Sheet 1 once transferred to Sheet 2? If so, remove the apostrophe from the begining of line 12 (in green font) in the code above. This will activate the delete line of code.

Test the code in a copy of your workbook first.
आप कह चुके हैं

अन्य यूजर की तुलना में सदस्यों को ज्यादा जवाब मिलते हैं.

सदस्य होने की वजह से आप अपनी रिक्वेस्ट को विस्तारपूर्वक मॉनीटर कर सकते हैं.

सदस्य होने के नाते आपको अलग से जानकारी दी जाती हैं.

अभी तक सदस्य नहीं हैं?

साइन-अप करें. इसमें एक मिनट से भी कम समय लगता है और यह फ्री है!