Or why the form takes 60 seconds for the workbook to complete the VBA process and freezes up.ġ.

I wasn't sure why the code originally provided to me on another help site yesterday didn't use ranges. It doesn't work correctly, and Stackoverflow responses confirmed that it isn't written correctly. The workbook code is help that I received.

T = T + we.Range('I' & r): r = r - 1: Loop T = 0: r = q: Do Until Not IsNumeric(we.Range('I' & r)) If InStr(1, Rooms, wb.Range('B' & p + 1)) = 0 Then P = i: Do Until LCase(wb.Range('B' & p)) = 'room': p = p - 1: Loop Set wl = Sheets('Lowes Fax'): Set wl = Sheets('Home Depot Fax'): 'r = wb. Set wb = Sheets('Materials Budget'): Set we = Sheets('Materials Estimate') Sub Crunched(): Dim wb As Worksheet, we As Worksheet, wl As Worksheet, wh As Worksheetĭim i As Long, j As Long, k As Long, p As Long, q As Long, r As Long, h As Integer If anyone can assist with this code please reply. It's slow and it takes 60 seconds to unfreeze the form after running VBA code below.

The code still needs tweeking to resolve some remaining issues. Get the solution in Minutes, Save hours of your time, Put The Real Experts to Work Now!Įmail: window is at the Bottom Right corner.My code is not working properly. Lets agree on the terms and we will deliver what you wanted. We Will provide you with system design / Solution, Estimates and time required to deliver, Post delivery supportģ. Please chat with us, call us and provide details of your requirementsĢ. Machinery maintenance database applicationsġ. Linear programming solutions to optimize your production process We can provide end to end solutions, chat with us and provide your requirements, we will help you to identify the software requirements and provide you with the solutions. We are providing online services since 2013, 100% Success guaranteed. Are you looking for software solutions?, We delivering software solutions since 2013.Ĭhat with us, Or contact us by phone: +91 83102 98437

Visual basic for excel help