"Excel VBA: Auto Copy Sheet + Self‑updating Across Multiple Sheets!"
Is video mein dekhiye:
✅ Master sheet template ko VBA se copy kaise karein
✅ Har sheet mein data fetch ka magic code
✅ Loop logic explained line-by-line
👍 Agar pasand aaye to LIKE karein & SUBSCRIBE karein!
📌 Comments mein bataiye: kaunsa step sabse helpful tha?
#ExcelVBA #ExcelAutomation #LuvRulzz #Macros #TemplateClone
🧠 Learn how to save time and eliminate repetitive manual work in Excel!
👉 Don’t forget to Like 👍, Subscribe 🔔, and Share 📢 if you found this helpful.
Join this channel to get access to perks:
/ @luvrulzz
Hello Friends,
I am Rahul, My Contact details are as follows.
Facebook id: / luvrulzz
Instagram id: / luvrulzz
Twitter id : / luvrulzzindia
Youtube: / luvrulzz
email for business enquiry : [email protected]
Do Subscribe my Channel and comment below about this video.
vba code for copy:
Sub CopySheetMultipleTimes()
Dim i As Integer
Dim baseSheet As Worksheet
Dim newSheet As Worksheet
Dim sheetName As String
' Change "Sheet1" to your source sheet name
Set baseSheet = ThisWorkbook.Sheets("Sheet1")
For i = 1 To 41
baseSheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set newSheet = ActiveSheet
sheetName = "Sheet" & i
On Error Resume Next
newSheet.Name = sheetName
On Error GoTo 0
Next i
MsgBox "✅ Done! 41 copies created."
End Sub
vba code for auto data fetch:
Sub SetB3FormulaInEachSheet()
Dim i As Integer
Dim sheetName As String
' Loop from 1 to 42
For i = 1 To 42
sheetName = "Sheet" & i
On Error Resume Next
' Check if sheet exists
If Sheets(sheetName) Is Nothing Then
MsgBox "Sheet not found: " & sheetName
Else
' Set B3 formula to ='P C M'!B(i+1)
Sheets(sheetName).Range("B3").Formula = "='P C M'!B" & (i + 1)
End If
On Error GoTo 0
Next i
MsgBox "Done! All Sheet1 to Sheet42 updated with correct formula in B3."
End Sub