Search results

Hi Shaherukh Thanks for the question. This bit: There is a picture of an Excel icon right at the bottom of screen originally titled "Picture.xls" I didn't think anyone would have trouble finding it but I may need to re address the way I show files on my site. :) Take care Smallman

Hi It is a good idea to post your solved VBA on the forum. It is kind and helps the people visiting this site who are not members and can not open the file. I don't think the buttons are needed. A quick change to the structure of the headings and you are away. Option Explicit Option...

Hi Ravindra Give the following a crack. Option Explicit Sub Testing() Dim i As Integer For i = 1 To 3 If Range("B" & i) = vbNullString Then MsgBox "B" & i & " blank": Exit Sub Next i 'Your Calcs Here End Sub Take care Smallman

Hi Remove this line: Range("B1", Range("B" & Rows.Count).End(xlUp)).Copy ws.Range("A" & Rows.Count).End(xlUp)(2) And change to this line: [A1:P9784].copy ws.Range("A"& Rows.Count).End(xlUp)(2) Take care Smallman

Thanks for sharing your solution Dave. Very helpful for others no doubt. Smallman

Hi Dave Are you saying you open multiple instances of Excel and you are placing the instances on each screen. Are you in some sort of trading environment? The environment I used to work in people had 6 screens in front of them. Mmm I have only one screen and I guess if my assumption is...

Hi Dave What do you mean by 'views' of the workbook. One workbook - one view? There is a big Red Cross in the top right of each spreadsheet. Give that a good old fashioned click. That will shut it down. Take care Smallman

OK Iceblocks Your problem is one of articulation. You mean to say you want one word in an entire phrase to be highlighted Red not the whole phrase. This is a different problem to the one outlined in your thread to this point. You are not dealing in single words you are dealing in phrases...

Very nice of you to come back and say thanks. It was a pleasure. Take care Smallman

Hi This bit: These words are not correct. Have a look at the attached unaltered file. Change words form wrong to right. Works perfectly doesn't it? So I am unclear about what you are saying in your post. I think you got it right post 6 and lost your way a bit after this point. I...

Hi Sampath I almost certainly wrote the code you are using. The naming convention and the way it is written has my style all over it. I could probably find the post where it was first entered. Ensure you have the worksheet code name (sheet4) as the very left most sheet. It will run as...

Hi Iceblocks I am not sure what you mean. In all my tests words spelt correctly are black. I am well pleased with the result. Take care Smallman

Hi ashish It was late last night in Oz. I was either watching tennis or sleeping when your message came through. It is relatively straight forward to adapt the code. Just change these two lines in the above coding construct. If Not Intersect(Target, [A1:D10]) Is Nothing Then For Each...

Hi iceblocks Put the following in the worksheet module you wish to run the code from. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Myrange As Range If Not Intersect(Target, Range("L10,L14,L29")) Is Nothing Then For Each Myrange In Union([L10], [L14], [L29])...

No worries. Happy to help. Smalman

Hi Iceblocks Something simple like this but you are gonna need to build some error trapping in. Sub IDPal() Dim ans As String ans = InputBox("Your ID mate?") [c2] = ans End Sub Take care Smallman

Hi Wnorrick Best way would be to use formula down the side in col Q and concatenate with comma space join. Then just copy formula down. If you want VBA to do it this should get you started. Option Explicit Sub JonIt() Dim ar As Variant Dim var As Variant Dim i As Long Dim j As Long Dim...

A useful way to handle direct input would be to add a data validation list. This way you are taking free text out of the equation. I would steer clear of free text and have the cities in a list tab, originally titled "Lists" and get your users to choose from the list. That choice triggers a...

An alternative method. Although perhaps just a simple Vlookup would have been my preference. Sub staff2() Dim fnd As Long Dim Ans As Integer fnd = Sheet2.Columns(1).Find([B1]).Row [B2:B3].Copy Sheet2.Range("B" & fnd).PasteSpecial xlPasteAll, , , True Ans = MsgBox("Data copied successfully...

Hi Kenneth Place New York in cell B1 and 5000 in cell D1 so the criteria is not hard coded into the VB back end. Use this two cell to drive your file changes. No loop required. Sub Chango() Sheet1.ListObjects("Table1").Range.AutoFilter 2, [B1] Range("Table1[Quantity]") = [D1] End Sub...

Try again

Hi Ushaanu This should get you started. Take care Smallman

OK Am back from my social engagements. Actually filtereing for items not in list is a bit of a challenge. I got this method to work. I am left with a few sheets displaying no doubt unwanted headings. But these can easily be removed with a bit of planning. The following is the code to...

Hi I do not think you will get what you want from this problem with the recorder. A more elegant solution is required, prefereably one where Variables are declared :) Yes you could filter the items in place and remove data from your list. You would want to have some sort of list sheet so you...

Cross posted on Ozgrid. Wollyka - Please supply all the information when posting. http://www.ozgrid.com/forum/showthread.php?t=192834 Additionally it would help your cause if the table with the raw data was accompanied with a table which has the expected results. This assures the correct...