How To Get Row Number Using Macro
Nov 17, 2011
I am using a data sheet which has 50000 rows. From that i need to filter the data using 3 criteria say A,B,C. Now i need to get the row number for each row of visible cells.
I have applied autofilter in my code and I got the range. Now I need to get the row number for all the visible rows. I used the following code to get the row number but for one of the input criteria it shows less number of rows.
When I manually checked i got 146 visible rows but by using the below code I got only 82 rows.
lngAreaRange = wsData.Cells.SpecialCells(xlCellTypeVisible).Areas.Count
For lngI = 1 To lngAreaRange
lngRowNo = wsData.Cells.SpecialCells(xlCellTypeVisible).Areas(lngI).Row
ColRowNumber.Add lngRowNo, CStr(lngI)
Next
View 1 Replies
ADVERTISEMENT
Jan 22, 2013
Excel 2007
ABCDE12145101843222121028543291410388563015104796731501058178325210
685894953107839104354108841011445510985111349661101215516710013135668
981417576999151858708916195971801720607291182161738219236274902024637
59121276476872228657786232425Sheet1
View 7 Replies
View Related
Mar 1, 2014
I work on a daily basis with spreadsheets in excel. The number of columns is the same, but every single spreadsheet has a different number of rows. I recorded this macro in a table with 1196 rows and I would like to use this macro also in other tables with a different number of rows.
Sub City2()
'
' City2 Macro
'
'
Selection.Copy
Cells.Replace What:="POMPANO", Replacement:="Pompano Beach",
[Code].......
View 12 Replies
View Related
Jan 28, 2009
I have Sheet with 40 employees who each proposes their work schedule, so I have to give each Employee access to the same sheet and want highlight and unlock only those cells that specific employee can use.
Each employee has to login from a drop-down (sourced from Sheet.Employee Master), so their unique Employee Number is in "A13" of Sheet.LOGIN
Can I identify the ROW number and then use that ROW number in a macro to highlight and unlock specific Range of Cells in Sheet.PROPOSED SCHEDULE?
---where "Sheet.LOGIN("A13") = (the value in the cell Col A:"row" of Sheet.PROPOSED SCHEDULE)
I have attached a scaled down version of the Workbook.
Following code is scaled down-- this is for Employee 02 who appears on ROW 16 of the sheet. (macro is same for each employee, just uses a different row)
View 7 Replies
View Related
Aug 22, 2008
I have created a macro that copies the outcome of a specific calculation (that is driven by random numbers) and pastes it (as values) into a seperate table. It then recalculates the sheet, copies the new outcome and pastes it into the same table at a row beneath the previous one.
However, I would like to be able to determine how many times this loop is repeated (i.e. how many rows of outcomes will be generated) without having to change the macro each time. Is this possible? Maybe by just linking it to a cell where the number of outcomes/repeats is specified.
View 9 Replies
View Related
Dec 9, 2013
Macro, I can make number to language. As example: 121 is one hundred one.
View 5 Replies
View Related
Mar 9, 2014
I have many set of numbers in column A and Coulmn B each set separated by space.I need to repeat each set to n number of times.
View 14 Replies
View Related
Dec 11, 2007
I often have lists of badly formated phone numbers. I have created a number of macros that are quite good, but there is room for improvement.
Step 1:
Delete non numeric characters. This is a weak point - at the moment it is not working well (it removes characters from the entire sheet, rather than selected cells)
View 14 Replies
View Related
Nov 18, 2008
what i need is a macro to run when I print a form. I am making a job card with a unique number on it ie: 100. when I print the form, I then need the 100 to change to 101 and so on. I cant work this one out.
EDIT - Ive attached my work in progress. It is for a computer repair shop. I have a few macros in there as I need to email a copy of the workbook too.
when you open the workbook, you will see the job number in red. I just need a macro tht will increase that number +1 every time it runs. I also need the email macro to rename the workbook to the customer name input in cell B4 - but I think im best to post this request in a new thread?
View 3 Replies
View Related
Aug 26, 2013
I need a macro to reverse a number in the cell, suppose a user inputs the number the 48596, after running the macro it should show the output in other cell as 69584.
View 6 Replies
View Related
Apr 24, 2008
Id like to run a Sub Macro a certain number of times, dependant on the amount of data provided. It could be that I need to run it say 290 times today, but 500 tomorrow.
Is there a bit of code to say, run the macro '500' times?
At the moment, if I set it to run more than it would need to it debugs and gives a compile error, procedure to large.g
View 9 Replies
View Related
Nov 27, 2008
From an accounting system I download txt files that then are read into Excel in order to be workable. The numbers come out like this 1.234,00 (ie decimal as comma separator and dot as thousand separator). This does not work in Sweden so I need to get rid of the dot.
I have built a macro that apart from taking out the dot makes some other changes to the data so that one wont have to do the same thing everytime ones downloads the same type of file. The problem is that when creating the macro or just doing the text to column, number format, replacing . with nothing it all works well but when I run the macro some of the numbers become text, others are ok and for some of them the macro does not only take out the dot but also the comma (which makes a huge difference). I have both Excel 2003 and 2007 and the same thing happens with both.....
View 9 Replies
View Related
Feb 3, 2009
I would like some help with a macro code. I need to create a number say in cell I24 on sheet 1. this number is a sum of a random iteration and so will be differnet each time.
i want to run 5000 iterations through and record the 5000 different numbers that appear in this cell into a list - say going from D10-D5009 in sheet 2 of the workbook... - then i will perform the relevant statistical analysis on the data...
so essentially i would like the macro to hit the F9 key 5000 times and then record those 5000 results for me on sheet 2...
View 9 Replies
View Related
Sep 14, 2009
In column A, starting in row 2 through the end of the column, I have either a null cell or a whole number. I need to determine if this whole number is odd or even.
View 9 Replies
View Related
Nov 13, 2009
I want to create a macro that will automatrically number cells in the same column. Here is the hard part. I will never start with the same number and the range nor the increment between numbers will be the same. I will start in the same cell. And the number must look like 125+45.65
View 9 Replies
View Related
Nov 26, 2008
I am interested in modifying the below code so that instead of a text output of "Assignment A (20), Assignment B (5)" it would output only the sum of the numbers "25" for the corresponding week. I believe that this will be more clear with an example, so I'm attaching a small sample which shows what my current output is and what I'd like it to be.
Private Sub RestructureHrs()
'Start of Restructure
Dim l As Long ' loop through rows
Dim m As Long 'loop through rows to find last occurrance of person
Dim lLastRow As Long
Dim sPerson As String
Dim sOffice As String
Dim j As Long 'loop through person
Dim k As Long 'loop through weeks
Dim sOutput As String
Dim sOutputPerPerson As String
Dim lNextRow As Long
lLastRow = Range("A" & Rows.Count).End(xlUp).Row
lNextRow = 2
For l = 2 To lLastRow
sPerson = Range("B" & l).Value
sOffice = Range("A" & l).Value
sOutputPerPerson = ""......................
View 4 Replies
View Related
Jan 2, 2007
This works: row(x).select But this doesn't: row(x:"100").select. I also need to do substitute both beginning and end range with a variable: row(x:n).select And multiple ranges: row(x:n, a:b)
I've tried tried numerous combinations of quote marks and parentheses and nothing works. What is the proper syntax?
View 5 Replies
View Related
Jan 13, 2007
I've got a macro working that updates things in different sheets, the sheets have peoples names in (this can't be changed).
When running the macro its fine, but if a new person is added i would need to update the macro for every sheet (the macro can be run from every sheet within the workbook).
I've noticed if you right click the sheet button and go to properties (or something) that it shows (Name) Sheet2 and Name Joe Blogs.
Instead of the macro calling to Name i want it to call to (Name), is this possible?
The code that calls the sheet looks something like this:
Sheets.("Joe Blogs")
Instead of looking for Joe Blogs i want it to look for Sheet2
View 9 Replies
View Related
Sep 23, 2008
I have searched high and low for a macro that can move cell values to other worksheet based on a variable serial number. I have had limited luck with my search but nothing quite reflects my needs. Any help or suggestions would be great. The way that I envision it to work is simple to say but to hard for me to figure out. I must add that I am fair to good with macros; I am using Windows XP and Excel 2003.
Here is the concept:
-I am trying to track several vehicles, their status and there general locations using a variable serial number and an excel macro. The macro would execute the calculated data on sheet “My Taxi Cars” and the results would appear on a separate worksheet called “Location” that is in the same workbook. Please see attached.
-The serial number is comprised of a cell range starting at A2 thru L2 and then concatenates in M2 it would look something like this 123N1110011011. This serial number would allow me to do simple long-range analysis for each of the vehicles. Also in theory at the end of 30-day period I could “replay” my data.
The Breakdown for the alpha numeric serial reads like this:
1) The 123 is the number of the cab.
2) The “N” is for North, etc. and it would equate to a range of cells on a separate worksheet (“Location”).
3) The Ones and Zeros are just simple yes or no answers to the common questions in the Garage at work.
Once the macro is executed the result would be the taxis number (taxi number only, the rest of the number is stripped off) being placed the correct location based off the serial number. I have no idea if this is possible and I would like to thank you in advance for your help. Thanks.
I understand that there are about 1024 different combination's for a binary number that has ten place values. Maybe the answer is to use VLOOKUP or HLOOKUP, but then that changes my analysis scheme. But if you can just help point my nose in the right direction or show me with one example I can take it the rest of the way.
View 14 Replies
View Related
Oct 7, 2008
I have a data contains many numbers but i need to extract Zero values form this.Deleting one after other is taking lot time.
For ex:000081243
824534412
014755611
001445786
000799445
If someone could help me in creating an Macro would be great.
View 9 Replies
View Related
Oct 30, 2011
i have number of cells as below and i need to make macro to check last character in each cells if text the result will be 0 and if number the result will be 1
A1 42SRY239Acd2
View 9 Replies
View Related
Nov 2, 2011
I'm trying to write a macro with a variable number or rows depending on the total number of rows the workbook has.
I tried like this:
Code:
Sub provaanova()
Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range(("$J$2:$J$") & Range("J" & Rows.Count).End(xlUp).Row) _
, ActiveSheet.Range(("$J$2:$J$") & Range("J" & Rows.Count).End(xlUp).Row), False, False, 99, "ANOVA", False, _
False, False, False, , False
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
and:
Code:
Sub Provaregress()
r = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$J$2:$J$r") _
, ActiveSheet.Range("$K$2:$M$r"), False, False, 99, "ANOVA", False, _
False, False, False, , False
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
But it gives me an error. The only way i was able to do it without error was:
Code:
Sub Provaregress()
Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$J$2:$J$53968") _
, ActiveSheet.Range("$K$2:$M$53968"), False, False, 99, "ANOVA", False, _
False, False, False, , False
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
But as u can see it has a fixed number of rows. ( I need variable number of rows detected on column J, and then run regression with K,L,M as depending variables).
View 5 Replies
View Related
May 11, 2012
I'm trying to repeat a macro a set number of times depending on the number a person inputs into cell B3.
Here it is currently:
Columns("C:D").Select
Range("C4").Activate
Selection.Copy
Columns("E:E").Select
Range("E4").Activate
Selection.Insert Shift:=xlToRight
Range("C3:D3").Select
View 4 Replies
View Related
Jul 5, 2012
is it possible to have a VB macro that will turn a number to a date?
For example the numbers are like 21021967 that need to be turned into 21/02/1967
View 3 Replies
View Related
Jul 6, 2012
I have data values that are in the format YYYYMM and I want to be able to convert those to numbers, but not the value of the date, i.e. I dont want 201205 to go to 40848 when I convert, I want it to be 201205, but as a number. The reason I want to do this is to combine with with another number, so that when I combine 01234567 and 201205 it equals 01234567201205, not 012346740848.
View 2 Replies
View Related
Jan 8, 2013
Macro works fine if i manually enter a time ie: 14:00 into cell a5 but it only sees a5 as text not as a time format how do i change it so the macro is looking for time not text entry?
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False If Target.Address = "$A$5" Then
Dim raceTime As String raceTime = Target.Value
If raceTime "" Then
[Code] ........
View 1 Replies
View Related
Apr 14, 2014
I know there are better ways of doing this but I am working with an existing form and I need it to look the same.
Column O on Sheet1 has a link that use to open a document, now all the information is on Sheet2. On Sheet2 I have a macro that hides every Project except for the Project Number the user selects in B4 of Sheet2.
Can I create a link that will:
1) Select Sheet2
2) Enter the Project Number from Sheet1, current Row, column D to Sheet2 cell B4
I know a link can select a worksheet so I have #1 covered but I am stuck from there.
View 2 Replies
View Related
Jun 12, 2007
I have this report that comes as a text file.
It makes negative numbers look like 1245.35-putting the - sign at the end. I need some way to make these negative numbers look like -1245.35. Only these negative numbes need to be re-formatted.
View 9 Replies
View Related
Feb 12, 2010
I have no idea about VB code and writing macros so I was hoping to get some help on this issue.
Is it possible to unhide a specific number of worksheets based on an input value, i.e. if someone inputs a value of '3' in the specific cell, then 3 worksheets with a certain name is unhidden?
View 9 Replies
View Related
Jan 25, 2006
I need to number some rows starting at row 5. Need to place the number in column AB of each row.
Needs to quit numbering at last record (column F will have information in the last record)
i need this to be a macro, never done an autonumber macro before....
View 9 Replies
View Related
