Search results for query: *

Hi Skip Thanks for your help. I was getting a Type Mismatch with that code. I did in the end get it to work properly with a different method: 'select the row for the customer .Cells(SelCustomer, 3).Select 'find the last column in that row Dim LastCol As...

Hi all I have a combobox with 2 columns. I need it to be filled with Names in col1, and Email in col2. The data comes from an Excel sheet. We find the row relating to the specific customer, then grab the data, starting at column C. The data is stored: NAME1 EMAIL1 NAME2 EMAIL2...

Hi all I need my userform to open an additional file for input. The file is on a network drive, so I need to perform the following checks: 1) the current user hasn't already got the file open in the background (this works) 2) another user hasn't got the file open (which would open in...

Ah sorry I mean a userform. There are several userforms that have quite a lot of controls in total. As for the worksheets, there's 4 static pages that each have a half dozen hyperlinks (I did use buttons, but replaced them with Shapes), and 2 buttons to launch various userforms. This is fine...

Hello I have a project with a couple of forms with quite a few controls spread over a couple of userforms. I haven't hit any maximum limit yet (there's no more to add), but I was wondering - controls on worksheets contribute to the maximum? I did have certain sheets that get duplicated, which...

Thanks Skip that worked great This was the final code Dim wb As Workbook Set wb = Workbooks.Add ThisWorkbook.Sheets(JobNo).Cells.Copy With wb.Sheets(1) .Cells(1, 1).PasteSpecial xlPasteValuesAndNumberFormats .Cells(1, 1).PasteSpecial xlPasteFormats...

Skip - I just found this article - Link - that suggests removing the VBA code, though I'm a bit unsure of where I would execute that code.

Hi Skip I'm in Excel 2013, though some computers may be on 2010 This was the basic code I was using (what I have left of it) Dim wb As Workbook Set wb = Workbooks.Add ThisWorkbook.Sheets(JobNo).Copy Before:=wb.Sheets(1) wb.SaveAs "C:\Users\Dave\Desktop\Old Jobs\" & IndexNo &...

Hi all I'm trying to move 2 sheets from the master document into a new document, save as, and close, with no input from the user (file names, folder etc.) The 2 sheets have several buttons with code on. When I try to copy the sheet over, it retains the buttons and code. I've attempted to use...

Brilliant, worked perfectly Thanks

Hello I have a column (H) that is formatted to Wingdings font. When the user double-clicks, it inserts a tick (Wingdings = ü). There is also a conditional format on the column - if the cell is not empty (ticked), it is white; if empty, it is yellow. How do I make the adjacent 3 cells also...

Nevermind all I've actually solved it Set rngFind = Cells.Find(What:=dDate, After:=Range("A1"), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not rngFind Is Nothing Then Application.Goto rngFind.Offset(1...

Hi I have a calendar/diary page with the dates horizontally (Mon>Sun), then several rows underneath the following week, and so on (basic diary layout). I need to find the specific date (got this part), then write data underneath it. The cell below can either be empty, or full. However, if...

Hello I'm trying to move a worksheet to a new workbook (thus removing it from the original workbook), save the new workbook in a folder, then close it, and come back to the master workbook. I found this code on a website a few weeks ago (since lost). It works okay sometimes, but as the...

Hi Skip The sheet is essientially just text data, but I need to retain the source formatting (specifically the cell colour). The problem is that the source workbook is a little large and takes several seconds to open over the network, and secondly that it runs that macro that displays that...

Hello I'm trying to import a sheet from another workbook (this part is fine). Let's say import Sheet1 from workbook B into workbook A. The issue is when workbook B is opened, it runs a subroutine that results in a MsgBox. Is there: a) a way to surpess this MsgBox only when importing the...

Thanks, I used your idea and just had a column off to the right that concatenates them.

Hi there, I actually got this to work in the end. Skip - the cells are coloured by conditional format and are always those 2 specific colours. 'ThisWorkbook.Sheets("CERT DATES").Select Set rRng = ThisWorkbook.Sheets("CERT DATES").Range("A1:A200,E1:E200,I1:I200,M1:M200") On Error...

Hello I'm trying to find a string within a range, but only if the offset matches. For example: I need to find the last occurence of, let's say, Cat 6. COLUMN A COLUMN B Cat 1 Cat 6 Cat 1 Dog 4 Cat 6 Dog 3 Dog 8 Cat...

Hello I'm having trouble with this: I need to locate any green (5296274) or yellow (&HFFFF&) cell within a range (A1:AZ300) on a specific worksheet ("DATES") I then need to return the offset (col +1) for each (likely loading them into a standard listbox). I've been trying to adapt this -...