Search results

Hi Chihiro, I figured out the issue. The workbook had a number for height in scale to fit, instead of automatic. Thanks for the help!

Chihiro, I am struggling to make the file small enough.

Option Explicit Sub changePageBreaks() Dim counter As Integer Dim hA Dim sheetNumber As Integer Dim I As Integer Dim n As Long Dim LineNumber As Long Dim rng As Range Dim aRow As Long Dim bRow As Long sheetNumber = ActiveWorkbook.Sheets.Count For counter = 1 To sheetNumber...

I had to change the for each to a for loop in order for it to move through the rest of the sheet. However, while the code below works for the example sheet, when moving it to another workbook, the for I loop is stuck on the first page break. Do you see anything in my code that could be causing...

I found the issue. I was changing the pagebreak to move down a row causing the previous page break to remain. I changed it back to your way and it works great. Thanks so much Chihiro!!

Thanks Chihiro, it works great for creating the new page break, but is not deleting the previous pagebreak.

I am attempting to move certain horizontal page breaks up or down a row. If the page break is above one of the grey filled lines, it needs to move up a row (ex. grey line on row 70, page break needs to be before row 69); and if there is a page break is below a grey line, the page break needs to...

Bump if anyone could help out on this issue.

Hi All. I have several macros that I am trying to run at the same time. Each one has the same function as seen below that updates the page number where the value is found. Some of the macros grab the correct page number, but some don't. I am printing where the value is found, and they are always...

Set secondResult = Cells.FindNext(firstResult) Debug.Print secondResult.Address MySheet = IIf(InStr(secondResult.Parent.Name, "."), Split(secondResult.Parent.Name, ".")(0), Split(secondResult.Parent.Name)(0)) FV = MySheet & "." & pageNum51(secondResult) Else End If...

Hi Chihiro, probably thought you were finished dealing with me, but I'm back :). The macro is working great, but the sheetnumber function works properly about half the time. Often it will just say for example, a value on the 3rd page, FD1.1 instead of FD1.3. Then I can rerun it, and it will...

nevermind all good.

I am sorry for jumping around so much, but I figured it out have it working now. Curious though, say I had another column like "Beer Exp" like in the picture. Why cant I just change the name of first "Wage QRE Exp" search to "Beer Exp" and have it work? It wont find "Beer Exp" for some reason.

Sub Find_Dat() Dim datatoFind As String, MySheet As String, FV As String Dim aSh As Worksheet, fSh As Worksheet Dim firstResult As Range Dim secondResult As Range Dim rng As Range Dim LeftCell As Range Dim leftValue As String Dim RowCount As Integer Dim rw As...

The macro is working for the first row "5" but I now want it to move to do the same thing in row 6 and go until it reaches the gray cells. I am trying to get the offset value in the macro to increase by 1, but havent had any luck.

Hi Chihiro, I have come back to this code because I am trying to add another loop. I want the code to run for each line underneath the "Wage QRE Exp" until it reaches the gray box. Do you have any guidance for this task? Much appreciated!

Still getting the same issue. It is pulling the formula to create the footer and not the final text.

I made RFooter = ActiveSheet.PageSetup.RightFooter And then tried: Function RFooter(ByVal ActiveSheet.PageSetup.RightFooter As String) As String But I cant have 'ActiveSheet.PageSetup.RightFooter' in the parentheses. Suggestions?

I apologize for the confusion, I actually figured it out. But while I have you here Chihiro, do you know of any way to pull a footer that was created in another macro as a string into my current macro?? Once again thanks for all the help! Code for creating footer: Sub Ref() Dim currentName...

Great thanks so much for the help! Do you have any idea why the code isnt stopping when the values are found?

The .Value is returning the correct number, but that number is not storing in the (datatoFind) variable. Can anyone provide guidance?

Help with the code would be appreciated, but what I really need for anything to work is to understand how to search a cell value in the workbook. I want a variable to store the value of the cell contents (365), and then search the workbook for that value.

Okay I will do my best to explain: datatoFind is the cell value that I want to search for throughout the work (365). counters to search all sheets in the workbook. Set foundValue is the cell that I want the result to be delivered in. Everything after the if notfound=false is a way to get the...

It actually is not. The macro is simply returning the last value in the last sheet. If you move the 365 to the top of the sheet you can see the issue. Is there anyway to ensure the macro stops on the value, and secondly, not consider the original value. I had some issues with returning the spot...

Attached is an example file. May not be a great example, but it is quite the struggle getting a file small enough to upload.