To accomodate that, the easiest way is to put your keyword to a sheet,
Let say your array placed in sheet named MyArrayInSheet starting on
range A1 to A1000, then use this function :
Sub Button1_Click()
Dim Rng As Range
ActiveSheet.Range("A1").Select
Do
For Each Rng In Sheet
Thanks a Sir lot.
Actually, i am learning the same .
I was able to write the code for single column but i didnot understand how
to write for second column
Regards,
Prafull Jadhav.
9920553518
On Wed, Aug 7, 2013 at 9:05 PM, ashish koul wrote:
> Sub test()
>
> For j = 1 To Range("a2:c4").Colum
In fact you probably don't need that - 1. Remove it. I'm just typing this
on my handset, so please don't mind.
On Aug 8, 2013 6:50 AM, "Sam Mathai Chacko" wrote:
> Don, try passing the number of days to the date function like this.
>
> =TEXT(DATE(2013,1,No. Of Days - 1), "m\/d")
>
> Sam MATHAI CH
Don, try passing the number of days to the date function like this.
=TEXT(DATE(2013,1,No. Of Days - 1), "m\/d")
Sam MATHAI CHACKO
On Aug 8, 2013 4:11 AM, "Don Barton" wrote:
> Greetings,
> I work at a hospital laboratory and we have an expiration date barcode on
> blood transfusion units that f
Replace your code with below one... This will be great if you could provide
your original file.
Dim state As String
Dim startdate As String
Dim enddate As String, Erow as long
Sub btn1_click()
state = Me.Cells(3, 3)
startdate = Me.Cells(4, 3)
enddate = Me.Cells(5, 3)
MsgBox
Greetings,
I work at a hospital laboratory and we have an expiration date barcode on
blood transfusion units that formats the month and day as a number; the
number of days since the beginning of the year. We use a barcode scanner
to read in the expiration date, but need to convert the number o
Sub longfunction()
Dim varArray
varArray = Worksheets("Sheet2").Range("A1:A1000").Value2
Do
For Each Str In varArray
If InStr(1, Selection, Str) > 0 Then Selection.EntireRow.Delete
If InStr(1, UCase(Selection), Ucase(Str)) > 0 Then
Selection.EntireRow.Delete
Next
Selection.Offset(1, 0).Select
L
I have a macro that works perfectly except for everytime it's ran it wipes
the spreadsheet clean and inserts the new values. I need it to insert the
new data while leaving the old data without giving me a stackover flow
error :-/ Any help would be greatly appreciated.
Dim state As String
Di
Save those list of entries in another sheet, say Sheet2. Then use
Dim varArray
varArray = Worksheets("Sheet2").Range("A1:A1000").Value2
Then do
For Each Str In varArray
On Wed, Aug 7, 2013 at 11:40 PM, Spencer Patterson <
williamspencerpatter...@gmail.com> wrote:
> In my excel sheet, I have
In my excel sheet, I have an array but the amount of entries is close to 1,000
separate items. I am limited to 255 / too many line continuations.
Would calling a file or creating a dictionary/collection be best to implement
into the array?
Sub longfunction()
Dim Rng As Range, Str
Ra
In my excel sheet, I have an array but the amount of entries is close to 1,000
separate items.
Would calling a file or creating a dictionary/collection be best to implement
into the array?
Sub longfunction()
Dim Rng As Range, Str
Range("A1").Select
Do
For Each Str In Array
see if it helps
On Wed, Aug 7, 2013 at 4:33 PM, wrote:
>
>
> On Thursday, June 27, 2013 6:30:36 PM UTC+5:30, vikas khen wrote:
>>
>>
>> Dear All,
>>
>>
>> Please find the excel sheet. I need macro for the same
>>
>>
>>
>> Regards
>>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And
Sub test()
For j = 1 To Range("a2:c4").Columns.Count
For i = 1 To Range("a2:c4").Rows.Count
Range("h65356").End(xlUp).Offset(1, 0) = Range("a2:c4").Cells(i, j).Value
Next
Next
End Sub
see if it helps
On Wed, Aug 7, 2013 at 10:11 AM, Prafull Jadhav wrote:
> Dear All,
>
> Very Good Mornin
Respected Ranjan,
Start macro recording.Then select all the numbers in the form of text.you
will get an evaluation or error correction symbol.Click the evaluation
symbol and you will get some options one of which will be convert to
number.After converting the text into numbers stop the macro recor
On Thursday, June 27, 2013 6:30:36 PM UTC+5:30, vikas khen wrote:
>
>
> Dear All,
>
>
> Please find the excel sheet. I need macro for the same
>
>
>
> Regards
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Faceboo
pls provide excel or explain more about your query...
From: Pankaj
To: excel-macros@googlegroups.com
Sent: Wednesday, August 7, 2013 9:23 AM
Subject: $$Excel-Macros$$ Help needed in Excel
I have 2 columns in excel - A and B.
I want to merge the contents
Thanks Ravinder,
Actually my query was, While opening the excel file, can be convert
every text format "error checking in green colur" to number.
Note: if the green color are actually a number but intext format
With warm regards,
Rajan Sharma
On Wed, Aug 7, 2013 at 1:22 PM, ravinder neg
17 matches
Mail list logo
