1. M

    Changing all remaining sheets to values, keeping the table format.

    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...
  2. J

    Maximize Window

    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...
  3. M

    Tweak code - filter multiple sheets

    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...
  4. G

    How to copy Cell A1 and B1 to 45 rows in new columns?

    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...
  5. H

    How to filter according to cell value using vba?

    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...
  6. B

    VBA for multiple criteria autofilter

    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...
  7. H

    Export Sheets as csv

    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...

Some videos you may like

This Week's Hot Topics