xlcontinuous

Hello! I am getting an "Else without If" error message on the following code. How can I make it recognize the Else for the second If statement? Thanks! (The purpose of the macro is to format a column or set of columns in a pivot table, beginning on row 4, based on how many data points there...

Hi, I am using the following code. My problem is that when i add a hyperlink into this cell the Font Size should be 10 but its actually say 22 If i type manually in the same cell or actuall any in column D then all is well and the Font Size is 10 as it should be. Private Sub...

Hi, Please can you assist to make this recorded macro much more of a simple looking code. Range("F16").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle =...

Hi Guys, I have a range from I10:O99, which needs formatting, prior printing. The formats include : Borders Font Verdana / Size 12 Font Colour - Black or Red - Which I can change later Align Horizontal - Left Align Vertical - Centre Row height = 30 Column width = 12 I have done it using a...

Hello, I would like the code below to then be merged between cells A:D. Cells(lastrow, 1).Offset(8, 0).Select With Selection .Value = "Account Holder Signature" .HorizontalAlignment = xlCenter End With With Selection.Borders(xlEdgeTop) .LineStyle =...

I have the code below that i was hoping that there could be something modified so I could hit undo if the rows were not added at the correct place. Sub Insert4() Range(ActiveCell, ActiveCell.Offset(3, 14)).Select Selection.EntireRow.Insert For n = 7 To 10...

I'm trying to auto format the data in a dynamic range, on a dynamic count of sheets, when the workbook opens. Essentially, every sheet not named "Variables" or "Financials" where there is data in any sequential row. I'm using this code, but it's not hitting all of the sheets. What am I...

Hello, I am trying to create a dynamic worksheet name in my dynamic range borders macro. I got the range borders to be dynamic but now I am struggling with creating a dynamic worksheet name that I do not have to change for each report I run. This is the code I have: Sub DynamicRangeBorders()...

hello i have been trying to get the program to record the worksheet name into a cell but i could not get it working. anyone can advice? here is my code Sub ButtonPRGenerator_Click() x = MsgBox("Welcome to Purchase Request Generator.", vbOKOnly + vbInformation, "Purchase Request Generator")...

Hi I have been trying to get the total sum of unknown number of rows. However i could not get it to work from my code below. Any advice of how to get it work? Private Sub CmdNextSection_Click() lastrow = ActiveSheet.Range("b" & Rows.Count).End(xlUp).Row With Cells(lastrow + 1, 5) .Value =...

I use Range("A7", "N" & lastrow).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight =...

Hi Guys, I'm trying to apply conditional formatting on a script I've recorded for data exported from another program. So the conditional formatting I'm trying to apply is to color values between 70%-89% yellow and 90%-100% red. When applying these conditions the entire row is highlighted...

Hi, I would like to add borders to all cells within the range of columns U:AE, starting from row 5, all the way down to the row where column B is still populated with data. Columns U:AE will at times be blank, hence I need to reference another column that will always have data in. Finally...

Sub CurrentRegion_Property() Set rngCond = ActiveSheet.cells.SpecialCells(xlCellTypeAllFormatConditions) If Not rngCond Is Nothing Then rngCond.BorderAround xlContinuous End If End Sub What should i use variable for rngcond "Variable not defined"

Hi, I have two workbooks, WB1 & WB2 as an example. WB1 contains my UserForm and WB2 contains the master data where the entered information from the UserForm is placed. My issue is that multiple people need to submit data via the UserForm yet if the 'Submit' button is pressed by two or more...

I need to paste Format conditional formatting to every 6th row with the starting range ("I22:AM22") This has to continue until the equivalent range (every 6th row) in cell "A22" is blank Thanks for any help! Range("I22:AM22").Select Range("I22").Activate Selection.FormatConditions.Add...

How do I make this all in 12 lines? I don't think it is possible without adding the with selections Range("A1").Select With Selection.Font .Size = 36 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With With...

Hello I have developed a VBA macro for multiple sheets in a workbook that clears out previous Data, grabs a Txt file from another location then copies and pastes the data from the text file into the specific worksheet as the new data. I have gotten the macro to work for all the worksheets...

Good morning, I have some code that, up until I made some adjustments, was working mostly as intended. I have a daily sheet which, when opened, opens a userform for my coworkers to input daily cash, checks etc. After inputting their data, they click a submit button, which transfers the data...

Hello everyone on MrExcel, I thank in advance anyone that will help me resolve my problem. At work my collegue uses the below Macro to extract data from an Excel generated by a program (HP Quality Center, in postprocessing). For some reason, the Macro works for him but not for me. He uses Excel...