sht

Found this code to Find and Replace; Sub FindReplaceAll() 'PURPOSE: Find & Replace text/values throughout entire workbook 'SOURCE: www.TheSpreadsheetGuru.com Dim sht As Worksheet Dim fnd As Variant Dim rplc As Variant fnd = "April" rplc = "May" For Each sht In ActiveWorkbook.Worksheets...

I use several subs for the file I maintain and an odd bug has started happening despite no change to the code. The rows that have data in them are supposed to be underlined as there are 10 columns of data and when it's printed out it is easier to read. The issue is that there are blank rows...

I have a workbook with 20 sheets with names starting with "LP", so LP01, LP02, LP03 ...LP20. There are also 4 other sheets with other names, not in the LP range. I have the code below to save all sheets as PDF with names as follows: "B-II [18_05] LP01. John.pdf", "B-II [18_05] LP02. Peter.pdf"...

Below is my code to produce an HTML page. It works but I would like to add some code that would make the page auto-refresh in the browser that it is opened in because the file may get updated. How would I make that happen? Sub DataToHTM() Dim r As Excel.Range, rHTM As Excel.Range, wbk As...

Hello there, Hope you are creating magic in excel every day. Below are the codes I have got, which creates a new worksheet (consolidate) and get data into the sheet from other worksheets. It only fetches filtered rows and all the columns. Sub copyfrmworksheet() Dim wrk As Workbook Dim sht As...

Hi guys - working on a project to set some formulas to the lastrow. normally I would use the "Cells(Rows.Count, 1).End(xlUp).Row" type method because it works great for me. But for this worksheet I am unable to use this method so I spotted a column that defines the last row based on a cells text...

Hi I need my macro to work from another sheet when my worksheet is hidden Can anyone help and explain how to do it, Sub Date_Change_Weekly()' ' Date_Change_Weekly Macro ' Dim Sht As Worksheet Set Sht = ActiveWorkbook.Sheets("Pipeline") Sht.Cells.FormulaR1C1 = "=TODAY()"...

Hi guys, I have two dropdown lists, one for Status (column G), and one for Priority (column H) in one sheet. Status list items: Avvakta, Underlag saknas, Utgår, Pågår, Klart Priority list items: Prio 1, Prio 2, Prio 3, Övrigt Now I've got a code that needs some modification in order to...

Hi all, I have this code (thank you Fluff) where it copies and pastes data in the last empty line in a worksheet. I would need to improve on that by ensuring that this code takes into consideration that the last non empty line is my Totals line and therefore it has to insert the copied data...

I have a code in vba to clear all unlocked cells in the used range on every sheet. It takes 40 minutes to execute this code. In order to figure out why it was taking so long, I used vba to select the used range. I do not use any columns past column S. But currently, it has all the way to...

LastRow = Range("B:D").Cells.Find("*", _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row MsgBox "The Last Non-Blank Row Is " & LastRow For Each sht In ActiveWorkbook.Worksheets If sht.Visible And (sht.Name = "Growth") Then sht.Activate For r = Cells(Rows.Count...

For Each sht In ActiveWorkbook.Worksheets If sht.Visible And (sht.Name = "4-0") _ And (sht.Name = "4-1") _ And (sht.Name = "4-2") Then sht.Delete End If Next sht Hello all I thought the code above would loop through the workbook and delete the specific sheets listed...

Hello All For Each sht In ActiveWorkbook.Worksheets If sht.Visible And (sht.Name = "Alignment") Then sht.Delete Sheets.Add.Name = "Alignment" sht.Activate Cells.Select With Selection .Clear .RowHeight = 20.01 .ColumnWidth = 8.43...

Hi I'm am trying to run this down below, but I get error its basically replacing an existing sheet and want to see if there is anyway around this. Error message Excel cannot insert the sheets into the destination workbook, because it contains fewer rows and columns that the source workbook. To...

Hi Current code; Private Sub Workbook_Open() Dim sh As Worksheet For Each sh In Worksheets sh.Visible = True Next Dim sht As Worksheet If Application.UserName = "Name 1", "Name 2", "Name 3" Then Exit Sub For Each sht In ThisWorkbook.Sheets If sht.Name <>...

Sub FindReplaceAll() 'PURPOSE: Find & Replace text/values throughout entire workbook 'SOURCE: www.TheSpreadsheetGuru.com Dim sht As Worksheet Dim fnd As Variant Dim rplc As Variant fnd = "17-" rplc = "18-" For Each sht In ActiveWorkbook.Worksheets sht.Cells.Replace what:=fnd...

For Each sht In ActiveWorkbook.Worksheets If (sht.Name = "Recovery") And (sht.Name = "Revisions") Then sht.Activate With Range("A7:AV3000") .Clear .NumberFormat = "General" .Interior.Pattern = xlNone Range("B6") = "Document Number"...

Hi guys, I tried to make this macros but I get the red code highlited in yellow when I run it, Do someone know why? Thanks for the help Sub CopyData() Dim LastRow As Long Dim Sht As Worksheet Worksheets("Datadump").Range("E:G,S:S,AW:AW,AY:AY,BE:BE,CC:CC,CF:CV").Copy Set Sht =...

Sorry for the spelling error ^ Hi Everyone, I am using the following macro to hide rows throughout my workbook. In the pat it had worked perfectly, but just started crashing. is there a way to see what tab the macro crashes on? Maybe there is something you can add to the code. Thank you! Sub...

Hello Everyone, Question for you. I have been using the following code to hide rows based on a cell value. The macro has worked wonderfully, but today it crashes. Any thoughts would be much appreciated! Sub Hide_All_Rows() Dim sht As Worksheet Application.ScreenUpdating = False For Each sht In...