Posts

Create many folders based on selection

 Macro code Sub MakeFolders() Dim Rng As Range Dim maxRows, maxCols, r, c As Integer Set Rng = Selection maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count For c = 1 To maxCols r = 1 Do While r <= maxRows If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) On Error Resume Next End If r = r + 1 Loop Next c End Sub
Post a Comment
Read more

cache

Image
Post a Comment
Read more

VB Script running copy from ne to another

 Set objExcel = CreateObject("Excel.Application")  objExcel.Visible = True Set objPasteData = objExcel.Workbooks.Open("C:\Scripts\dest.xlsx") 'Copy From File name give correctly Set objRawData= objExcel.Workbooks.Open("C:\Scripts\\Source.xlsx")             'Paste To File Set obj1 = objPasteData.WorkSheets("Sheet1") 'Worksheet to be cleared Set obj2= objRawData.WorkSheets("Sheet1") 'Worksheet to be cleared 'obj1.Cells.Clear countSheet = objRawData.Sheets.Count For i = 1 to countSheet     objRawData.Activate     name = objRawData.Sheets(i).Name     objRawData.WorkSheets(name).Select     objRawData.Worksheets(name).Range("A2").Select     objExcel.ActiveSheet.UsedRange.Select     usedRowCount1 = objExcel.Selection.Rows.Count msgbox"working"     objExcel.Range("A2:A25" & usedRowCount1).Copy     objPasteData.Activate     objPasteData.WorkSheets("Sheet1").S...
Post a Comment
Read more

Excel learnings

  Record the data changes and fill in rows https://www.mrexcel.com/board/threads/record-real-time-data-in-subsequent-rows.583373/ vba - how to capture real time data in excel - Stack Overflow https://docs.microsoft.com/en-us/microsoft-365/education/data-streamer/create-data-table
Post a Comment
Read more