modifying the following VBA code; this code auto-generates 4-digit unique numbers, using zero as one of the starting digit as well. I need the 4-digit numbers NOT to begin with a zero, the 4-digit numbers should only begin with numbers 1-9.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim Test As Integer
[Code]....
I have a userform for keeping records and would love to incorporate a new feature. I would want to generate a random serial number for each entry made with the userform.
View 2 Replies View RelatedIn one column (f5:F100) I have five digit numbers that represent a persons code. I have five groups of codes, they are 10000-15000, 16000-19000, 20000-25000, 26000-29000, and 30000-40000. In another column (Column H) I have an "X" saying the are qualified in something.
I am looking for how to write a statement that says answers this question:
How many people are qualified in the codes between 10000-15000.
Ultimately I am going to take this number and divide it by the total number of people in the group to get a percetage of qualified people in the group.
I know you can take a number from one cell and combine it with number from another cell and make it one number. What I need to do is the reverse. Take a two digit number in a cell and separate it into single digits in two cells. If you have the number 50 in a cell, then is there a formula that will take the 5 and put it in cell and take the 0 and put it in the cell beside it?
View 4 Replies View RelatedIf n = 5, then I want to generate a string like this: "1+2+3+4+5". Similarly, if n = 7, I want the string "1+2+3+4+5+6+7".
I can generate the consecutive numbers, but have not figured out how to generate the required string.
I have a spreadsheet with approx 11,000 rows and I would like to generate a unique 9 digit number for each line.
I know I could just put 100 000 000 and then increase that by one all the way down but I was wondering if there was any formula or code
How can I generate all the combinations a 3 digit number produces? Example 123 can be written as the following:
123
321
213
312
132
231
I THINK this is all the combinations it will produce.
How do I create a 6 digit unique random number for use as an ID in column A. Once created the rows with preexisting 6 digit unique random ID numbers must not change every time new rows are added.
View 9 Replies View RelatedI have an address (city, state, zip format) in a cell. Some of the zip codes only have a 4-digit zip code which is the way the file was received. I know these zip codes have leading zero. How can I convert these to a five-digit code. Examples are as follows:
Waltham MA 2453
convert to 'Waltham MA 02453'
Boston MA 2210
convert to 'Boston MA 02210'
CEDAR GROVE, NJ 7009-1174
convert to 'CEDAR GROVE, NJ 07009-1174'
TEANECK CITY, NJ 7666
convert to 'TEANECK CITY, NJ 07666'
This code works great for me, but I need some help modifying it. This code searches for data in the whole sheet, two things I would like to do is limit the search range to one column and then to find the whole string, not partials, for example, find 331 without finding all the 33's or 31's.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
If Target.Address = "$A$1" Then
Set MyRange = Cells.Find(what:=Target.Value, After:=Target)
If Not MyRange Is Nothing Then MyRange.Select
End If
End Sub
I am trying to modify the below code in order for it to:
1) Check the cells in Column A to find any blank cells and zero values. If the macro finds a blank cell or a zero then delete the entire row.
2) Check the cells in Column D for any blank cells and "N/A" (this N/A is text, it is not an excel error). If the macro finds a blank cell or "N/A" then delete the entire row.
Here is the old code
Sub DL()
Dim lastrow As Long, i As Long
With ActiveSheet
On Error Resume Next
.Columns(3).SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
On Error GoTo 0
lastrow = .Cells(Rows.Count, 3).End(xlUp).Row
For i = lastrow To 1 Step -1
If .Range("C" & i).Value = 0 And .Range("D" & i).Value = 0 Then .Rows(i).Delete
If .Range("C" & i).Value = "N/A" Then .Rows(i).Delete
Next i
End With
End Sub
Here is the modified code...
Sub DL()
Dim lastrow As Long, i As Long
With ActiveSheet
On Error Resume Next
.Columns(3).SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
On Error GoTo 0
lastrow = .Cells(Rows.Count, 3).End(xlUp).Row
For i = lastrow To 1 Step -1
If .Range("A" & i).Value = 0 And .Range("A" & i).Value = "" Then .Rows(i).Delete
If .Range("D" & i).Value = "" and .Rang("D" & i).Value ="N/A" Then .Rows(i).Delete
Next i
End With
End Sub
1) Is this the correct and efficient way to accomplish the task?
2) How to i change this in order to select a specific sheet?
I'm trying to change a
418,3315555
format cell to a regular phone number cell
418-331-5555
The following code is a is designed to paste into "Y1", the value in column 5 of the active row when that cell is changed. This works perfectly if I select the value from a dropdown list and hit enter, or if I enter a value manually and hit the right or left arrow key. However if I manually change the value of the cell and then hit enter, it does not work because it looks for the value in the next row.
Does anyone have any idea what I can do to make the macro stay focused on the cell who's value changed even if I hit enter?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim AR As Long 'Active Row
AR = ActiveCell.Row
If Target.Column = 5 Then
ThisRow = Target.Row
If ActiveCell.Value > 0 Then
Selection.Copy
The following codes work well but when I have changed the following condtion ,
If cel = Tgt.Range("A2") Then
to
If cel "" Then
I got worng result, can anybody help me to correct it?
Option Explicit
Sub test()
Dim sh As Worksheet, Tgt As Worksheet, i As Long, j As Long
Dim d, a
Dim c As Range, Rng As Range, cel As Range
Set Tgt = Sheets("Report")
Set d = CreateObject("Scripting.Dictionary")
j = 0
On Error Resume Next ...............
This is what I need:
Columns B, C, D & E are all populated with 3 digit numbers.
I would like column F to automatically populate with any of the 3 digit numbers that share two numbers, i.e.
F2 might look like this (using 00 as the pair):
001, 040
F3 might look like this (using 01 as the pair):
701, 051, 110, 001, 120
F4 might look like this (using 12 as the pair):
123, 721, 281, 912, 112, 120
etc...
I am attempting to modify the code below to, not only reference the ".Item(rCell.Value)", but also include it's formatting. The format for that referenced cell will not necessarily be a "certain" format..so I don't want to have to write out what specific formatting needs to happen.
VB:
If (.exists(Trim(rCell.Value)) And rCell.Offset(, 1).Value = "") Then rCell.Offset(, 1) = .Item(rCell.Value)
The entire code is as follows:
VB:
Sub FillVariablesOnlyBlanks()
Application.ScreenUpdating = False
Dim a, i As Long, rCell As Range, ws As Worksheet[code]....
I am trying to make a find and replace macro for multiple items.
Please see the attached file for further explanation : macro.xls
Is there any script that I generate 6 numbers of these numbers from the list? so they do not recur after another example 7,12,13,19,26,33
View 2 Replies View RelatedI have a column that contains 4 digit numbers that I want to convert to a text value. Here is my example
Number Text Value
7004 RBPA
7002 DCVA
7001 PVBA
.....etc.
There is a total of 10 different number values. I want to include the conversion vba into an existing macro that is performing other functions on the spreadsheet.
I need a way to display all 8 digit numbers that have the digits 1-8 in them. (ie. 12345678 but NOT 12345679 OR 12345677) Also If I could somehow divide by 13 then check for whole numbers
View 14 Replies View RelatedI have a spreadsheet with 1000's of 3 digit numbers and each one has a underscore in front of it.
HOw can I remove the underscore from each of these 3 digit numbers without doing a find/replace on each different number?
using Excel 2007, windowsXP, and am trying to find the right formula for the following problem.
I have a column of 3 digit numbers, and want to determine how many times a number occurs in the first position ie: 123 the second position ie: 123 and the third position ie: 123 in the entire column of figures?
I wanna create a buildin check digit for container numbers
so it will exists out of 11 cells. ( GATU 021097-9 )
is it possible when u type any letter/number in the first cell on a row it automaticly jumps to the next cell, repeating this for the full container number ?
I have a spreadsheet, with about 1,500 lines. In column A is a list of numbers that I need to remove the last digit from each number, for example in A22 is 02602726521 - I need this to be 0260272652. The numbers are all uniqe.
How can I remove the last digit from every number, without going in manually to do so?
Is there any way changing general four digit number into hours and minutes?
I have almost 31000 rows of imported data, showing arrival and departure times with four digits (dep 2130, arr 0130) without colons and I need to subtract dep from arr to get block hours. Is there a way to add colon to multiple cells or some other solution to my problem?
Adding colon to 62000 cells one by one does not sound that good to me.
I am trying to write a function that will give me the amount of time a certain number shows up in the same digit place in a large set of numbers.
For example:
111112221233313
111212222233323
111312223233333
111412224233343
111512225233353
111612226233363
111712227233373
111812228233383
111912229233393
given the number set how many times does the number 5 show up in the 4th digit. I know its 3 but for the data size I need to run it on, it is impossible to count.
What function would count how many times a certain number shows up in the same spot?
I've modified this macro I found on this forum, all it does is compares 2 lists of 6 digit serial numbers and and then tells me which numbers are in list 1 that are not in list 2.
However, I want to modify it so that it also gives me the numbers in list 2 that are not in list 1 (put into column F). I then need it to cut the matching serial numbers (in columns A and B) from sheet 1 and paste them into sheet 2.
How do I format numbers so it will show the actual first digit, and the rest as x?
so that $1,234.56
will appear as $1,xxx.xx
or alternatively,
$1,234,567.89
will appear as $1,xxx,xxx.xx
I would prefer to do this with custom formatting rather than VBA,
(this is so I can generate sample reports for prospective clients, without showing the real numbers in the tables)
I have a large list of phone numbers & some of the numbers do not have area codes. The area code is the same for all numbers. Is there a way to add the area codes to all of these numbers without keying all in manually
View 9 Replies View RelatedI have many dates in a column in a 6 digit format such as:
950223
950224
950225
These dates are Feb 23, 1995; Feb 24, 1995 etc.
How can I convert these dates in the column to 2/23/1995, 2/24/1995 etc?
