ಟ್ಯುಟೋರಿಯಲ್ ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ಶೀಟ್‌ಗಳನ್ನು ನಕಲಿಸಲು ಮ್ಯಾಕ್ರೋಗಳ ಸಂಗ್ರಹವನ್ನು ಒದಗಿಸುತ್ತದೆ: ಸೆಲ್ ಮೌಲ್ಯವನ್ನು ಆಧರಿಸಿ ನಕಲಿಸಿ ಮತ್ತು ಮರುಹೆಸರಿಸಿ, ಬಹು ಹಾಳೆಗಳನ್ನು ನಕಲಿಸಿ, ಸಕ್ರಿಯ ವರ್ಕ್‌ಶೀಟ್ ಅನ್ನು ತೆರೆಯದೆಯೇ ಮತ್ತೊಂದು ಫೈಲ್‌ಗೆ ನಕಲಿಸಿ ಮತ್ತು ಇನ್ನಷ್ಟು.

ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ಹಾಳೆಗಳನ್ನು ಹಸ್ತಚಾಲಿತವಾಗಿ ನಕಲಿಸುವುದು ಬಹಳ ತ್ವರಿತ ಮತ್ತು ನೇರವಾಗಿರುತ್ತದೆ... ಒಮ್ಮೆ ಅಥವಾ ಎರಡು ಬಾರಿ ನಿರ್ವಹಿಸಿದರೆ. ಅನೇಕ ಹಾಳೆಗಳನ್ನು ಅನೇಕ ಬಾರಿ ನಕಲು ಮಾಡುವುದು ನೀರಸ ಮತ್ತು ಸಮಯ ತೆಗೆದುಕೊಳ್ಳುತ್ತದೆ. ಈ ಪುಟದಲ್ಲಿ, ಈ ಕಾರ್ಯವನ್ನು ಸ್ವಯಂಚಾಲಿತಗೊಳಿಸಲು ನೀವು ಕೈಬೆರಳೆಣಿಕೆಯಷ್ಟು ಉಪಯುಕ್ತ ಮ್ಯಾಕ್ರೋಗಳನ್ನು ಕಾಣಬಹುದು.

ಹೊಸ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ಹಾಳೆಯನ್ನು ನಕಲಿಸಲು Excel VBA

ಈ ಸರಳವಾದ ಒಂದು ಸಾಲಿನ ಮ್ಯಾಕ್ರೋ ಮಾಡುತ್ತದೆ ಅದರ ಹೆಸರು ನಿಖರವಾಗಿ ಏನು ಸೂಚಿಸುತ್ತದೆ - ಸಕ್ರಿಯ ಹಾಳೆಯನ್ನು ಹೊಸ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ನಕಲಿಸುತ್ತದೆ.

ಸಾರ್ವಜನಿಕ ಉಪ ಕಾಪಿಶೀಟ್‌ಗೆ ಹೊಸ ವರ್ಕ್‌ಬುಕ್() ಸಕ್ರಿಯ ಶೀಟ್. ಅಂತ್ಯ ಉಪವನ್ನು ನಕಲಿಸಿ

ವಿಬಿಎ ಜೊತೆಗೆ ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ಬಹು ಹಾಳೆಗಳನ್ನು ನಕಲಿಸಿ

ನೀವು ಬಯಸಿದರೆ ಸಕ್ರಿಯ ವರ್ಕ್‌ಬುಕ್‌ನಿಂದ ಹೊಸದಕ್ಕೆ ಹಲವಾರು ಹಾಳೆಗಳನ್ನು ನಕಲಿಸಿ, ಆಸಕ್ತಿಯ ಎಲ್ಲಾ ವರ್ಕ್‌ಶೀಟ್‌ಗಳನ್ನು ಆಯ್ಕೆಮಾಡಿ ಮತ್ತು ಈ ಮ್ಯಾಕ್ರೋ ಅನ್ನು ರನ್ ಮಾಡಿ:

ಸಾರ್ವಜನಿಕ ಉಪ ಕಾಪಿಸೆಲೆಕ್ಟೆಡ್‌ಶೀಟ್‌ಗಳು() ActiveWindow.SelectedSheets.Copy End Sub

ಎಕ್ಸೆಲ್ VBA ಶೀಟ್ ಅನ್ನು ಮತ್ತೊಂದು ವರ್ಕ್‌ಬುಕ್‌ಗೆ ನಕಲಿಸಲು

ನೀವು ನಕಲು ಮಾಡಿದ ಶೀಟ್ ಅನ್ನು ಎಲ್ಲಿ ಸೇರಿಸಲು ಬಯಸುತ್ತೀರಿ ಎಂಬುದರ ಆಧಾರದ ಮೇಲೆ, ಈ ಕೆಳಗಿನ ಮ್ಯಾಕ್ರೋಗಳಲ್ಲಿ ಒಂದನ್ನು ಬಳಸಿ.

ಇನ್ನೊಂದು ವರ್ಕ್‌ಬುಕ್‌ನ ಪ್ರಾರಂಭಕ್ಕೆ ಹಾಳೆಯನ್ನು ನಕಲಿಸಿ

ಈ ಮ್ಯಾಕ್ರೋ ಮೊದಲು ಸಕ್ರಿಯ ಹಾಳೆಯನ್ನು ನಕಲಿಸುತ್ತದೆ ಡೆಸ್ಟಿನೇಶನ್ ಫೈಲ್‌ನಲ್ಲಿನ ಎಲ್ಲಾ ಇತರ ವರ್ಕ್‌ಶೀಟ್‌ಗಳು, ಈ ಉದಾಹರಣೆಯಲ್ಲಿ Book1 . ಇನ್ನೊಂದು ಫೈಲ್‌ಗೆ ನಕಲಿಸಲು, "Book1.xlsx" ಅನ್ನು ನಿಮ್ಮ ಟಾರ್ಗೆಟ್ ವರ್ಕ್‌ಬುಕ್‌ನ ಪೂರ್ಣ ಹೆಸರಿನೊಂದಿಗೆ ಬದಲಾಯಿಸಿ.

ಸಾರ್ವಜನಿಕ ಉಪCopySheetToBeginningAnotherWorkbook() activeSheet. ಮೊದಲು ನಕಲಿಸಿ:=ವರ್ಕ್‌ಬುಕ್‌ಗಳು( "Book1.xlsx" ).ಶೀಟ್‌ಗಳು(1) ಉಪ

ಮತ್ತೊಂದು ವರ್ಕ್‌ಬುಕ್‌ನ ಅಂತ್ಯಕ್ಕೆ ಹಾಳೆಯನ್ನು ನಕಲಿಸಿ

ಈ ಕೋಡ್ ತುಣುಕು ಸಕ್ರಿಯ ವರ್ಕ್‌ಶೀಟ್ ಅನ್ನು ನಕಲು ಮಾಡುತ್ತದೆ ಮತ್ತು ಪ್ರತಿಯನ್ನು ಪುಸ್ತಕ1 ನ ಅಂತ್ಯಕ್ಕೆ ಇರಿಸುತ್ತದೆ. ಮತ್ತೊಮ್ಮೆ, ದಯವಿಟ್ಟು "Book1.xlsx" ಅನ್ನು ನಿಮ್ಮ ಗಮ್ಯಸ್ಥಾನದ ಕಾರ್ಯಪುಸ್ತಕದ ಹೆಸರಿನೊಂದಿಗೆ ಬದಲಿಸಲು ಮರೆಯದಿರಿ.

ಸಾರ್ವಜನಿಕ ಉಪ CopySheetToEndAnotherWorkbook() activeSheet.Copy After:=Workbooks( "Book1.xlsx" ).Sheets(Workbooks( "Book1.xlsxlsxlsxlsx) " ).ವರ್ಕ್‌ಶೀಟ್‌ಗಳು.ಎಣಿಕೆ) ಉಪ

ಗಮನಿಸಿ. ಮ್ಯಾಕ್ರೋಗಳು ಕೆಲಸ ಮಾಡಲು, ಟಾರ್ಗೆಟ್ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ನಿಮ್ಮ ಹಾರ್ಡ್ ಡ್ರೈವ್ ಅಥವಾ ನೆಟ್‌ವರ್ಕ್‌ನಲ್ಲಿ ಉಳಿಸಬೇಕು.

ಆಯ್ದ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ಹಾಳೆಯನ್ನು ನಕಲಿಸಿ

ಪ್ರಸ್ತುತ ಹಾಳೆಯನ್ನು ಯಾವುದೇ ತೆರೆದ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ನಕಲಿಸಲು ಸಾಧ್ಯವಾಗುತ್ತದೆ, ನೀವು ListBox ನಿಯಂತ್ರಣದೊಂದಿಗೆ ( ListBox1 ) ಮತ್ತು ಎರಡು ಬಟನ್‌ಗಳೊಂದಿಗೆ ಬಳಕೆದಾರ ಫಾರ್ಮ್ ಅನ್ನು ( UserForm1 ಎಂದು ಹೆಸರಿಸಲಾಗಿದೆ) ರಚಿಸಬಹುದು:

ಮುಂದೆ, ಫಾರ್ಮ್ ಅನ್ನು ಡಬಲ್ ಕ್ಲಿಕ್ ಮಾಡಿ ಮತ್ತು ಕೋಡ್ ವಿಂಡೋದಲ್ಲಿ ಕೆಳಗಿನ ಕೋಡ್ ಅನ್ನು ಅಂಟಿಸಿ (wbk.Name) ಮುಂದಿನ ಅಂತ್ಯ ಉಪ ಖಾಸಗಿ ಉಪ ಕಮಾಂಡ್ ಬಟನ್1_ಕ್ಲಿಕ್ ಮಾಡಿ() ListBox1.ListIndex > -1 ನಂತರ SelectedWorkbook = ListBox1.List(ListBox1.ListIndex) End ಮಿ.Hide End Sub Private Sub CommandButton2_Click() SelectedWorkbook = "" Me.Hide End Sub

ಸ್ಥಳದಲ್ಲಿ UserForm ನೊಂದಿಗೆ, ನೀವು ಈ ಕೆಳಗಿನವುಗಳಲ್ಲಿ ಒಂದನ್ನು ಬಳಸಬಹುದು ನಕಲಿಸಲು ಮ್ಯಾಕ್ರೋಗಳುನಿಮ್ಮ ಆಯ್ಕೆಯ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ಸಕ್ರಿಯ ಹಾಳೆ.

ಆಯ್ಕೆಮಾಡಿದ ವರ್ಕ್‌ಬುಕ್‌ನ ಆರಂಭಕ್ಕೆ ಶೀಟ್ ಅನ್ನು ನಕಲಿಸಿ :

ಸಾರ್ವಜನಿಕ ಉಪ ಕಾಪಿಶೀಟ್ToBeginningAnotherWorkbook() Load UserForm1 UserForm1. ತೋರಿಸಿದರೆ (UserForm1.SelectedWork " " ) ನಂತರ ಆಕ್ಟಿವ್‌ಶೀಟ್. ಮೊದಲು ನಕಲಿಸಿ:=ವರ್ಕ್‌ಬುಕ್‌ಗಳು(ಯೂಸರ್‌ಫಾರ್ಮ್1.ಸೆಲೆಕ್ಟೆಡ್ ವರ್ಕ್‌ಬುಕ್).ಶೀಟ್‌ಗಳು(1) ಅಂತ್ಯಗೊಳಿಸಿದರೆ ಯೂಸರ್‌ಫಾರ್ಮ್1 ಎಂಡ್ ಸಬ್

ಆಯ್ಕೆ ಮಾಡಿದ ವರ್ಕ್‌ಬುಕ್‌ನ ಕೊನೆಗೆ ಶೀಟ್ ಅನ್ನು ನಕಲಿಸಿ :

ಸಾರ್ವಜನಿಕ ಉಪ CopySheetToEndAnotherWorkbook() UserForm1 UserForm1. ಲೋಡ್ ಮಾಡಿ ಉಪ

ಎಕ್ಸೆಲ್ ನಲ್ಲಿ ರನ್ ಮಾಡಿದಾಗ, ಮ್ಯಾಕ್ರೋ ಪ್ರಸ್ತುತ ತೆರೆದಿರುವ ಎಲ್ಲಾ ವರ್ಕ್‌ಬುಕ್‌ಗಳ ಪಟ್ಟಿಯನ್ನು ನಿಮಗೆ ತೋರಿಸುತ್ತದೆ. ನೀವು ಅಗತ್ಯವಿರುವದನ್ನು ಆಯ್ಕೆಮಾಡಿ ಮತ್ತು ಸರಿ ಕ್ಲಿಕ್ ಮಾಡಿ:

ಎಕ್ಸೆಲ್ ಮ್ಯಾಕ್ರೋ ಶೀಟ್ ಅನ್ನು ನಕಲಿಸಲು ಮತ್ತು ಮರುಹೆಸರಿಸಿ

ನೀವು ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ಹಾಳೆಯನ್ನು ನಕಲಿಸಿದಾಗ, ಪ್ರತಿಕೃತಿಯನ್ನು ನೀಡಲಾಗುತ್ತದೆ Sheet1 (2) ನಂತಹ ಡೀಫಾಲ್ಟ್ ಸ್ವರೂಪದಲ್ಲಿ ಹೆಸರು. ಕೆಳಗಿನ ಮ್ಯಾಕ್ರೋಗಳು ಡೀಫಾಲ್ಟ್ ಹೆಸರನ್ನು ಹಸ್ತಚಾಲಿತವಾಗಿ ಬದಲಾಯಿಸುವ ತೊಂದರೆಯನ್ನು ತಪ್ಪಿಸಬಹುದು.

ಈ ಕೋಡ್ ಸಕ್ರಿಯ ವರ್ಕ್‌ಶೀಟ್ ಅನ್ನು ನಕಲು ಮಾಡುತ್ತದೆ, ನಕಲನ್ನು "ಟೆಸ್ಟ್ ಶೀಟ್" ಎಂದು ಹೆಸರಿಸುತ್ತದೆ (ನೀವು ಇಷ್ಟಪಡುವ ಯಾವುದೇ ಹೆಸರಿನೊಂದಿಗೆ ಅದನ್ನು ಬದಲಾಯಿಸಲು ನೀವು ಸ್ವತಂತ್ರರು) , ಮತ್ತು ಪ್ರಸ್ತುತ ವರ್ಕ್‌ಬುಕ್‌ನ ಕೊನೆಯಲ್ಲಿ ನಕಲಿಸಿದ ಹಾಳೆಯನ್ನು ಇರಿಸುತ್ತದೆ.

ಸಾರ್ವಜನಿಕ ಉಪ CopySheetAndRenamePredefined() activeSheet.Copy After:=Worksheets(Sheets.Count) ರಂದು ದೋಷ ಪುನರಾರಂಭಿಸಿ ಮುಂದೆ activeSheet.Name ="ಟೆಸ್ಟ್ ಶೀಟ್" ಎಂಡ್ ಉಪ

ನಕಲು ಮಾಡಿದ ಶೀಟ್‌ಗೆ ಹೆಸರನ್ನು ನಿರ್ದಿಷ್ಟಪಡಿಸಲು ಬಳಕೆದಾರರನ್ನು ಅನುಮತಿಸಲು , ಈ ಕೋಡ್ ಅನ್ನು ಬಳಸಿ:

ಸಾರ್ವಜನಿಕ ಸಬ್ ಕಾಪಿಶೀಟ್‌ಆಂಡ್‌ರೀನೇಮ್() ಹೊಸಹೆಸರನ್ನು ಸ್ಟ್ರಿಂಗ್‌ನಂತೆ ಮಂದಗೊಳಿಸಿ ದೋಷ ಮುಂದಕ್ಕೆ ಹೊಸಹೆಸರು = InputBox( "ನಕಲು ಮಾಡಿದ ವರ್ಕ್‌ಶೀಟ್‌ಗೆ ಹೆಸರನ್ನು ನಮೂದಿಸಿ" ) ಹೊಸ ಹೆಸರು "" ಆಗಿದ್ದರೆ ಆಕ್ಟಿವ್‌ಶೀಟ್. ನಂತರ ನಕಲಿಸಿ:=ವರ್ಕ್‌ಶೀಟ್‌ಗಳು(ಶೀಟ್‌ಗಳು. ಎಣಿಕೆ) ದೋಷದ ಮೇಲೆ ಮುಂದಿನ ಸಕ್ರಿಯಶೀಟ್.ಹೆಸರು ಕೆಳಗಿನ ಇನ್‌ಪುಟ್ ಬಾಕ್ಸ್ ಅನ್ನು ಪ್ರದರ್ಶಿಸುತ್ತದೆ, ಇದರಲ್ಲಿ ನೀವು ಬಯಸಿದ ಹೆಸರನ್ನು ಟೈಪ್ ಮಾಡಿ ಮತ್ತು ಸರಿ ಒತ್ತಿರಿ:

ಎಕ್ಸೆಲ್ ಮ್ಯಾಕ್ರೋ ಶೀಟ್ ನಕಲಿಸಲು ಮತ್ತು ಸೆಲ್ ಮೌಲ್ಯವನ್ನು ಆಧರಿಸಿ ಮರುಹೆಸರಿಸಿ

ಇನ್ ಕೆಲವು ಸಂದರ್ಭಗಳಲ್ಲಿ, ನಿರ್ದಿಷ್ಟ ಸೆಲ್ ಮೌಲ್ಯದೊಂದಿಗೆ ನಕಲನ್ನು ಹೆಸರಿಸಲು ಇದು ಹೆಚ್ಚು ಅನುಕೂಲಕರವಾಗಿರುತ್ತದೆ, ಉದಾಹರಣೆಗೆ, ಕಾಲಮ್ ಹೆಡರ್. ಇದಕ್ಕಾಗಿ, ನೀವು ಮೇಲಿನ ಕೋಡ್ ಅನ್ನು ಸರಳವಾಗಿ ತೆಗೆದುಕೊಂಡು ಇನ್‌ಪುಟ್ ಬಾಕ್ಸ್‌ಗೆ ಪ್ರಸ್ತುತ ಆಯ್ಕೆ ಮಾಡಿದ ಸೆಲ್ ಮೌಲ್ಯವನ್ನು ಸ್ವಯಂಚಾಲಿತವಾಗಿ ಸರಬರಾಜು ಮಾಡಿ. ಹಿಂದಿನ ಉದಾಹರಣೆಯಂತೆ, ನಕಲನ್ನು ಸಕ್ರಿಯ ವರ್ಕ್‌ಬುಕ್‌ನ ಕೊನೆಯಲ್ಲಿ ಇರಿಸಲಾಗುತ್ತದೆ.

ಚಾಲನೆ ಮಾಡುವ ಮೊದಲು ನಿಮ್ಮ ಬಳಕೆದಾರರು ಯಾವಾಗಲೂ ಸರಿಯಾದ ಸೆಲ್ ಅನ್ನು ಆಯ್ಕೆಮಾಡುವುದು ಅತ್ಯಂತ ಟ್ರಿಕಿಯೆಸ್ಟ್ ಭಾಗವಾಗಿದೆ ಮ್ಯಾಕ್ರೋ :)

Public Sub CopySheetAndRenameByCell() ಹೊಸಹೆಸರನ್ನು ಸ್ಟ್ರಿಂಗ್‌ನಂತೆ ಮಸುಕುಗೊಳಿಸಿ ದೋಷ ಮುಂದುವರಿಕೆ ಮುಂದಿನ newName = InputBox( "ನಕಲು ಮಾಡಿದ ವರ್ಕ್‌ಶೀಟ್‌ಗೆ ಹೆಸರನ್ನು ನಮೂದಿಸಿ" , "ವರ್ಕ್‌ಶೀಟ್ ನಕಲಿಸಿ" , ActiveCell.Value) ಹೊಸ ಹೆಸರಾಗಿದ್ದರೆ "" ನಂತರ ಸಕ್ರಿಯ ನಂತರ ನಕಲು ಮಾಡಿ:=ವರ್ಕ್‌ಶೀಟ್‌ಗಳು(ಶೀಟ್‌ಗಳು.ಎಣಿಕೆ) ದೋಷ ಪುನರಾರಂಭದಲ್ಲಿ ಮುಂದಿನ ಸಕ್ರಿಯಶೀಟ್.ಹೆಸರುನಕಲನ್ನು ಹೆಸರಿಸಬೇಕಾದ ಸೆಲ್, ಕೆಳಗಿನ ಕೋಡ್‌ನಲ್ಲಿ ಸೆಲ್ A1. ಮತ್ತೊಂದು ಕೋಶವನ್ನು ಆಧರಿಸಿ ನಕಲಿಸಲಾದ ವರ್ಕ್‌ಶೀಟ್ ಅನ್ನು ಹೆಸರಿಸಲು, A1 ಅನ್ನು ಸೂಕ್ತವಾದ ಸೆಲ್ ಉಲ್ಲೇಖದೊಂದಿಗೆ ಬದಲಾಯಿಸಿ.ಸಾರ್ವಜನಿಕ ಉಪ CopySheetAndRenameByCell2() Wks ಅನ್ನು ವರ್ಕ್‌ಶೀಟ್‌ನಂತೆ ಮಂದಗೊಳಿಸಿ wks = ಆಕ್ಟಿವ್‌ಶೀಟ್ ಆಕ್ಟಿವ್‌ಶೀಟ್. ನಂತರ ನಕಲಿಸಿ:=ವರ್ಕ್‌ಶೀಟ್‌ಗಳು(ಶೀಟ್‌ಗಳು. ಎಣಿಕೆ) ವಾರಗಳು.ರೇಂಜ್ ಆಗಿದ್ದರೆ. ( "A1" ).ಮೌಲ್ಯ "" ನಂತರ ದೋಷದಲ್ಲಿ ಪುನರಾರಂಭಿಸಿ Next activeSheet.Name = wks.Range( "A1" ).ಮೌಲ್ಯ ಅಂತ್ಯ wks.ಆಕ್ಟಿವೇಟ್ ಎಂಡ್ ಸಬ್

ವರ್ಕ್‌ಶೀಟ್ ಅನ್ನು ಮುಚ್ಚಿದ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ನಕಲಿಸಲು ಮ್ಯಾಕ್ರೋ

ಈ ಮ್ಯಾಕ್ರೋ ಸಕ್ರಿಯ ಹಾಳೆಯನ್ನು ಮುಚ್ಚಿದ ವರ್ಕ್‌ಬುಕ್‌ನ ಅಂತ್ಯಕ್ಕೆ ನಕಲಿಸುತ್ತದೆ. ಕೋಡ್‌ನಲ್ಲಿ ಮತ್ತೊಂದು ವರ್ಕ್‌ಬುಕ್‌ನ ಹೆಸರನ್ನು ನಿರ್ದಿಷ್ಟಪಡಿಸಲಾಗಿಲ್ಲ - ಮ್ಯಾಕ್ರೋ ಪ್ರಮಾಣಿತ ವಿಂಡೋಸ್ ಎಕ್ಸ್‌ಪ್ಲೋರರ್ ವಿಂಡೋವನ್ನು ತೆರೆಯುತ್ತದೆ ಮತ್ತು ಯಾವುದೇ ಗಮ್ಯಸ್ಥಾನ ಫೈಲ್ ಅನ್ನು ಆಯ್ಕೆ ಮಾಡಲು ನಿಮಗೆ ಅನುಮತಿಸುತ್ತದೆ:

ನೀವು ಫೈಲ್ ಅನ್ನು ಆಯ್ಕೆ ಮಾಡಿದ ನಂತರ ಮತ್ತು ತೆರೆಯಿರಿ ಅನ್ನು ಕ್ಲಿಕ್ ಮಾಡಿ, ಮ್ಯಾಕ್ರೋ ಸಕ್ರಿಯ ಶೀಟ್ ಅನ್ನು ನಕಲಿಸುತ್ತದೆ ಮತ್ತು ಟಾರ್ಗೆಟ್ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ಸ್ವಯಂಚಾಲಿತವಾಗಿ ಮುಚ್ಚುತ್ತದೆ.

ಸಾರ್ವಜನಿಕ ಸಬ್ ಕಾಪಿಶೀಟ್ToClosedWorkbook() ಮಸುಕಾದ ಫೈಲ್‌ನ ಹೆಸರು ಮಸುಕಾದ ಕ್ಲೋಸ್ಡ್‌ಬುಕ್ ವರ್ಕ್‌ಬುಕ್‌ನಂತೆ ಮಂದ ಪ್ರಸ್ತುತ ಹಾಳೆ ವರ್ಕ್‌ಶೀಟ್ ಫೈಲ್‌ನಮ್ = ಅಪ್ಲಿಕೇಶನ್.ಗೆಟ್‌ಓಪನ್‌ಫೈಲ್‌ನೇಮ್( "ಎಕ್ಸೆಲ್ ಫೈಲ್‌ಗಳು (*.xlsx), *.xlsx" ) ಫೈಲ್ ಹೆಸರು ತಪ್ಪಾಗಿದ್ದರೆ ಅಪ್ಲಿಕೇಶನ್.ಸ್ಕ್ರೀನ್‌ಅಪ್‌ಡೇಟಿಂಗ್ = ತಪ್ಪು ಸೆಟ್ ಕರೆಂಟ್‌ಶೀಟ್ = ಅಪ್ಲಿಕೇಶನ್.ಆಕ್ಟಿವ್‌ಶೀಟ್ ಸೆಟ್ ಕ್ಲೋಸ್‌ಬುಕ್ = ವರ್ಕ್‌ಬುಕ್‌ಗಳು. (fileName) ಕರೆಂಟ್‌ಶೀಟ್ ತೆರೆಯಿರಿ. ನಂತರ ನಕಲಿಸಿ:=closedBook.Sheets(closedBook.Worksheets.Count) closeBook. ಮುಚ್ಚು ( ನಿಜ ) Application.ScreenUpdating = True End If End Sub

Excel VBA ಇಲ್ಲದೆ ಇನ್ನೊಂದು ವರ್ಕ್‌ಬುಕ್‌ನಿಂದ ಹಾಳೆಯನ್ನು ನಕಲಿಸಲುತೆರೆಯುವಿಕೆ

ಈ ಮ್ಯಾಕ್ರೋ ಅದನ್ನು ತೆರೆಯದೆಯೇ ಮತ್ತೊಂದು ಎಕ್ಸೆಲ್ ಫೈಲ್‌ನಿಂದ ವರ್ಕ್‌ಶೀಟ್ ಅನ್ನು ನಕಲಿಸಲು ನಿಮಗೆ ಅನುವು ಮಾಡಿಕೊಡುತ್ತದೆ. ಪ್ರಸ್ತುತ ವರ್ಕ್‌ಬುಕ್‌ನ ಕೊನೆಯಲ್ಲಿ ನಕಲಿಸಲಾದ ಹಾಳೆಯನ್ನು ಸೇರಿಸಲಾಗುತ್ತದೆ.

ಕೋಡ್‌ನಲ್ಲಿ ಒಂದೆರಡು ಬದಲಿಗಳನ್ನು ಮಾಡಲು ಮರೆಯದಿರಿ:

• C:\Users\XXX\Documents\ Target_Book.xlsx ಅನ್ನು ನೀವು ಶೀಟ್ ಅನ್ನು ನಕಲಿಸಲು ಬಯಸುವ ವರ್ಕ್‌ಬುಕ್‌ನ ನಿಜವಾದ ಮಾರ್ಗ ಮತ್ತು ಹೆಸರಿಗೆ ಬದಲಾಯಿಸಬೇಕು.
• Sheet1 ಅನ್ನು ನೀವು ನಕಲಿಸಲು ಬಯಸುವ ಶೀಟ್‌ನ ಹೆಸರಿನೊಂದಿಗೆ ಬದಲಾಯಿಸಬೇಕು.

ಪಬ್ಲಿಕ್ ಸಬ್ ಕಾಪಿಶೀಟ್‌ಫ್ರಾಮ್‌ಕ್ಲೋಸ್ಡ್‌ವರ್ಕ್‌ಬುಕ್() ಡಿಮ್ ಸೋರ್ಸ್‌ಬುಕ್ ವರ್ಕ್‌ಬುಕ್ ಅಪ್ಲಿಕೇಶನ್‌ನಂತೆ. ಸ್ಕ್ರೀನ್‌ಅಪ್‌ಡೇಟಿಂಗ್ = ಫಾಲ್ಸ್ ಸೆಟ್ ಸೋರ್ಸ್‌ಬುಕ್ = ವರ್ಕ್‌ಬುಕ್‌ಗಳು. ತೆರೆಯಿರಿ ( "C:\Users\XXX\Documents\Target_Book.xlsx" ) sourceBook.Sheets( "Sheet1" ).ನಂತರ ನಕಲಿಸಿ:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) sourceBook. ಅಪ್ಲಿಕೇಶನ್ ಮುಚ್ಚಿ ಈ ಕೆಳಗಿನ ಮ್ಯಾಕ್ರೋದೊಂದಿಗೆ ಇದನ್ನು ಸುಲಭವಾಗಿ ಮಾಡಬಹುದು.ಸಾರ್ವಜನಿಕ ಉಪ ನಕಲು ಶೀಟ್‌ಮಲ್ಟಿಪಲ್‌ಟೈಮ್ಸ್() ಡಿಮ್ n ಅಸ್ ಇಂಟಿಜರ್ ಆನ್ ಎರರ್ ರೆಸ್ಯೂಮ್ ಮುಂದೆ n = ಇನ್‌ಪುಟ್‌ಬಾಕ್ಸ್ ("ನೀವು ಸಕ್ರಿಯ ಶೀಟ್‌ನ ಎಷ್ಟು ಪ್ರತಿಗಳನ್ನು ಮಾಡಲು ಬಯಸುತ್ತೀರಿ?" ) n > = 1 ನಂತರ numtimes ಗೆ = 1 ಗೆ n activeSheet. ನಂತರ ನಕಲು ಮಾಡಿ:=ActiveWorkbook.Sheets(Worksheets.count) ಮುಂದಿನ ಅಂತ್ಯ ವೇಳೆ ಎಂಡ್ ಉಪ

ಮೂಲ ಹಾಳೆಯನ್ನು ತೆರೆಯಿರಿ, ಮ್ಯಾಕ್ರೋ ಅನ್ನು ರನ್ ಮಾಡಿ, ಸಕ್ರಿಯ ಹಾಳೆಯ ಎಷ್ಟು ಪ್ರತಿಗಳನ್ನು ಸೂಚಿಸಿನೀವು ಮಾಡಲು ಬಯಸುತ್ತೀರಿ, ಮತ್ತು ಕ್ಲಿಕ್ ಮಾಡಿ ಸರಿ :

VBA ಜೊತೆಗೆ Excel ನಲ್ಲಿ ಹಾಳೆಗಳನ್ನು ನಕಲು ಮಾಡುವುದು ಹೇಗೆ

Excel ನಲ್ಲಿ ಹಾಳೆಯನ್ನು ನಕಲಿಸಲು ಮೇಲಿನ ಮ್ಯಾಕ್ರೋಗಳಲ್ಲಿ ಒಂದನ್ನು ಬಳಸಿಕೊಂಡು, ನೀವು ನಿಮ್ಮ ಸ್ವಂತ ಪುಸ್ತಕದಲ್ಲಿ VBA ಕೋಡ್ ಅನ್ನು ಸೇರಿಸಬಹುದು ಅಥವಾ ನಮ್ಮ ಮಾದರಿ ವರ್ಕ್‌ಬುಕ್‌ನಿಂದ ಮ್ಯಾಕ್ರೋ ಅನ್ನು ರನ್ ಮಾಡಬಹುದು.

ನಿಮ್ಮ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ಮ್ಯಾಕ್ರೋ ಅನ್ನು ಹೇಗೆ ಸೇರಿಸುವುದು

ಸೇರಿಸಲು ನಿಮ್ಮ ವರ್ಕ್‌ಬುಕ್‌ನಲ್ಲಿ ಕೋಡ್, ಈ ಹಂತಗಳನ್ನು ನಿರ್ವಹಿಸಿ:

1. ನೀವು ನಕಲಿಸಲು ಬಯಸುವ ವರ್ಕ್‌ಶೀಟ್ ತೆರೆಯಿರಿ.
2. ವಿಷುಯಲ್ ಬೇಸಿಕ್ ಎಡಿಟರ್ ತೆರೆಯಲು Alt + F11 ಒತ್ತಿರಿ.
3. ಆನ್ ಎಡ ಫಲಕದಲ್ಲಿ, ಈ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ಬಲ ಕ್ಲಿಕ್ ಮಾಡಿ, ತದನಂತರ ಸೇರಿಸು > ಮಾಡ್ಯೂಲ್ ಕ್ಲಿಕ್ ಮಾಡಿ.
4. ಕೋಡ್ ವಿಂಡೋದಲ್ಲಿ ಕೋಡ್ ಅನ್ನು ಅಂಟಿಸಿ.
5. ಮ್ಯಾಕ್ರೋ ರನ್ ಮಾಡಲು F5 ಒತ್ತಿರಿ.

ವಿವರವಾದ ಹಂತ-ಹಂತದ ಸೂಚನೆಗಳಿಗಾಗಿ, ದಯವಿಟ್ಟು Excel ನಲ್ಲಿ VBA ಕೋಡ್ ಅನ್ನು ಹೇಗೆ ಸೇರಿಸುವುದು ಎಂಬುದನ್ನು ನೋಡಿ.

ರನ್ ಮಾಡುವುದು ಹೇಗೆ ನಮ್ಮ ಮಾದರಿ ವರ್ಕ್‌ಬುಕ್‌ನಿಂದ ಒಂದು ಮ್ಯಾಕ್ರೋ

ಪರ್ಯಾಯವಾಗಿ, ನೀವು ನಮ್ಮ ಮಾದರಿ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ನಕಲಿ ಎಕ್ಸೆಲ್ ಶೀಟ್‌ಗಳಿಗೆ ಡೌನ್‌ಲೋಡ್ ಮಾಡಬಹುದು ಮತ್ತು ಅಲ್ಲಿಂದ ಕೋಡ್ ಅನ್ನು ರನ್ ಮಾಡಬಹುದು.

ಮಾದರಿ ವರ್ಕ್‌ಬುಕ್ ಈ ಕೆಳಗಿನ ಮ್ಯಾಕ್ರೋಗಳನ್ನು ಒಳಗೊಂಡಿದೆ:

CopySheetToNewWorkbook - cu ಅನ್ನು ನಕಲಿಸುತ್ತದೆ ಹೊಸ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ವರ್ಕ್‌ಶೀಟ್ ಅನ್ನು rrent ಮಾಡಿ.

CopySelectedSheets - ನೀವು ಹೊಸ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ಆಯ್ಕೆ ಮಾಡುವ ಬಹು ಹಾಳೆಗಳನ್ನು ನಕಲಿಸುತ್ತದೆ.

CopySheetToBeginningAnotherWorkbook - ಸಕ್ರಿಯ ಹಾಳೆಯನ್ನು ನಕಲಿಸುತ್ತದೆ ಮತ್ತೊಂದು ಕಾರ್ಯಪುಸ್ತಕದ ಆರಂಭಕ್ಕೆ ಹಾಳೆ,ಬಳಕೆದಾರರಿಂದ ನಿರ್ದಿಷ್ಟಪಡಿಸಿದಂತೆ ಅದನ್ನು ಮರುಹೆಸರಿಸುತ್ತದೆ ಮತ್ತು ಪ್ರಸ್ತುತ ವರ್ಕ್‌ಬುಕ್‌ನಲ್ಲಿ ಎಲ್ಲಾ ಇತರ ಹಾಳೆಗಳ ನಂತರ ನಕಲನ್ನು ಇರಿಸುತ್ತದೆ.

CopySheetAndRenamePredefined - ಸಕ್ರಿಯ ಹಾಳೆಯನ್ನು ನಕಲು ಮಾಡುತ್ತದೆ, ನಕಲಿಗೆ ಹಾರ್ಡ್‌ಕೋಡ್ ಮಾಡಿದ ಹೆಸರನ್ನು ನೀಡುತ್ತದೆ ಮತ್ತು ಅದನ್ನು ಇರಿಸುತ್ತದೆ ಪ್ರಸ್ತುತ ವರ್ಕ್‌ಬುಕ್‌ನ ಕೊನೆಯಲ್ಲಿ.

CopySheetAndRenameByCell - ಸಕ್ರಿಯ ಹಾಳೆಯ ನಕಲನ್ನು ಮಾಡುತ್ತದೆ ಮತ್ತು ಆಯ್ಕೆಮಾಡಿದ ಸೆಲ್ ಮೌಲ್ಯವನ್ನು ಆಧರಿಸಿ ಅದನ್ನು ಮರುಹೆಸರಿಸುತ್ತದೆ.

CopySheetAndRenameByCell2 - ಸಕ್ರಿಯ ಶೀಟ್ ಅನ್ನು ನಕಲಿಸುತ್ತದೆ ಮತ್ತು ಹಾರ್ಡ್‌ಕೋಡ್ ಮಾಡಿದ ಸೆಲ್ ವಿಳಾಸವನ್ನು ಆಧರಿಸಿ ಅದನ್ನು ಮರುಹೆಸರಿಸುತ್ತದೆ.

CopySheetToClosedWorkbook - ಮುಚ್ಚಿದ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ಹಾಳೆಯನ್ನು ನಕಲಿಸಲು ನಿಮಗೆ ಅನುಮತಿಸುತ್ತದೆ.

CopySheetFromClosedWorkbook - ಇನ್ನೊಂದು ಎಕ್ಸೆಲ್ ಫೈಲ್‌ನಿಂದ ಹಾಳೆಯನ್ನು ತೆರೆಯದೆಯೇ ನಕಲಿಸಲು ನಿಮಗೆ ಅನುವು ಮಾಡಿಕೊಡುತ್ತದೆ.

DuplicateSheetMultipleTimes - ನೀವು Excel ನಲ್ಲಿ ಹಾಳೆಯನ್ನು ಹಲವಾರು ಬಾರಿ ನಕಲು ಮಾಡಲು ಅನುಮತಿಸುತ್ತದೆ.

ಗೆ ನಿಮ್ಮ ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ಮ್ಯಾಕ್ರೋವನ್ನು ರನ್ ಮಾಡಿ, ಈ ಕೆಳಗಿನವುಗಳನ್ನು ಮಾಡಿ:

1. ಡೌನ್‌ಲೋಡ್ ಮಾಡಿದ ವರ್ಕ್‌ಬುಕ್ ತೆರೆಯಿರಿ ಮತ್ತು ಪ್ರಾಂಪ್ಟ್ ಮಾಡಿದರೆ ವಿಷಯವನ್ನು ಸಕ್ರಿಯಗೊಳಿಸಿ.
2. ನಿಮ್ಮ ಸ್ವಂತ ವರ್ಕ್‌ಬುಕ್ ತೆರೆಯಿರಿ ಮತ್ತು ನೀವು ಬಯಸುವ ಶೀಟ್‌ಗೆ ನ್ಯಾವಿಗೇಟ್ ಮಾಡಿ ನಕಲು.
<1 7>ನಿಮ್ಮ ವರ್ಕ್‌ಶೀಟ್‌ನಲ್ಲಿ, Alt + F8 ಒತ್ತಿರಿ, ಆಸಕ್ತಿಯ ಮ್ಯಾಕ್ರೋ ಆಯ್ಕೆಮಾಡಿ ಮತ್ತು Run ಕ್ಲಿಕ್ ಮಾಡಿ.

ನೀವು ನಕಲು ಮಾಡಬಹುದು VBA ಜೊತೆಗೆ ಎಕ್ಸೆಲ್ ನಲ್ಲಿ ಒಂದು ಹಾಳೆ. ಓದಿದ್ದಕ್ಕಾಗಿ ನಾನು ನಿಮಗೆ ಧನ್ಯವಾದಗಳು ಮತ್ತು ಮುಂದಿನ ವಾರ ನಮ್ಮ ಬ್ಲಾಗ್‌ನಲ್ಲಿ ನಿಮ್ಮನ್ನು ನೋಡುತ್ತೇನೆ ಎಂದು ಭಾವಿಸುತ್ತೇನೆ!