Excel VBA Macros Power Programming Tutorial in Hindi
I have 300 rows in a sheet I have to copy one row at a time in one sheet Till 300 sheets
मेरे पास ३०० रॉ का डाटा है एक रॉ के लिए एक शीट बना कर डाटा डालना चाहता हु जैसे ३०० रॉ तो ३०० शीट्स
अच्छी तरह से समझने के लिहे निचे वीडियो देखि हिंदी में
Sub Copy_Data()
For i = 1 To 300
Sheets.Add.Name = "Data" & i
Sheets("Data").Select
Range("A1:Q1").Copy
Sheets("Data" & i).Select
Range("A1").PasteSpecial xlPasteAll
Sheets("Data").Select
Range("A" & i + 1, "Q" & i + 1).Copy
Sheets("Data" & i).Select
Range("A2").PasteSpecial xlPasteValues
Next i
MsgBox "Work is done"
End Sub
अच्छी तरह से समझने के लिहे निचे वीडियो देखि हिंदी में
+91 8802579399 , +91 8826828093


Comments
Post a Comment