*hi LK modi
use this simpler formula
=LOOKUP(2,1/(A1:A10=A2),B1:B10)
file is attached
*Have A Nice Time Enjoy Life
Regards:
CMA Ankur Pandey
(Someone Different)
I'm not the best but i'm not like the rest~~
On Fri, Jul 8, 2011 at 10:56 AM, harsh shah harshsha...@gmail.com wrote:
HOPE
Hi,
Sorry I could not able to provide data bcoz its highly confidential I ran
same using run macro I think lines which I have bolded has problem and I
don't know how to use Adddatafield in code my code.
Points what I am following is.
1) I am putting 3 fields i.e. Location, Asset and Report date
Be simple.
You might be well aware of command buttons, drop downs, Text box,
check box etc.
Well these are called CONTROLS or OBJECTS.
Either You are a programmer or not you might be well aware of these
controls,
You interact with these controls using keyboard or mouse or other
input
I’m trying to assign the value in excel user from thought loop.
Name of the textboxes are TB1,TB2,TB3…….. TB22 .
Below is the code which I’m using ,but its not working.
For num = 1 To 22
txtbox_val = TB num .value
txtbox_val = num
End If
Next num
Hello,
I wrote a script to make a export with specific data.
Our workplanner can generate this report and save it of mail it.
But when a workbook is created is is called book1.xlsx (map1 for the Dutch)
or like that.
Is there a way to give the new made, unsaved workbook a filename?
Thanks in
Thanks Vasant Its working fine, Please can you also advise coding for
only converting HTML file into Excel...
On Jul 6, 8:57 pm, Vasant vasant...@gmail.com wrote:
Hi
Pls find the code and the file attached.
The html files stored in the folder 'Folder' will be used for the report.
Sub Test()
Rajan,
I am using Excel 2003 and the macro is not from coding Dim Fso As New
Scripting.FileSystemObject .
Regards,
Shrinivas
On Thu, Jul 7, 2011 at 10:45 PM, Chidurala, Shrinivas
shrinivas.chidur...@citi.commailto:shrinivas.chidur...@citi.com wrote:
Thanks a lot Rajan. But the below
Hi,
Try :
For num = 1 To 22
txtbox_val = Me.Controls(TB num).Value
txtbox_num = num
Next num
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de shariq khan
Envoyé : vendredi 8 juillet 2011 11:00
À :
Hello,
Maybe, use « SaveAs » instead of « Save » ?
Anyway, can you post your code ?
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Stilgar
Envoyé : vendredi 8 juillet 2011 11:10
À : excel-macros@googlegroups.com
Objet :
I’m trying to assign the value in excel user form thought loop.
Name of the textboxes are TB1,TB2,TB3…….. TB22 .
Below is the code which I’m using ,but its not working.
For num = 1 To 22
txtbox_val = TB num .value
txtbox_val = num
End If
Next num
The same
See if it help,
Use this in L2
=OFFSET(INDEX(F:F,MATCH(K2,F:F,0),1),COUNTIF(F:F,K2)-1,-4,1,1)
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of ashish koul
Sent: Friday, July 08, 2011 11:06 AM
To: excel-macros@googlegroups.com
Subject: Re:
You have to make a loop through each OleObject Embaded on Worksheet,
See if it helps.
Sub LoopWsCntrl()
Dim OLECont As OLEObject
Dim lRow As Long, lCol As Long
For Each OLECont In Sheet1.OLEObjects
If OLECont.progID = Forms.TextBox.1 Then
Variable =
Try this
Workbook.SaveAs FileName
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Stilgar
Sent: Friday, July 08, 2011 2:40 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Filename for unsaved workbook
Hello,
I wrote a script to
Hi Daneil,
Thanks but it didnt worked..
Run-time error '-2147024809
Could not find the specified object
Thanks,
Shariq
On Fri, Jul 8, 2011 at 11:12 AM, Daniel dcolarde...@free.fr wrote:
Hi,
** **
Try :
** **
For num = 1 To 22
txtbox_val = Me.Controls(TB
a2= a1+1
On Fri, Jul 8, 2011 at 4:35 PM, Kal xcel kalx...@gmail.com wrote:
Dear Experts,
I want the formula for below mention query...
user will put 100 in A1, from A2 autometically numbering will start like
this
A21
A32
A43
.
.
.
.
till 100
What will be
Dear Experts,
I want the formula for below mention query...
user will put 100 in A1, from A2 autometically numbering will start like
this
A21
A32
A43
.
.
.
.
till 100
What will be the formula??
Please help
Thanks in advance
Kalyan Chatterjee
--
kalyan babu.
Please try it..also
=IF(A2=,,COUNTA($A$2:A2))
On Fri, Jul 8, 2011 at 4:35 PM, Kal xcel kalx...@gmail.com wrote:
Dear Experts,
I want the formula for below mention query...
user will put 100 in A1, from A2 autometically numbering will start like
this
A2
Dear Ashish,
I want the numbering will start frm 1 and it will end at the number given by
user, like if user put 100 so numbering 1,2,3,4,5,6,7100, if
user put 200 numbering will start from 1,2,3,4,5,6,7,8,9,10200.
I think you got what I am saying.
Thanks in advance
Which line gets the error ?
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de shariq khan
Envoyé : vendredi 8 juillet 2011 13:11
À : excel-macros@googlegroups.com
Objet : Re: $$Excel-Macros$$ Need Help Help Help.Putting value in user
from by
Didn’t you say the textboxes were in a userform ? if they are on a
worksheet, the syntax should be :
With ActiveSheet
For i = 1 To 22
txtbox_val = .OLEObjects(TB i).Object.Value
Next i
End With
Daniel
De : excel-macros@googlegroups.com
try this
On Fri, Jul 8, 2011 at 5:40 PM, Kal xcel kalx...@gmail.com wrote:
Dear Ashish,
I want the numbering will start frm 1 and it will end at the number given
by user, like if user put 100 so numbering 1,2,3,4,5,6,7100, if
user put 200 numbering will start from
Dear Kalyan,
Please try it
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k As Long
i = Sheet1.Range(A1).Value
Sheet1.Range(A2:A1000).Clear
For j = 2 To i + 1
Sheet1.Cells(j, 1).Value = k + 1
k = k + 1
Next
End Sub
--
Thanks regards,
Noorain Ansari
Thank you I got the solution. I need to know why Adddatafield is used?
On Fri, Jul 8, 2011 at 9:32 AM, Chandra Shekar chandrashekarb@gmail.com
wrote:
Hi,
Sorry I could not able to provide data bcoz its highly confidential I ran
same using run macro I think lines which I have bolded has
Hi,
Please try this macro. This macro will give reference of numbers that matches
in D column
i have inserted two columns in bwtween) with col A and also true and also a
ref of A column
next to D column. Confirm actualy what u want.(i have added 4or 6 numbers for
examble)
--R.Karunanithi
Sub
Hi
Try this
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err:
If Target = Range(A1) Then
For i = 1 To Range(A1).Value
Range(A i + 1).Value = i
Next
End If
Err:
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of
See if it helps
http://excelpoweruser.blogspot.com/2011/07/creating-pivot-table.html
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Prabhu
Sent: Friday, July 08, 2011 6:08 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ ***Macros require
Daneil,
This one txtbox_val = Me.Controls(TB num).Value.
This is not on the worksheet, i'm using one userform and on which i have
many texboxes.. but i'm not able to put the value in by using loop, once
this is done then i will link it to the sheet values.
The main fight it how to
Hi
I am trying to insert a separate drop down calendar into consecutive
cells in a column, so as to reference a different date with the data
on each row in a Excel 2007 spread sheet, (the rows of data reflect
people and their activities for the day)
I found out how to insert a single calendar with
Hi
I have a Solution For You, Hope it will Help you., Follow the instruction :-
1). Insert a MicroSoft Date and Time Picker Control 6.0 On your Worksheet
2). Fit that Object in a Cell D1
3) Drag this Cell to Down
4) Run This Code
Sub MakeEventByCode()
Dim sh As Worksheet
Set sh = ActiveSheet
Hey Ashish heartly Congrats To you .. :)
Thansk for everything Dear.
On Tue, Jul 5, 2011 at 3:06 PM, simplyali simplyali...@gmail.com wrote:
Thanks Ashish for the Invite.. I have accepted the same...
I would like to thank you million times for making me aware of this
post
On Jul 5,
Hi,
here is a macro u can apply which works well.
Sub test32()
Dim LastRow As Long
Dim j As Long
LastRow = Cells(Rows.Count, A).End(xlUp).row
k = LastRow
For j = k - 1 To 4 Step -1
If Worksheets(Sheet1).Cells(k, 1).Value =
Worksheets(Sheet1).Cells(j, 1).Value Then
Thanks very much, will give it a try
George
-Original Message-
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On
Behalf Of Rajan_Verma
Sent: Friday, July 8, 2011 12:04 PM
To: excel-macros@googlegroups.com
Subject: RE: $$Excel-Macros$$ Create a drop down
Thanks a lot Ashish its working perfectly
Regards,
Rakesh.
On Fri, Jul 8, 2011 at 10:54 AM, ashish koul koul.ash...@gmail.com wrote:
add this code to new workbook and run the macro and choose the csv file
Option Compare Text
Sub swa()
Application.ScreenUpdating = False
Hi,
I have put a pivot table and i need to get Gross% starting from 0% and above
data listed in pivot. Can i know how to get in pivot by by adding formula?
My data has both -ve and +v % but what i need is any % with greater than 0%
Regards,
Vin
--
Use Simple formula
=COUNTIF(A$1:A1,A1)
Please let me know if you looking for this only
Regards
Santosh Bahuguna
On Fri, Jul 8, 2011 at 8:33 AM, Rajan_Verma rajanverma1...@gmail.comwrote:
*Hi
Try this*
* *
*Private Sub Worksheet_Change(ByVal Target As Range)*
*On Error GoTo Err:*
Daneil, that is what i want but the same code is not working.in my
sheet.
what is Me.contol ?
On Fri, Jul 8, 2011 at 10:22 PM, Daniel dcolarde...@free.fr wrote:
Give a try at the attached file.
** **
Daniel
** **
*De :* excel-macros@googlegroups.com
and if you want opposite
then use
=COUNTIF(A1:A100,A1)
then it will be
A1 : 100 result be will B1 : 100
A2 : 100 B2 : 99
A3 : 100 B3 : 98
A4 : 100 B4 : 97
A5 : 100 B5 : 96
A6 : 100 B6 : 95
Regards
Santosh Bahuguna
On Fri, Jul 8, 2011 at 3:29 PM, santosh bahuguna
A2, copy down as many needed
=IF(ROWS(A$2:A2)=A$1,ROWS(A$2:A2),)
Or, If you are inserting rows between A2 the last rows this will not work
as expected, so use this one;
=IF(COUNT(A$1:A1)=A$1,COUNT(A$1:A1),)
copy down as many needed
HTH
Haseeb
--
38 matches
Mail list logo