Hi Chandra,
You need to put Match Type on that MATCH formula
=INDEX(A2:B6;MATCH(MIN(B2:B6);B2:B6*;0*);1)
Rgds,
[dp]
On 15/09/2015 14:24, Chandra Shekar wrote:
Hello,
Am trying to find out student name who scored min marks using index &
min function but its giving error. Could you please find
xlFormulas
Application.CutCopyMode = False
End If
Regards,
Isabel
On Sunday, September 13, 2015 at 8:56:11 PM UTC-5, De Premor wrote:
We can avoid using loop in this case, try to replace your looping
code with offset and resize, try this another solution
Dim u As Integer
We can avoid using loop in this case, try to replace your looping code
with offset and resize, try this another solution
Dim u As Integer
u = Range("Months").Value - 1
If u > 1 Then
Range("ColumnLong").Resize(, u).Insert
Range("ColumnFormula").Copy
Range("ColumnLong").Offset(,
, waiting for your respond.
On 01/08/2015 23:40, Rashid Khan wrote:
Thanks for your explanation.
But unfortunately it is not working.
I am just enclosing herewith the pics which I am using for testing on
your side.
Regards
On Sat, Aug 1, 2015 at 4:22 AM, De Premor d...@premor.net
mailto:d
.
On Sat, Aug 1, 2015 at 12:00 AM, De Premor d...@premor.net
mailto:d...@premor.net wrote:
Here is the code, you can make changes or experiment with it
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel As Boolean)
On Error Resume Next
If Target.Column
Here is the code, you can make changes or experiment with it
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Target.Column = 1 Then
Target.Offset(0, 1).Select
ActiveSheet.Pictures.Insert(C:\Product\Pictures\
Hi Nilkanth,
PFA, hope it solve your requirement
Rgds,
[dp]
On 29/07/2015 17:01, Nilkanth Raval wrote:
Hi All,
Can anyone help me in below mail???
Thanks,
Nilkanth Raval
-- Forwarded message --
From: Nilkanth Raval nilkanth.ra...@gmail.com
mailto:nilkanth.ra...@gmail.com
Hi Vijayendra,
I've look at your workbook, there is to many shapes textbox on your
sheets, on sheet a there is 27.456 shapes, and on sheet b 37.419 shapes.
You can use this code to know how many shape on it.
Dim i As Long
For i = 1 To Sheets.Count
MsgBox Sheet Sheets(i).Name vbCrLf
PFA
On 27/12/2014 1:06, Alison Toczko wrote:
Hi. I have a spreadsheet with cells containing month and year (ie. Mar
2014) without using a day. I would like the cell to be yellow if we
are in the current month and year, and appear red if the month and
year has passed. Using Excel 2013, what
Hi All,
I've writen a code for this case, i use a junk sheet for removing
duplicate and sorting, it seem more easy to use, much faster, flexyble,
and cut off unneeded code
what i've done is on form initialize is : copy date to junk sheet,
remove the duplicate, sort it, and place it on combo
Another Version:
Sub GenSN()
Dim Data, lRow As Long, lNum As Long, SrcData As Range
Set SrcData = ActiveSheet.Range(A:Z).Find(SNo).CurrentRegion
Data = SrcData.Value
For lRow = 1 To UBound(Data, 1)
lNum = lNum + 1
If Not IsNumeric(Data(lRow, 1)) Then lNum = 0
Try this
=TRIM(MID(SUBSTITUTE($A15;|;REPT( ;99));(COLUMN(A1)*99)-98;99))
the idea is replacing a pipe char with 99 times white space using
SUBSTITUTE so we can trim it later to get the exact word
then we break it a part every 99 char using MID function, and then
remove the white space using
Hi Prafull,
Try this if you want to use In Cell formulas, paste bellow code in module
Function IsOK(CRef As Range) As String
Dim Str As String
Str = UCase(CRef.Value)
If InStr(1, Str, YES) Or InStr(1, Str, NO) Or InStr(1, Str,
CORRECT) Then IsOK = OK
End Function
Then just type in
Hi Rob,
Try this 2 code, first sub code just need a few line code, but it slower
than next sub code, i suggest second sub code if you have large data
list to process
Sub Simple()
Dim Rng As Range
For Each Rng In Sheet1.UsedRange.Offset(1)
If Not Trim(Rng) = Then
Try to paste this code on VBA module, then run sub tes
Sub Tes()
Dim Src, Res, LRow As Long, Id, ColCust As New Collection, ColID
Src = Range(A2).CurrentRegion.Offset(1)
ReDim Res(1 To UBound(Src, 1), 1 To Columns.Count)
ReDim ColID(0 To Columns.Count)
For LRow = 1 To
another way :)
=UPPER(LEFT(A2,1)LEFT(TRIM(RIGHT(SUBSTITUTE(A2, ,REPT(
,99)),99)))TEXT(B2,DDMM)LEFT(C2,1)RIGHT(C2,1))
On 22-10-2013 17:51, Anoop K Sharma wrote:
PFA updated with little change as described above.
On Tue, Oct 22, 2013 at 4:18 PM, Anoop K Sharma
aks.sharm...@gmail.com
This formula have 6 part
*=1-(**(B3/D2)^2**+**(B4/D2)^2**+**(B5/D2)^2**+**(B5/D2)^2**+**(B6/D2)^2**+**(B7/D2)^2**)*
And this Only 5 Part, Purple part was missing
*=1-(**(1/5)^2**+**(1/5)^2**+**(1/5)^2**+**(1/5)^2**+**(1/5)^2**)*
On 12-10-2013 3:52, Indrajit $nai wrote:
Hello Experts,
Kindly
Another way, little longer in code :D and just a little faster
I'am using manual method, fist, openit as textfile and split by
delimiter, then copy each column to specified destination
in attached sample with 500k row data, can processed in 2,6 seconds @ my
old comp
On 09-10-2013 13:13,
I think he want to check after data refreshed
*/I have a dynamic spreadsheet that monitors different stock prices that
is refreshed ever x amount of minutes./*
On 07-10-2013 16:23, Ravinder wrote:
U want this in which event like when u change value of sheet or do
some calculation or open
Hi renuka, try to put this code on button1 on click event
Private Sub CommandButton1_Click()
Dim i As Integer, Str As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Str = Str IIf(Len(Str) 0, |,
) ListBox1.List(i)
Next
Sheets(Split(Str,
try this
Sub xcv()
Dim Data As Range, Rng As Range
Set Data = Range(A6)
Set Data = Range(Data, Data.End(xlDown)).Offset(, 4)
For Each Rng In Data
Rng.Offset(, 2) = Rng * IIf(InStr(1, Rng.NumberFormat, Cr)
0, -1, 1)
Next
End Sub
Pada 05/10/2013 14:23, Sandeep
@googlegroups.com
Subject: Re: $$Excel-Macros$$ Inserting BMP (Bitmap) Images Into A Predefined
Cell Size
Hi De Premor,
Yes this pretty much close to what I am looking for.
Many thanks.
On Thursday, October 3, 2013 10:44:12 PM UTC-4, De Premor wrote:
try this attached file, i hope you can find
Try To Press Button CTRL + ` (a button before button 1, in the top of
TAB button bellow the ESC ) :D
Or
Goto Menu Formula then deactivate Sub Menu Show Formulas
On 20-09-2013 22:01, Dawn wrote:
Hi!
Im updating my skills in excel and have created a spreadsheet with
heaps of dates in a
U're welcome
i' stay in Borneo Island (Indonesia)
(^_^)
Pada 16/09/2013 13:13, Vishwanath menulis:
Dear De Premor,
I have no words to say thanks..
You are really great.
Which place you from? Wish i could meet you some time.
rgds
vishwanath
On 13 September 2013 08:39, De Premor d
Here i'am using Multidimension array to get faster result
This will little longer in code, but will much faster then Direct
Manipulation Data using For Each ... in Range... Next (Loop)
And then... Here we go...
Sub Convert()
Dim Data, Hasil, LCount As Long, LRow As Long, iCol As Integer
Try this formula
*=VLOOKUP(H3,A3:G13,MATCH(TOTAL,$A$2:$G$2,0),0)*
On 14-09-2013 11:28, Shrinivas Shevde wrote:
Dear All
Query on vlookup
Please look at the attached sheet.
Thanks in advance
--
Shrini
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
It’s
Try to use Selectionistead of ActiveCell
Selection.Value = Please assist with code
Pada 12/09/2013 18:36, Hilary Lomotey menulis:
Hello Experts
in the attached i have a marco that puts in values over an active
cell. However if i select a range of either non-contiguous range or
contiguous
PFA and try to run macro named SAVE on module1
On 29-08-2013 18:57, Vishwanath wrote:
Dear Experts.
Need your help. the solution can be by using the macros.
I have a workbook containing sheet called Indent and master sheet.
Indent sheet is form. The contents of the indent sheet to be updated
Give more attention here !
/Sheets(//*sheet2*//).Range(A10).Value = 1000//
/
Because you've specified a sheet name, Please make sure you have Sheet
named *sheet2 *in current workbook
Pada 11/09/2013 12:22, Prabhu Pinky menulis:
Hi experts,
Please find below simple codes, while i
yesterday from De Premor using VBA to copy data to
other worksheets and then using next available row to copy again etc.
It works like a charm. But I need some tweaking that I hope is possible.
Scenario of worksheet TOTALS
A BC
Denver #123
Boston
Please send me a sample file with a little explanation there
Pada 11/09/2013 20:10, georgebeegl...@gmail.com menulis:
Hi De Premor,
Thanks so much for the accurate information yesterday. We are
currently using that for one of our workbooks.
Yesterday, you nailed putting the value
No it's not, that file protected by simple method to prevent user
opening it they change the file header structure
Try attached DBF, i've repair the header by changing 1st byte on file
with correct value.
Pada 11/09/2013 21:19, Basole menulis:
Hi, the dbf attachment is corrupted.
Em
U're welcome ;-)
Pada 11/09/2013 21:24, georgebeegl...@gmail.com menulis:
PERFECT!!!Thanks so much for your assistance the last 2 days.
I appreciate it very much.
--
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
Try this code, please give more attention on RED Color :D
Sub RoundedRectangle1_Click()
Dim LRow As Long
Sheet1.[A10].Formula = =SUM(A1:A9)
LRow = WorksheetFunction.CountA(Sheet2.Range(*B:B*)) + 1
Sheet2.Cells(LRow, *2*) = Sheet1.[A10]
Sheet1.Range(A1:A9).ClearContents
End
Can you share sample text file and workbook ?
Pada 11/09/2013 22:42, CesarSan menulis:
I have been researching for a quicker way to do the following task,
but I couldn´t...
Can you please help me with that? It is basically a parser that
convert text files into sheets, but the problem is that
Yess that possible by using VBA, just follow attached workbook
Pada 10/09/2013 20:23, georgebeegl...@gmail.com menulis:
Hi All,
I have say a worksheet that is calculating cells A1:A9 with the Total
being displayed in cell A10
I want the answer of the Sum Function in cell A10 to be copied to
Or do partly guide me, i will try for it
Once again thnks
On Sep 2, 2013 7:16 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote:
Ups Sorry, i've forgot a line code for unlocking you sheet
protection
See at Line 4 and last line that i've bold
:09, ITP Abdulgani Shaikh menulis:
Yes got it, but active sheet is password protected, any solution for that.
On Tue, Sep 10, 2013 at 8:29 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote:
If you want to select current sheet, Use*ActiveSheet *to select
it, not ActiveWorkbook
Try This
Sub WbSpliter()
Dim Sh As Worksheet, Keys, LRow As Long
Const SavePath As String = C:\Workbook
Set Sh = ActiveSheet
Key = Sh.Range(R2: Sh.Range(R2).End(xlDown).Address).Value2
Application.DisplayAlerts = False
MakeDir SavePath
For LRow = LBound(Key) To
The good thing is that your sheet name have a same name with what we are
looking for also the name of month, so we can process it easily, try
this on B2
=COUNTA(OFFSET(INDIRECT($A2!$A1
),2,MATCH(B$1,INDIRECT($A2!$1:$1),0)-1,2^16))
On 07-09-2013 12:43, Ashish Kumar wrote:
Dear Seniors,
I
Using Macro
Sub createdata2()
Dim Dst As Worksheet, Rng As Range
Dim iCol As Integer, LRow(1 To 99) As Long
Worksheets.Add after:=Sheets(Worksheets.Count)
Set Dst = ActiveSheet
On Error Resume Next
For Each Rng In Sheet1.UsedRange
If InStr(1, Rng, :) 0 Then
Try this !
Sub HideYes()
Dim Rng As Range
For Each Rng In Range(A2:E2)
If InStr(1, LCase(Rng), yes) 0 Then Rng.EntireColumn.Hidden
= True
Next
End Sub
On 07-09-2013 10:46, Prafull Jadhav wrote:
Dear All,
Very Good Morning
I have one Query .
i am looking in Range
Try this
Sub check()
Dim Birth As Range, PANo As Range, UserInput, Arr
Set Birth = [G2]
Set PANo = [j2]
If IsEmpty(Birth) Then
Birth.Interior.Color = 255
Birth.Interior.Pattern = xlSolid
If MsgBox(Birth Date is empty, Do you want to enter data now
?,
Ups Sorry, i've forgot a line code for unlocking you sheet protection
See at Line 4 and last line that i've bold
Sub check()
Dim Birth As Range, PANo As Range, UserInput, Arr
Set Birth = [G2]
Set PANo = [j2]
*Sheet5.Unprotect
*If IsEmpty(Birth) Then
Try this code
Sub Macro1()
Dim Data As Range
Application.DisplayAlerts = False
Set Data = Range(C2, Range(C2).End(xlDown).Address)
Data.TextToColumns Data.Offset(, 1), OtherChar:=.,
FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2))
Application.DisplayAlerts = True
End
Have you try something like bellow ?
Sub NextEmpty()
Range(A37).End(xlDown).Offset(1).Select
End Sub
Rgds,
[dp]
Pada 30/08/2013 14:35, Ravi Kumar menulis:
Yes, that’s perfect
//
*/Warm Regards,/*
*/Ravi Kumar./*
*From:*excel-macros@googlegroups.com
Try this attached sample, and let us know if it solve your problem
On 30-08-2013 1:15, Diannaha Thompson wrote:
Ok so I have this list of times 7am, 8am, 7:30, 9, 9:20am and etc. for
example. I need to count how many times occur in a range. So 7:00-7:59
occurs twice 8am-8:59 occurs once. I
sorry, On Red Bold i mean ActiveCell.Offset(1,1)
On 31-08-2013 0:56, De Premor wrote:
Try to using Offset
Ex: Before you run your code, active / selected cell was on C3, then
try to run this code
Sub Tes()
ActiveCell.Offset(1,0).Select'Move 1 Cell Down
Stop'See Your Current
Try to using Offset
Ex: Before you run your code, active / selected cell was on C3, then try
to run this code
Sub Tes()
ActiveCell.Offset(1,0).Select'Move 1 Cell Down
Stop'See Your Current Selected Cell Now, then back here and
press F8
ActiveCell.Offset(0,1).Select
try this formula
=TRIM(SUBSTITUTE(C2,CHAR(10), ))
Pada 26/08/2013 17:33, Pravin Gunjal menulis:
Hello,
Can I get help from you to remove extra space / enter from column C
in the attached sheet. Pl do the needful.
Regards
Pravin Gunjal.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel?
can use TRIM Function to do
that job.
Thats All
Pada 26/08/2013 17:49, Pravin Gunjal menulis:
Thanks DP for your immediate response.
Could you please inform the meaning of this formula for my understanding.
Regards
Pravin Gunjal.
-- Forwarded message --
From: *De Premor* d
Try this macro
Sub Pierre()
Dim Rng As Range, Data As Range, iLeft As Integer
Set Data = Selection
For Each Rng In Data
iLeft = InStr(1, Rng, () + 1
If iLeft 1 Then
Rng.Offset(0, 1) = Mid(Rng, iLeft, InStr(1, Rng, )) - iLeft)
Rng.Offset(0, 0)
Then
Tmp = Tmp WorksheetFunction.VLookup(Kode, Data, Colx, 0)
IIf(RemoveDelimiter, , Delim)
End If
Next
LookForCode = Trim(Tmp)
End Function
Pada 25/08/2013 14:43, prkhan56 menulis:
Dear De Premor,
One small request please
Is it possible to amend your code to retain
Hi Pavan, Try this rev code
Function xSum(ParamArray Numbers()) As Variant
Dim BlockRange, SingleRange, Buffer
For Each BlockRange In Numbers
If WorksheetFunction.IsNumber(Evaluate(BlockRange)) Then
Buffer = Buffer + BlockRange
Else
For Each
?
.
Enjoy
Team XLS
On Mon, Jul 29, 2013 at 9:41 PM, Secret Shot secrets...@gmail.com
mailto:secrets...@gmail.com wrote:
Put = sign in cell A2 itself at the bagining of the text... :P
On Sun, Jul 28, 2013 at 1:46 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote
Try this and explore it
Function xSum(ParamArray Numbers()) As Variant
Dim BlockRange, SingleRange, Buffer
For Each BlockRange In Numbers
For Each SingleRange In BlockRange
Buffer = Buffer + SingleRange
Next
Next
xSum = Buffer
End Function
Pada
Another simple and short
=TRIM(RIGHT(SUBSTITUTE(A2,,,REPT( ,99)),99))
Pada 21/08/2013 16:12, Andrew Mangozho menulis:
Another simpler but rather long method to get the same result
On Tue, Jul 30, 2013 at 4:31 AM, Waseem Saifi waseemsa...@gmail.com
mailto:waseemsa...@gmail.com wrote:
try to replace current code with this
Function LookForCode(Str As String, Data As Range, Colx As Integer,
Optional Delim As String = ])
Dim Kode, Tmp As String
For Each Kode In Split(Str, Delim)
If Kode Then Tmp = Tmp
WorksheetFunction.VLookup(Kode, Data, Colx, 0)
paste this on userform1
'
Dim Target As Range
Private Sub CommandButton1_Click()
Target.Offset(1).Select
Unload Me
End Sub
Private Sub TextBox1_Change()
Target = TextBox1.Text
End Sub
Private Sub UserForm_Activate()
Set Target = Selection
TextBox1.Text =
Try This
Private Sub Workbook_Open()
If Now() #8/18/2013# Then
AnotherCode
Else
CurrentCode
End If
End Sub
Sub AnotherCode()
MsgBox This Your Another Code
End Sub
Sub CurrentCode()
MsgBox This Your Current Code
End Sub
On 14-08-2013 16:45, pawel lupinski
Hi Don, try this
Sub x()
Dim Dtx As Range, dDtx As Integer, dYear As Integer
For Each Dtx In Range(D2:D Range(D2).CurrentRegion.Rows.Count
+ 1)
If Left(Dtx, 3) = 0 Then
dDtx = Mid(Dtx, 6, 3) * 1
dYear = 20 Mid(Dtx, 4, 2)
Dtx.Formula =
Try This !
Sub x()
Dim Rng As Range, Str() As Variant
For Each Rng In Range(A3:A Range(A3).CurrentRegion.Rows.Count)
If InStr(1, Rng, Days) 0 Then
Range(B Rng.Row :D Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs
, ), Mins, ), )
InStr(1, Rng, Days) 0 Then_
Range(B Rng.Row :D Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs , ),
Mins, ), )
End If
Next
End Sub
*
On Fri, Aug 9, 2013 at 7:45 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote:
Try This !
Sub x()
Dim Rng
Sub
Once again Thanks .
Regards,
Prafull Jadhav.
On Sat, Aug 10, 2013 at 6:29 AM, De Premor d...@premor.net
mailto:d...@premor.net wrote:
firstly, Str() as variant is an array that we need to pass splited
result from this function Split(Replace(Replace(Replace(Rng.Text,
Days
paste this on macro Sheets2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer, Dst As Range
If Target.Address = $B$3 Then
[A6].CurrentRegion.Clear
Range(A6:E6) = Split(sno,Amount,int,monthly pay,int +
monthly pay, ,)
For iRow = 1 To [E3]
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
Sub Button1_Click()
Dim Rng As Range, Str
Range(A1).Select
Do
For Each Str In Array(Friendly's, Ruth's Chris Steak House,
Hooters, Ruby Tuesday, Chili's Grill Bar)
If InStr(1, Selection, Str) 0 Then Selection.EntireRow.Delete
Next
Try to change to Uppercase or Lowercase the test string and the sentences
In Ex:
If InStr(1, UCase(Selection), Ucase(Str)) 0 Then
Selection.EntireRow.Delete
Pada 06/08/2013 23:41, Spencer Patterson menulis:
Aside from the crazy windings text, that did the trick! Thank you so much!
Is
file to fill the array? I have about 900
lines/phrases/items.
It wont let me use that big of an array or too many line continuations.
Help? =)
On Tuesday, August 6, 2013 10:35:01 PM UTC-4, De Premor wrote:
Try to change to Uppercase or Lowercase the test string and the
sentences
Try this
Private Sub CommandButton1_Click()
Dim Rng As Range
For Each Rng In Range(C1:C20)
If Rng Then Rng.Offset(, 2) = IIf(Left(Rng, 1) = `,
Tax, Retail)
Next
End Sub
Pada 05/08/2013 16:26, SAJID MEMON menulis:
Dear I am making a small error in my file, only one
I dont know is that exist, but after reading a while about JSON Format,
i think we can do some simple translation on Excel Data to something
looklike bellow
{
Sheet1: {
title: Your Sheet Name Here,
Data: {
Row1: {
Name: De Premor
-To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ vba script to convert excel to json format
Pretty much that's exactly what I need to do. Would it be helpful if I
provided a sample file?
Regards,
Godiva.
On Mon, Aug 5, 2013 at 3:47 PM, De Premor d...@premor.net wrote:
I dont
You can also use this
=SUM(OFFSET(E6,1,MATCH(B2,F6:M6,0),MATCH(B3,E7:E10,0)))
Pada 01/08/2013 13:00, Waseem Saifi menulis:
thank you so much ravinder.
it's working absolutely fine.
On Thu, Aug 1, 2013 at 11:15 AM, ravinder negi ravi_colw...@yahoo.com
mailto:ravi_colw...@yahoo.com wrote:
Hi Hemal, in your first email you said:
*I want that, Menu sheet is to be open every time when I open excel file.*
Thaat why Priti give a code like this !
Worksheets(Menu).Activate
But in your real workbook, you dont have a sheet named *Menu*m but you
have sheet named *INDEX*
Try to change
Sorry ignore my last email, i just opening the macros code in your
workbook, and find that you have do it right, but in wrong place
Try to place that code in ThisWorkbook not in Sheet1
Pada 01/08/2013 17:34, De Premor menulis:
Hi Hemal, in your first email you said:
*I want that, Menu sheet
Try this
Sub tes()
Dim oWSHShell As Object, OpenFile As String
Set oWSHShell = CreateObject(WScript.Shell)
OpenFile = oWSHShell.SpecialFolders(Desktop)
\data_source\week_to_date-export.xls
Set oWSHShell = Nothing
Workbooks.Open Filename:=SaveDest
End Sub
Pada
Just trying to imagine with your problem since there is no file attached
to explore the other scene.
PFA my first approach, is that close with your ?
Pada 01/08/2013 8:54, RJQMAN menulis:
I have a complex program I wrote in Excel 2003 about six years ago,
and I am working to update it. In
Hi Putu,
While you're waiting for a groups response, why dont you start writing
your own code, you might want to read more about :
Select a file using Application.GetOpenFilename
Open a workbook using Workbooks.Open
Assign a value to variable using Set... =
Looping each
you may share your current code, maybe we can find whats wrong with it
Pada 30/07/2013 18:36, Puttu * menulis:
Really i tried my best, but didn't worked out. thus the reason seeking
for help
On Tue, Jul 30, 2013 at 3:59 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote:
Hi
wrote:
Hi,
I want to set particular date and* time* also for expire is this
possible.???
Or i want to set date and time for password...
When i set date and time, password will appear automatically
pls do the needful ASAP...
On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net
Try to use this in cell B2
*=VLOOKUP($A2,INDIRECT(' B$1 '!$B$2:$R$302),16,FALSE)**
*
Copy it down
Pada 27/07/2013 20:44, Puttu * menulis:
Experts your assistance is much appreciated.
On Sat, Jul 27, 2013 at 4:55 PM, Puttu * puttu...@gmail.com
mailto:puttu...@gmail.com wrote:
Hi
ups sorry, please ignore my last email, i've replied a wrong topic
My bad
:-\
Pada 29/07/2013 19:37, De Premor menulis:
Try to use this in cell B2
*=VLOOKUP($A2,INDIRECT(' B$1 '!$B$2:$R$302),16,FALSE)**
*
Copy it down
Pada 27/07/2013 20:44, Puttu * menulis:
Experts your assistance is much
Try to use this in cell B2
*=VLOOKUP($A2,INDIRECT(' B$1 '!$B$2:$R$302),16,FALSE)**
*
Copy it down
Pada 29/07/2013 18:22, Dhaval Shah menulis:
here with attach a file for reference
On Mon, Jul 29, 2013 at 4:49 PM, Dhaval Shah todhavals...@gmail.com
mailto:todhavals...@gmail.com wrote:
just remember, that i also not yet introduce my self :(
then let me introduce my self
You can call me *De* *Premor* and i am working in Network and
Infrastucture Division at intermediate Palm and Oil Mills in beautiful
Borneo, Indonesia, i love to learn programming in my spare time since i
try this code
Sub trunkit()
Dim Ctx As Range
'We use this method to get dynamic Record count in C Column
For Each Ctx In Range(C2: Cells(Range(C:C).Rows.Count,
3).End(xlUp).Address)
If Right(Ctx, 2) = 00 Then
'Replace = sign, from removed 00 string
create defined name inexample : *Eval**A2* that referring to =EVALUATE(A2)
Then in some cell in that sheet, just type *=EvalA2**
*
Pada 28/07/2013 14:59, xlstime menulis:
and what about formula
.
Enjoy
Team XLS
On Sun, Jul 28, 2013 at 11:10 AM, De Premor d
Hi Hammod, please try attached macro
Rgds,
[dp]
On 26/07/2013 10:32, ha...@mst.edu wrote:
Hi All
I'm trying to write an excel vba code that return a number with respct to
the value of the 2nd number.
There are 5 number copied into one column(it has to be one
column,project requiremnt)
and
Using macro, but required user to run the macro
This is the basic, user still can skip this by changing date on his computer
Private Sub Workbook_Open()
Dim Expired As Date
Expired = 20 Jul 2013
If Now() Expired Then
MsgBox File ThisWorkbook.FullName expired
Let me ask before answering you with the code
If i change the date to 30 June 2013, what will appear in quarter, half
and year ?
Pada 27/07/2013 15:00, Kenil Gala menulis:
hi,
Thank you very much De premor for your time and efforts.
but,one problem I am facing now is when I changed
using udf
On Cell A3, type*=Eval(A2)*
then, on VBE, add module and paste this code
*Function eval(str As String)**
**eval = Evaluate(str)**
**End Function**
*:-X
On 28/07/2013 12:09, xlstime wrote:
Hi All,
How to Evaluate cell value.
let assume that, in cell A2 - '1+2+3+4'
now how to
.
*From:* De Premor d...@premor.net
*To:* excel-macros@googlegroups.com
*Sent:* Friday, July 26, 2013 6:40 AM
*Subject:* Re: $$Excel-Macros$$ Date doubt
First Approach
This function is to find first Friday on every given range
, FindDate)
Case Y, YEARLY
FindDate = DateAdd(, NextFriday, FindDate)
End Select
*While Weekday(FindDate) 6**
**FindDate = FindDate - 1**
**Wend**
*findFriday = FindDate
End Function
Rgds,
[dp]
Pada 27/07/2013 6:02, De Premor menulis:
Good Morning Kenil
in details .
On Thu, Jul 25, 2013 at 11:34 AM, De Premor d...@premor.net
mailto:d...@premor.net wrote:
Sub a()
Dim i As Range
For Each i In Range(A2:A Sheet1.UsedRange.Rows.Count)
i.Offset(, 2) = i | i.Offset(, 1)
Next
End Sub
Pada 25/07/2013
... I .get more this when I do practice on the same.
Reg,
Prafull
On Thu, Jul 25, 2013 at 12:19 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote:
*Offset ([row], [column])*
lets say i = Range B3 = same as i.offset(0,0)
thenif we want to select Range C4 that should
First Approach
This function is to find first Friday on every given range, is this
match to your requirement ? if not, please reply with data and date as
you want on each range.
Confuse on this statement month from last Friday to last Thursday of
the month., sample data needed.
Function
PFA
Dim Rng As Range, iRow As Integer
Sub GetFolder()
Dim fldr As FileDialog
Set Rng = ActiveCell
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
fldr.AllowMultiSelect = False
If fldr.Show = -1 Then Call ListIt(fldr.SelectedItems(1))
End Sub
Private Function
, 2013 at 7:22 AM, De Premor d...@premor.net
mailto:d...@premor.net wrote:
PFA
Dim Rng As Range, iRow As Integer
Sub GetFolder()
Dim fldr As FileDialog
Set Rng = ActiveCell
Set fldr = Application.FileDialog(msoFileDialogFolderPicker
Paste this in Cell G5, then copy left and down
*=(EOMONTH(G$4,0)$D5)*(G$4$E5)*IF(EOMONTH(G$4,0)$E5,DAY($E5),DAY(EOMONTH(G$4,0))-IF(G$4$D5,DAY($D5),0))*($F5/($E5-$D5))**
*
Formula above will calculate on daily basis
Rgds,
[dp]
Pada 23/07/2013 21:33, Vishwanath menulis:
Dear Ashish,
Thanks. I
amount to be
allocated. Is it possible to rectify this issues?
Attached the work sheet.
rgds
On 23 July 2013 21:11, De Premor d...@premor.net
mailto:d...@premor.net wrote:
Paste this in Cell G5, then copy left and down
*=(EOMONTH(G$4,0)$D5)*(G$4$E5)*IF(EOMONTH(G$4,0)$E5,DAY($E5),DAY
You're welcome, glad to know it solve the problem
Have a good days
Pada 24/07/2013 1:34, Vishwanath menulis:
Dear Mr.DP..
Awesome... I admire it. You have reduced my whole day effort to
few minutes.. My heart filled thanks to you.
Best regards
Vishwanath
On 23 July 2013 23:55, De Premor d
1 - 100 of 137 matches
Mail list logo