Loosing data when unmerging cells

Badfish

New Member
Joined
Sep 28, 2018
Messages
2
Hello,

Every week I recieve a data report in an excel file. I need to input this data in another program as a CSV file.

This file is very hard to work with as there are multiple merged cells and many blank "spacer" rows and columns.

I have tried to use a macro to unmerge all the cells and then delete all the useless rows and columns to keep only the data in a clean 21X52 cell range and then save as CSV.

The problem is that the unmerging erases all the data and I get only blank cells.

Here is my macro :
Code:
Sub ExtractC()
Application.ScreenUpdating = False

'Make a copy of the data to work with
    Sheets("Sheet1").Copy After:=Sheets(1)
    'Cells.Select

'THIS PART ISN'T WORKING AS EXPECTED...
    Selection.UnMerge

'Delete unneded rows    
    Range("1:9,14:14,19:19,24:24,29:29,34:34,39:39,44:44,49:49,54:54,59:60,65:65,70:70,75:75,76:81").Delete Shift:=xlUp

'Delete unneded columns        
    Range("A:D,F:H,J:L,N:Q,S:T,V:W,Y:Z,AB:AD,AF:AG,AI:AJ,AL:AM,AO:AP,AR:AS,AU:AV,AX:AY,BA:BB,BD:BE,BG:BH,BJ:BK,BM:BN,BP:BQ,BS:BT,BV:BY").Delete Shift:=xlToLeft
    
Application.ScreenUpdating = True



'Prompt to save as CSV (code modified from https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-msoffice_custom-mso_2013_release/vba-excel-code-to-prompt-user-for-directory-to/fbd13feb-4f5d-476b-b468-a02a2d1497a2)
Static DefFileName As String
Dim SaveAsFileName As Variant


If DefFileName = "" Then
   DefFileName = Environ("USERPROFILE") & "\CUSM.CSV"
End If


SaveAsFileName = Application.GetSaveAsFilename( _
DefFileName, "CSV Files (*.csv), *.csv")
If VarType(SaveAsFileName) = vbBoolean Then
    'Aborted
    Exit Sub
End If
ActiveWorkbook.SaveAs SaveAsFileName, xlCSV, CreateBackup:=False


End Sub

I also thought of creating a macro to look through the data range and copy each non-blank cell on a new sheet that I can then save as CSV. However I have no idea how to start this type of macro.
 

Excel Facts

Excel Can Read to You
Customize Quick Access Toolbar. From All Commands, add Speak Cells or Speak Cells on Enter to QAT. Select cells. Press Speak Cells.
merge cells have data in the left most cell, so make you columns wider, and only delete blank to the right
 
Upvote 0
SOLVED

I have found the problem. The data wasn't erased, it was just hidden because the columns were too thin to be seen.
 
Upvote 0

Forum statistics

Threads
1,223,229
Messages
6,170,881
Members
452,364
Latest member
springate

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top