xws

Hi, I have the following code, that should delete some sheets, change to values and protect the other ones, save and close. it works, except for one sheet(Units) that contains a table. In this one, the content gets twisted, showing formulas pasted as values and out of 500 lines, 25-30 are copied...

Hi, how can i modify the code below in Outlook that when file opens in Excel is in maximize window. Public Sub OpenVendorChartofAcounts() Dim xExcelFile As String Dim xExcelApp As Excel.Application Dim xWb As Excel.Workbook Dim xWs As Excel.Worksheet Dim xExcelRange As...

I have this code which works, but I need to finesse it; Sub filtersheets() Dim xWs As Worksheet On Error Resume Next For Each xWs In Worksheets xWs.Range("b4").AutoFilter 2, Sheets("total").Range("C1") Next End Sub What I want to change; - if C1 contains "ALL" it unfilters - any change to...

I have a workbook with 351 sheets, I need a VBA code to copy cells A1 to new column from R5 to R49 (in all sheets) and Copy from cell B1 to new column from S5 to S49 (in all sheets) Here is the code that merge everything else (skipping the fist few lines) Sub Combine() Dim i As Integer...

I have two sheet in a workbook. I am using VBA code to filter the data using following code: <code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco...

I have a macro: Sub apply_autofilter_across_worksheets() 'Updateby Extendoffice 20160623 Dim xWs As Worksheet On Error Resume Next For Each xWs In Worksheets xWs.Range("I2").AutoFilter 9, "=0.00" Next End Sub As you can see, I didn't write it, but I understand the...

I have several sheet and have written code to export these to directory C:\data I would like to mend the code to only export that sheets that has data in cell A1 Your assistance in this regard is most appreciated Sub ExportSheetsToCSV() Application.DisplayAlerts = False Dim xWs As...