sht

  1. N

    Add worksheets in combobox to enter and save record to selected sheetname automatically

    Hi, I need to maintain my daily sales month wise so have created recommended user form but i have total 12 worksheets in one workbook so i need to create a combobox in userform and need to Add worksheets in combobox to enter and save record to selected sheetname automatically. can you help me...
  2. M

    Macro to copy and paste from different sheets to 1 single sheet

    Hi, I have a workbook with that 950+ worksheets, need to combine them in 1 single spreadsheet. My requirement is to copy and paste the formats and numbers only as each sheet has calculated values. Also I would like to add 3 new lines every time after pasting the data.The code I am using pastes...
  3. G

    SynTax Issues for Clearing a Specific Sheet

    Sub Clear_Eng_1() Dim sht As Worksheets For Each sht In ActiveWorkbook.Worksheets If (sht.Name <> "ECD") And (sht.Name <> "Revisions") Then sht.Activate With Range("A7:AV3000") .Clear .NumberFormat = "General" .Interior.Pattern = xlNone...
  4. B

    Refreshing My Workbook

    I would like to refresh my workbook when I click on the refresh button that I put in my workbook no matter what. Right now the code I have with the refresh button is Sub logs() Dim Sht As Worksheet Dim checkRange As Range, CheckCell As Range For Each Sht In ThisWorkbook.Sheets With Sht...
  5. T

    Macro to Find and Replace text on two sheets

    I could not find a code out there to Find and replace text for two specific worksheets in my workbook - "WTD TNR" sheet & "WTD GDS" sheet. This is the following code I have found, but need it strictly for those two sheets above: Sub FindReplace() Dim sht As Worksheet Dim fnd As Variant Dim...
  6. A

    save sheets as PDF

    I use the following code to save all sheets with names starting with "LP" as separate pdf files: Sub Save_all_Reports() Dim Fname As String Dim Sht As Worksheet For Each Sht In ActiveWorkbook.Sheets If UCase(Left(Sht.Name, 2)) = "LP" Then 'Only include sheets beginning LP...
  7. S

    Excel VBA - Filter Applied test

    Hi, I have a spreadsheet with 45 columns. It is used to refine a data set. It is necessary to filter and sort in each step. For any one of several reasons I often apply a filter, then forget it is there. I am trying to write code that will change the color of the header row when any column is...
  8. A

    VBA Code to exclude sheets with no data

    Hi I have this formula below (thanks Rick Rothstein!) that combines all worksheet data in to one worksheet. However, I need to exclude those worksheets/tab with no data at all (only with header). PLEASE HELP ME! THANK YOU!!! Sub Button2_Click() Dim NextRow As Long, Sht As Worksheet For...
  9. G

    Clearing Cells VBA

    Hello all, Here is my code to clear all my cells to have a blank template to begin again: Sub ClearContents() Dim sht As Worksheet 'In case of no numeric formula or constants On Error Resume Next 'Procedure For Each sht In ActiveWorkbook.Worksheets If (sht.Name <> "Instructions") And...
  10. A

    VBA code to copy all data not only one row data

    Hi, pls help. I am combining all worksheets data into one worksheet. Below is the code. However, it's only copying the second row data (below header). How can I copy all? Thanks! Sub Button2_Click() Dim Sht As Worksheet For Each Sht In ActiveWorkbook.Worksheets If Sht.Name <> "READ ME" And...
  11. A

    Ignore/skip worksheet

    Hi I have this code below that combines multiple worksheets data into one worksheet (Master). I need to skip one of the sheets (READ ME is the tab name). PLS. NEED YOUR HELP. THANKS!!! Option Explicit Sub Button2_Click() Dim Sht As Worksheet For Each Sht In ActiveWorkbook.Worksheets If...
  12. S

    Paste filtered rows and specific columns in a new sheet

    Hello there, I have a master worksheet which successfully import sheets and filtered data. The problem here is, I want all the imported sheet (except master sheet) to be pasted in new worksheet name "consolidate" with specific columns and filtered rows. Below is the coding used to import...
  13. A

    macro to paste multi cell data in each sht TO summary sht for multi rows

    Hello vba experts, Need your help in creating a report for my workbook that has two levels of data in each sht. top data on each sht applies to each row of the bottom data (errors found for tracking and report generation) in this sht and has to be carried over to a summary sheet once ready with...
  14. S

    Loop in multiple sheets

    Hi there, I am using the below codes to get the job done. Sub Updatesheetname() Dim sht As Worksheet For Each sht In Worksheets sht.Range("F2").Formula = "=MID(CELL(""filename"",R[211]C[-5]),FIND(""]"",CELL(""filename"",R[211]C[-5]))+1,31)" sht.Range("F2").Copy...
  15. B

    VBA code to do find and replace on multiple values

    Hi guys, need some help here. I have a list of values to find (column A) and replace withe new values Column B - over 400 rows. I need to run the find and replace over the whole workbook (or at least a whole sheet at a time) I found alot of macros on the internet that seem to be very old and...
  16. P

    Delete a sheet on closing the workbook

    Hi all, I've written the following code to delete the sheet called ... Entry (2) .... when exiting the workbook ? Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, _Cancel As Boolean) For Each sht In Sheets If sht.Name = "Entry (2)" Then sht.Delete End If Next sht Workbook.Save End...
  17. ryan0521

    Please help me!

    Hello everyone, Can someone fix my Macro, I have a workbook with only 1 sheet, this macro button will update their values if someone copy and paste another worksheet in my workbook. However, if the sheets were not yet completed and already click the macro button, it keeps updating values...

Some videos you may like

This Week's Hot Topics

Top