sht

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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