I have some code that sits behind the worksheet_change event that recognises that I have just inserted a row into the active worksheet and it is happily telling me that I inserted one row.
What I also need is the actual row number that I just inserted but I cannot seem to find the right syntax to return the value I need
I want to find the highest value in a column (MaxValue) and populate first blank cell in a column with Maxvalue+1. Basically, I want to provide each new row with a unique project number. First, I'm running a macro to insert rows which copies the formula and format from Row 4, the user enters how many rows he wants and the requested number of new rows are inserted below Row 4 (That bit all works fine) . I now want to find the highest project number that has been used in Column 1, starting at Row 4, increment the highest project number by 1 and populate the newly inserted rows with the new project number.
I have a couple of problems with code I'm trying to use: If the active cell in column 1 is highest value the code ignores the active cell, i.e. this works once, as the cell that I have just populated becomes the active cell and the highest number, i.e. the next time the macro runs I get the same number as the active cell.
Ideally, I'd like use the number of rows that the user requested in the macro to insert new rows to be used in this macro to provide a unique project number for each of the newly inserted rows. (The add new rows macros uses Dim NoToAdd As Integer, as the number of rows that the user wishes to insert). Although, I'm quite happy to run the macro several times to find and populate projects which have not been allocated project numbers.
Here's where I've got to:
[Code] .....
I have a sheet with a company name in column A, and a list of comma separated values in column B. I can easily convert column B to multiple columns with the Text to Columns function, but then I'd like to insert each individual value in a new row in column B.
So, at the moment I have data that looks like this:
Company A
Value 1, Value 2, Value 3, Value 4, Value 5
Company B
Company C
Value 1, Value 2, Value 3
[Code].....
I have a large amount of data and I'm trying to count how many unique values I have in one column. I also want to know how many times each duplicate appears. I tried using a pivot table but it's not working for me.
I also tried the following formula: =SUM(IF(FREQUENCY(H:H,H:H)>0,1)) but it's not quite working.
Items in Column A1 are calculated by (B2/4+5)*1.4 Items located under the columns 2000, 3000, 4000, etc... 10,000 are calculated by taking the top number, eg 2000/(A1 cell value)+the column B number. 2000/7+0 = 286 (rounded numbers)
I need to find an way to look up for x number (2000,3000,4000, etc...) find the smallest number in that column and then return the value in column A1.
Cell
A1 Number >2000300040005000600070008000900010000
70 2864295717148571000114312861429
84 24236148059971883795610751194
[Code].....
I have attached an example. If I have a set of numbers such as the one attached, is it possible to create a formula that will show me all the combinations of numbers that add up to 55.52? In the attached I have highlighted in different colours all the number combinations that add up to 55.52. The numbers highlighted in blue appear within more then one combination. Is there a formula that can do this for me, instead of randomly adding numbers hoping they add up to 55.52.
View 1 Replies View RelatedI have attached an example. If I have a set of numbers such as the one attached, is it possible to create a formula that will show me all the combinations of numbers that add up to 55.52? In the attached I have highlighted in different colours all the number combinations that add up to 55.52. The numbers highlighted in blue appear within more then one combination. Is there a formula that can do this for me, instead of randomly adding numbers hoping they add up to 55.52.
examples.xlsx
I need a VBA code to find the nearest biggest number and nearest lowest number between the data of D2 to H2. In the attached file, I have mentioned my required output (Column A and B - blue highlighted)
View 2 Replies View Relatedto update these values via a form in this sheet. I can find the correct row to be edited by entering a value from column A and B. The problem is if I want display the values of that row first and then change it. If I want to change row 10 data how can I bring back the value in ROW 3 AND THE COLUMN VALUE? The next step would be to do the actual update if I want to change ROW 10 to "Ooi" and a sales value of 200?
This is what I have done so far:
Dim myRows As Integer
With Sheets("Mrt")
'Retrieve history information for row
For myRows = 4 To 49
If comboxDay.Text = Range("A" & myRows).Value And textboxdescription.Text = Range("B" & myRows).Value Then
textboxbedrag.Text = Range("C" & myRows).Value
chkBTW_Ja.Value = Range("D" & myRows).Value
txtNota.Text = Range("S" & myRows).Value
End If
Next
End With
Picture attached to show how sheet looks like.
I work for a store and we're migrating to a new Point of Sale system. The new POS uses the entire UPC code while our existing one uses only partial UPCs, so I have to update from the partial to the full. ex. Partial 3378093 - Full 0033780935
The partial UPC will always be included in the full UPC, the difference is the dropped leading zeros (and possibly other numbers) and the check digit number at the end. What I have is a spreadsheet with with two worksheets (Old, New) - one has our old UPCs and other information, the other has the new, full UPCs and more information we'll need. What I want to do is write a function that will search through the full list of new UPCs to find the one with the old UPC inside it and return the full UPC. InStr seems the right function to do this - correct?
The part I'm having trouble with is writing something that will search through the full column of new UPCs using InStr. I've searched through the forum for a similar situation but the few I've found aren't working or appropriate. I don't want to include any code I've written because 1) it doesn't work and 2) it would be way too embarassing!
I have a formula in Sheet1 column H that I need to appear in the cells when the button is clicked (the button inserts a new row).
View 1 Replies View RelatedBelow is some code I am trying to complete but ot does not ALL work.
I am inserting a row and I want the row to be highlighted.
The insert part is working ok but not the highlight part.
[Code].....
I'm trying to write a code (and I have little to no knowledge of VBA!) so that when a line is inserted onto any worksheet in the workbook a msgbox appears....
Trying to get it myself I created this- it's probably COMPLETELY wrong, like I've mentioned I have little to no knowledge and just using websites/other codes I've seen to put this together... o.O
I wrote a code that when a change is made to a sheet the "=today()" formula is inserted to cell A for that row. My problem is that my spreadsheet keeps freezing whenever I insert a new row. Is there a code to stop running the code if a new row is inserted? Below is the only thing I have so far.
Private Sub Worksheet_Change(ByVal Target As Range)
Application. ScreenUpdating = False
With Cells(Target.Row, 1)
.Value = "=today()"
End With
End Sub
I have imported and deleted several pictures into my worksheet. I want to re- name or re-order my pictures. Right now, a new pictures is name "picture 4" when there might only be two pictures in the sheet. I want to rename to say "picture 2" as I have a macro that calls for "picture 2" I know this should be simple, but I don't know how to do this.
View 4 Replies View Related[URL]
I got the code in the above link working for me, but how would I restrict it to a certain subset of Rows? It's overwriting headers and totals and other things I don't want to change in the worksheet.
how can i run a macro after a comment is inserted?
View 6 Replies View RelatedI would like to atribute a property (like colour) to any new row inserted in the spreadsheet. I'm struggling to find the correct way to reference a all inserted rows.
View 2 Replies View RelatedI have a worksheet that I have to sum in one cell and count in another cell from A1:until it hits a blank cell. The thing is, I insert the blank row (only 1) in different places depending on the new data and where the cut off is. How do I do a sum formula from cell A1...until I hit a blank and a Count formula in cell B1: until I hit a blank cell?
When I insert a row in my table (below the headers, which are between rows 1 and 4), I want the formulas from the above row (or below row) to be copied down to my newly inserted row. I say "below row" as well in case I want to insert a new first row and want the formulas in the row underneath to be copied up.
e.g., formulas currently in the first row are:
Column A: =SUBTOTAL(3, $B$5:B5)
Column H: =IF((F5="N*"),(1),"")
Column I: =IF(((SUM(H$4:$H5))=(SUM(H3:$H$4))),"",(SUM(H$4:$H5)))
Column J: =I5
Any other values in the other columns should not be copied to the new row.
I also do not want my table to be scrambled if I should delete any particular row.
I am trying to insert an image into a worksheet with no avail. Whenever I choose INSERT/ PICTURE/ FROM FILE and select the file, it doesn't show up. I moved the entire sheet to another workbook and it all my attempts showed up there. What is stopping me from inserting a picture from file? Also, inserting AutoShapes is completely greyed out (disabled)...
View 3 Replies View RelatedI want the 2 graphs in "Graph" worksheet to change automatically when a row is inserted in "Data" worksheet . Every time i have to change the graph manually to contain the latest 20 days value. I want some offset or something which can be put in the range provided below to do the work.
Chart Data Range =Data!$A$1:$A$22,Data!$F$1:$F$2,Data!$L$1:$L$20
Legend entries (Series) - Series Name =Data!$F$1 ( this will remain constant everyday as this is a header field)
Series Values =Data!$F$2:$F$22 ( this should contain last 20 days range, for example if a next row is inserted tomorrow then it should automatically change to =Data!$F$3:$F$23)
Legend entries (Series) - Series Name =Data!$L$1 ( this will remain constant everyday as this is a header field)
Series Values =Data!$L$2:$L$22 ( this should contain last 20 days range, for example if a next row is inserted tomorrow then it should automatically change to =Data!$L$3:$L$23)
Horizontal (Category) axis series -Axis Label Range =Data!$A$2:$A$22 ( this should contain last 20 days range, for example if a next row is inserted tomorrow then it should automatically change to =Data!$A$3:$A$23)
Sheet attached : Devicess.xlsx
Here attached is my sample workbook:
Attachment 310920
My button inserts a new row into the table.
What I want is that everytime a new blank row is created, the formula in the Days in Situ column is there as well (but obviously the cells update depending with which ever row it's in.. eg below formula is row 10.).
When I run module 2 one of the first things it does is export the sheet to a .pdf - however sometimes when i am ready to tun this macro there are pictures inserted as signatures (some of my team dont have touch screens) - but when they run the macro and the .pdf file is created the inserted pictures are there. See the below code - the "bold" line is the line that i feel needs to be more specific...
this is the Macro code
[Code] ....
I am trying to write formula in a cell using vba code, but i m not getting the expected one.
[Code]......
In the above code, i m trying to insert the formula where it fetches the address of a cell using some variables.
Here r = 1, c = 1 and resOffSet = 7
From the above code im expecting cell adress like A1 , B1 etc but i am seeing "0" in the cell value.
I am having no luck with trying to find a VBA code that will auto set my page break around an image I inserted. Is there a way to do this even? Furthermore, there is a possibility of inserting multiple images in which I would need each image put on a different page and have the macro set the page break around each image. So if I inserted two images then I would need the macro to set two pages and break each page around the image size?
View 1 Replies View RelatedMy code is:
Code:
Sub Insertwinds1()
ppath = "winds.webimage.url"
With ActiveSheet.pictures.insert(ppath)
.left = Range("A2").left
.top = Range("A2").top
.ShapeRange.PictureFormat.CropRight = 70
.ShapeRange.PictureFormat.Cropleft = 130
.ShapeRange.PictureFormat.CropTop = 300
.ShapeRange.PictureFormat.CropBottom = 90
End With
End Sub
This takes the image from the web (which is fairly large), moves it to Cell A2, and then Crops out the extra space I don't need showing. When this Macro is finished, due to the large Crop size, the image is in the center of the screen and nowwhere near the A2 cell. Is there a simple addition I can add to this code to move it back to a specific cell (a2) after it's been cropped? or move it via placement on the sheet (13, 13, 600, 600)? My old code I was using for this was:
Code:
Dim MYPICTURE As Shape
Set MYPICTURE = Activesheet.shapes.addshape(msoshaperectange, 13, 13, 600, 600)
MyPICTURE.fill.userpicture "winds.webimage.url"
End Sub
This one inserted the image, placed it in the specific spot... but I can't get that one to crop it, which is why I started over with teh first code.
I have a formula in column G of a worksheet, however when a new row is inserted within the formula range, the formula does not continue in the new row.
Is it possible to make excel continue the formula without having to drag the formula down again?
I wanted the title to be " Dynamic Row And Column Index In Macro" but I wasn't allowed to write it so. However, I have macros where I write things like:
.Cells(138, 13).Value = Something
Now, if I add rows and/or columns in the worksheet, (138, 13) might not be the coorect coordinates anymore.
I have some columns with formulas in it. at the end of the column (used range) i have a row with total values of individual columns. However, Whenver, I insert a new line, then the formula of that particular column is not applied to the new rows inserted. does any one know why? If it is not set automatically, How do i enable it do be done?
View 9 Replies View Related