Pinned Posts
Forum Widgets
Latest Discussions
VBA Data Import
Looking for VBA code to parse a list. The list is an extract of a music playlist which retains the Line 1 "name of song", skips the second line which is a repeat of Line 1. Line 3: Retains Artist name Line 4: Retains Album Name Line 5: Time of song - Will probably have to manually move or delete these manually The list is one of my Playlist from Amazon Music Prime. Thank you. Song Artist Album Time Whisper Whisper Marion Meadows Whisper 4:16 Just Doing Me Just Doing Me Marion Meadows Just Doing Me 2:54 Midnight Bolero Midnight Bolero Armik Amor De Guitarra 4:52 Every Kinda People Every Kinda People Architects of Sound
Not including all columns when consolidating multiple Excel onto one tab?
Hello - I am running the following VBA code to write all rows/columns from multiple worksheets (in the same workbook) onto a 'consolidated' worksheet in that same workbook. My columns on all worksheets are the same and go out to Column 'BT'. My script runs fine, but is only writing out to Column 'BN' in my 'Consolidated' worksheet. Why is it cutting off Columns 'BM' thru 'BT'? Here is the VBA code I'm running: Sub ConsolidateVisibleSheets() Dim ws As Worksheet Dim destSheet As Worksheet Dim lastRow As Long, destLastRow As Long Dim copyRange As Range ' Create or activate the destination sheet On Error Resume Next Set destSheet = ThisWorkbook.Sheets("Consolidated") If destSheet Is Nothing Then Set destSheet = ThisWorkbook.Sheets.Add destSheet.Name = "Consolidated" End If On Error GoTo 0 destSheet.Cells.Clear ' Clear existing data on the destination sheet ' Loop through all sheets in the workbook For Each ws In ThisWorkbook.Sheets ' Skip hidden sheets and the destination sheet If ws.Visible = xlSheetVisible And ws.Name <> destSheet.Name Then ' Find the last row of data in the current sheet lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' Define the range to copy Set copyRange = ws.Range("A1", ws.Cells(lastRow, ws.Columns.Count).End(xlToLeft)) ' Find the last row in the destination sheet destLastRow = destSheet.Cells(destSheet.Rows.Count, 1).End(xlUp).Row + 1 ' Copy and paste with formatting copyRange.Copy destSheet.Cells(destLastRow, 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme End If Next ws ' Clean up Application.CutCopyMode = False MsgBox "Data consolidated successfully!", vbInformation End Sub Any help is greatly appreciated!Opening CSV file with UT8-encoding (65001) as default for csv files.
Hello, I am trying to open a csv file, that contains Arabic characters. In most cases, it will render the Arabic Character as unreadable characters (as shown in the image below). Those scenarios, include opening the file by double clicking, saving it again as CSV with UTF-8, or converting it to XLSX, all of which result in the same thing as the first image. The only I found to actually make it render them correctly by following this: https://support.microsoft.com/en-gb/office/opening-csv-utf-8-files-correctly-in-excel-8a935af5-3416-4edd-ba7e-3dfd2bc4a032 Which does allow me to select utf-8 encoding. Other CSV viewers don't have that issue. It would be convenient to have away to make this behavior the default. In my organization we have thousands of employees, and the fact they have to open Excel, go to the Data section, select import CSV, select the encoding, then click importing for every single CSV file we have is very annoying, we deal with thousands of files per month. The second Image is for another file: Here is the file in case anyone want to try to open it. Please note we need to support as old as Excel 2016 for any solutions. The CSV files are generated from Power Automate Flows, and we would really like to avoid any sort of conversion between the formats online (Though I don't mind if I can embed let's say, a character or so at the end of the file to make Excel open it correctly) as our experience has been very slow for anything Excel related in Power Automate (if for example we use Excel to generate the files instead of CSV, it would take around 3 hours for each file at least, compared to 5 minutes in CSV). Best, Ali A.
Automate the function
Hi, I have a few thousand records of Course with ANZSIC allocation proportion. Is it possible to create an excel function to pick up the highest values within the same course whose difference of proportion with the next highest is within 0.1 and highlight it out? In this case, the first 3 records will be highlighted. Attached with an example for reference. coursecode coursename ANZSICDivisionDesc ANZSICDivisionCode ANZSICConcordanceProportion ABC123 Certificate III in Meat Processing (Food Services) Manufacturing C 0.45 ABC123 Certificate III in Meat Processing (Food Services) Retail Trade G 0.45 ABC123 Certificate III in Meat Processing (Food Services) Wholesale Trade F 0.1 BCD123 Certificate III in Meat Safety Inspection Manufacturing C 0.65 BCD123 Certificate III in Meat Safety Inspection Public Administration and Safety O 0.35 Regards EPExcel desktop application crashes when trying to share or copy link
For the last couple of weeks when I've attempted to share an Excel file from the desktop app (multiple different files) the application crashed and closes out. The file are all saved to my personal OneDrive. It only seems to affect the files from my SharePoint, and only when trying to share through the desktop app. I can open it on the web version and share. I tried sharing a file that was opened through a SharePoint site and it seemed to work.
Conditional Formatting
Hello, I am developing a conditional formatting rule that allows me to enter a specific text value, and if it matches the content of another cell, that cell will be highlighted in green. However, instead of highlighting only the matching cell, the entire selected range is being highlighted each time I enter a text value.
