Dear Sir how can I add a third sheet data to the second and fourth sheet data of the third and so on Sub Macro1() ' ' Macro1 Macro ' ' Sheets("Sheet1").Copy After:=Sheets(1) Sheets("Sheet1").Select Range("A5").Select Selection.Copy Sheets("Sheet1 (2)").Select Range("B5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C5").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "0" Range("E7").Select End Sub
With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\gsspagun\Desktop\PARASU\9th and 10th batch\00MN779_07.dat", _ Destination:=Range("$A$1")) now it is direct file location, how to change this to select manual file selection
Get Certified in Excel VBA:bit.ly/41fWeVP
Use coupon "TH-cam12" to get ‘’FLAT 12%’’ OFF at Checkout.
you made me learn idol
God bless you
Shift + F11, thanks for this :D
u r d best...
Very nice Sir understanding
how to bloc the adding sheets in thisworkbook
Many thanks!!!
Thank you..
Bro mine is showing run time eror9 subscription out of range
Sir...excel main plus addin sheet wala option show ho rha but click krne pr kuch ni ho rha
Sir I want to do if excel workbook open five time then file expire
i try this long method to open the sheets but i got subscript out of range error i didn't understand it
i tried your sheets.add but when running, it says run time error 1004, application defind error
Can u plz also make a video on how to prevent add more sheet in excel , instead of add more sheet..
Dear Sir how can I add a third sheet data to the second and fourth sheet data of the third and so on
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Sheet1").Copy After:=Sheets(1)
Sheets("Sheet1").Select
Range("A5").Select
Selection.Copy
Sheets("Sheet1 (2)").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
Range("E7").Select
End Sub
thanks
Please provide the code in description or else make background view as clear for every video.
Please make sure you have good internet speeed
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\gsspagun\Desktop\PARASU\9th and 10th batch\00MN779_07.dat", _
Destination:=Range("$A$1"))
now it is direct file location, how to change this to select manual file selection