hi,
If strPwd = "GiveYourPwd" Then i change here as 143
macros is running but for enabling ctrl+d it is not working.
On Sat, Jun 30, 2012 at 10:51 AM, Rajan_Verma wrote:
> HI
>
> ** **
>
> First you need to give your password in code (Replace “GiveYourPwd” with
> your password”) , Pr
Try this :
=IFERROR(INDEX($H$13:$N$13,1,MATCH(D$13,$H14:$N14,0)),"")
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of sriram ji
Sent: 30 June 2012 10:51
To: excel-macros@googlegroups.com
Subject: R
HI
First you need to give your password in code (Replace “GiveYourPwd” with your
password”) , Press ALT +F 11 then Insert a Module , paste the code there, come
to the worksheet and
Just Press Alt+F8 and select DisableCtrlD ,
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From:
Dear Excel Guru,
Please find the attached file,
If ptp1 comes which date ptp generated that date should comes in D2 cell, I
want all colored cells for formula..
Thanks & Regards,
Sriram G (Chennai)
On Fri, Jun 29, 2012 at 12:37 PM, Lalit_Mohan wrote:
> Hi Sriram,
>
> Could you please explai
Hi,
Can u guide the procedure how to run this code in my file.
I am fail to run the code.
Warm Regards,
Muralidhar E.
On Sat, Jun 30, 2012 at 10:25 AM, Muralidhar E wrote:
>
> Hi,
>
> Rajan,
>
> thanks alot.
> Warm Ragards,
>
> Muralidhar E
> On Sat, Jun 30, 2012 at 10:09 AM, Rajan_Verma
> wr
HI
Group your all worksheets and do page setup, will apply for all J
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of jmothilal
Sent: 30 June 2012 9:18
To: excel-macros@googlegroups.com
Subject: $
homework
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On
Behalf Of Ashish Bhalara
Sent: 30 June 2012 9:21
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros
Hi Azhar,
Try this revised with some changes hope it helps you:
Sub InsertColumnWithFormula()
Const lngNoOfColAs Long = 2
Dim varSheets() As Variant
Dim lngLoop As Long
Const strStartRange As String = "D1"
Use this One in G11:
=D11+(((A12-A11)+1)/24*4)
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Lokesh Loki
Sent: 30 June 2012 7:31
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$
Just Group your all worksheet by selecting them with Ctrl key and work with
any one ,
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Lalit_Mohan
Sent: 29 June 2012 5:03
To: excel-macros@googlegroups.
Sorry for delay
Thanks Dear...
On Sat, Jun 30, 2012 at 12:51 AM, Prince Dubey wrote:
> Hi manoj,
>
> Please Use this I hope this will work for you..
>
>
> SELECT distinct [Store ID]
> FROM [Acer All Data];
>
> union
>
>
> SELECT distinct [Store ID]
> FROM [Mar'12];
> union
> SELECT distinct
Hi!
I need userform controls created runtime to respond various data input
sessions
and use exclamation syntax to reference properties of these controls.
UserForm2!Label1.Caption = "xxx" works fine from within the form
module.
However, I also need to delete such controls before the for
Hi,
Rajan,
thanks alot.
Warm Ragards,
Muralidhar E
On Sat, Jun 30, 2012 at 10:09 AM, Rajan_Verma wrote:
> HI
>
> ** **
>
> HTH
>
> ** **
>
> Sub DisableCtrlD()
>
>
>
> Dim blnflag As Boolean
>
> Dim strPwd As String
>
>
>
> strPwd = Applicatio
Hi
Try this :
Sub MTest()
Dim rngRange As Range
Set rngRange = Range("A1").CurrentRegion.Offset(1)
Application.screenUpdating=False
rngRange.Sort key1:=rngRange.Cells(1, 3)
Set rngRange =
Range("A1").CurrentRegion.Columns(3).SpecialCells(xlCellType
Hi Mothilal,
Hope it helps you
Sub SetSheetOrientation()
Dim wbkAll As Workbook
Dim wksSheetAs Worksheet
Set wbkAll = ThisWorkbook
For Each wksSheet In wbkAll.Worksheets
wksSheet.PageSetup.Orientation = xlLandscape
w
HI
HTH
Sub DisableCtrlD()
Dim blnflag As Boolean
Dim strPwd As String
strPwd = Application.InputBox("Enter the Password ", "Password")
blnflag = Application.InputBox("To Enable Key Press 1 and To disable press
0 ", "Password")
If strPwd = "GiveYo
HI
Try this :
Sub MTest()
Dim Hyp As Hyperlink
Dim rngCell As Range
Dim wksSheet As Worksheet
Dim strURL As String
Set wksSheet = Worksheets("cleaner")
strURL =
"http://www.pawleysvacationrentals.com/PawleysIsland/VacationRentals/Pawleys
Island/Details/"
Dear experts,
Please suggest what should I do in that case, waiting for reply.
On Fri, Jun 29, 2012 at 7:23 PM, Ashish Bhalara
wrote:
>
>
> On Fri, Jun 29, 2012 at 7:20 PM, Ashish Bhalara > wrote:
>
>> Dear experts,
>>
>> I need a function or macro to replace data from another sheets by
>> addi
Hi Lokesh,
Please find the attached hope it meets your specification
Regards,
Lalit Mohan
On Sat, Jun 30, 2012 at 7:32 AM, Lokesh Loki wrote:
> Hi Lalit,
>
> Thanks for replying to my query.
>
> Actually i needed when i am changing the dates the macro timings i.e.
> 4:00:00 should be multiplie
Dear NOORAIN ANSARI sir
Thanks for sending function coding.
Mothilal.J
On Sat, Jun 30, 2012 at 8:35 AM, ╰» ℓαℓιт мσαнη wrote:
> Hi,
>
> Try this also
>
> =A1&" "&B1&" "&C1
>
> Regards,
> Lalit Mohan
>
>
>
> On Fri, Jun 29, 2012 at 11:29 PM, NOORAIN ANSARI > wrote:
>
>> Dear Moti Lal,
>>
>> Yo
Hi Azhar,
Try this revised version...
Sub InsertColumnWithFormula()
Const lngNoOfColAs Long = 2
Dim varSheets() As Variant
Dim lngLoop As Long
Const strStartRange As String = "R1"
varSheets = Array("Sheet1", "Sh
Hi,
Try this also
=A1&" "&B1&" "&C1
Regards,
Lalit Mohan
On Fri, Jun 29, 2012 at 11:29 PM, NOORAIN ANSARI
wrote:
> Dear Moti Lal,
>
> You can use below UDF for dynamically
>
> Function combine_cells(rng As Excel.Range) As String
> Dim cell As Excel.Range
> For Each cell In rng.Cells
> combine
Hi Lalit,
Thanks for replying to my query.
Actually i needed when i am changing the dates the macro timings i.e.
4:00:00 should be multiplied like this 8:00:00, 12:00:00, 16:00:00 and this
timings will added to the total timings.
Examples:
* TimingsMacro timings Total timings*
Hi Lalit,
Thanks for replying to my query.
Actually i needed when i am changing the dates the macro timings i.e.
4:00:00 should be multiplied like this 8:00:00, 12:00:00, 16:00:00 and this
timings will added to the total timings.
Examples:
* TimingsMacro timings Total timings*
Hi Paul,
I have not automated Word much.. so these are just some thoughts:
Have you already tried these ideas?
1) export from Word as MHT (images will be emebedded with the html file
to reduce file clutter), then open the file in Excel.
2) Open the document in Word, Select All, Cop
Hi manoj,
Please Use this I hope this will work for you..
SELECT distinct [Store ID]
FROM [Acer All Data];
union
SELECT distinct [Store ID]
FROM [Mar'12];
union
SELECT distinct [Store ID]
FROM [Apr'12];
union
SELECT distinct [Store ID]
FROM [May'12];
Regards
Prince Dubey.
On Friday, 29 J
Hi Mothi,
I Hope this helpful for you.
You need to Pass : Sheet Name , Cells to be Copied e.g C3:E3 and the
Cell in which data Needs to be pasted.
Sub test(strSheetName As String, strSourceRng As String, strTargetrangen As
String)
Dim Srng As Range
Dim rngcell As Range
With ThisWorkb
Dear Moti Lal,
You can use below UDF for dynamically
Function combine_cells(rng As Excel.Range) As String
Dim cell As Excel.Range
For Each cell In rng.Cells
combine_cells = combine_cells + CStr(cell.Value) & Chr(10)
Next cell
End Function
see attached sheet
--
Thanks & regards,
Noorain Ansari
w
Thanks so much its working .
Thanks with Mothilal.J
On Fri, Jun 29, 2012 at 9:55 PM, Aditya Tyagi wrote:
>
>
> On Sat, Jun 30, 2012 at 5:21 AM, jmothilal wrote:
>
>> i am using office 2003, are u send sample worksheet
>> Thanks
>> Mothilal
>>
>>
>> On Fri, Jun 29, 2012 at 9:46 PM, Aditya Tya
On Sat, Jun 30, 2012 at 5:21 AM, jmothilal wrote:
> i am using office 2003, are u send sample worksheet
> Thanks
> Mothilal
>
>
> On Fri, Jun 29, 2012 at 9:46 PM, Aditya Tyagi wrote:
>
>> =B1&CHAR(10)&C1 &CHAR(10)&D1 try this
>>
>>
>> On Sat, Jun 30, 2012 at 5:00 AM, ashish koul wrote:
>>
>>> Su
i am using office 2003, are u send sample worksheet
Thanks
Mothilal
On Fri, Jun 29, 2012 at 9:46 PM, Aditya Tyagi wrote:
> =B1&CHAR(10)&C1 &CHAR(10)&D1 try this
>
>
> On Sat, Jun 30, 2012 at 5:00 AM, ashish koul wrote:
>
>> Sub breaktext()
>> For i = 1 To Sheets(1).Range("a65356").End(xlUp).Row
=B1&CHAR(10)&C1 &CHAR(10)&D1 try this
On Sat, Jun 30, 2012 at 5:00 AM, ashish koul wrote:
> Sub breaktext()
> For i = 1 To Sheets(1).Range("a65356").End(xlUp).Row
> splitdata = Split(Sheets(1).Range("a" & i).Value, Chr(10))
> Sheets(1).Range(Cells(i, 2), Cells(i, 2 + UBound(splitdata))).Value =
Sub breaktext()
For i = 1 To Sheets(1).Range("a65356").End(xlUp).Row
splitdata = Split(Sheets(1).Range("a" & i).Value, Chr(10))
Sheets(1).Range(Cells(i, 2), Cells(i, 2 + UBound(splitdata))).Value =
splitdata
Next
End Sub
On Fri, Jun 29, 2012 at 9:21 PM, jmothilal wrote:
>
>
> On Fri, Jun 29, 20
On Fri, Jun 29, 2012 at 9:19 PM, ashish koul wrote:
> can you attach the sample file
>
>
> On Fri, Jun 29, 2012 at 9:18 PM, jmothilal wrote:
>
>> Dear any one
>>
>> I want 3 cell values in 1 cell line by line
>>
>> Thanks in advance
>>
>> like
>>
>> MOTHILAL
>> NAVEEN
>> RAJA MOTHILAL NAVEEN RA
can you attach the sample file
On Fri, Jun 29, 2012 at 9:18 PM, jmothilal wrote:
> Dear any one
>
> I want 3 cell values in 1 cell line by line
>
> Thanks in advance
>
> like
>
> MOTHILAL
> NAVEEN
> RAJA MOTHILAL NAVEEN RAJA
>
> --
>
> *J.Mothilal : **Universal Computer Systems : # 16, Brindava
Hi,
I have a query..suppose i put some thing in column B and i have mail id in
column C i want to sent the mail on that ID.
In the example given below if i enter done in column B a mail should be
send on address entered in column C
ABC
ram
sham
I'm sorry, but here's the longer version of the story:
I have an Oracle database.
I use Excel as a front-end to the database.
The Excel application is used to store and retrieve over 60,000 "documents"
Each "document" consists of 2 to 130 sheets.
Reporting tools allow me to search the content of a
Hi Lokesh,
Please find the attached. Change the formula accordingly.
Regards,
Lalit Mohan
www.excelfox.com/forum
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Lokesh Loki
Sent: Friday, June 29, 2012 7:18 PM
To: excel-macros@googlegroups.com
Dear Manoj,
Please use it..
SELECT Month, Store ID
FROM [Acer All Data]
WHERE ((Month)="apr'12"));
--
Thanks & regards,
Noorain Ansari
www.noorainansari.com
www.excelmacroworld.blogspot.com
On Fri, Jun 29, 2012 at 7:11 PM, ╰» ℓαℓιт мσαнη wrote:
> Hi Manoj,
>
> Try this
>
> select [store id] f
On Fri, Jun 29, 2012 at 7:20 PM, Ashish Bhalara
wrote:
> Dear experts,
>
> I need a function or macro to replace data from another sheets by addition
> of raw, these addition of raw is depend on the record of another sheet. you
> can find attached sheet for better understanding. I can do it manual
Hi All,
Please find the attached excel file, and i need total macro timings based
on date changes.
Let me know for any clarification.
Regards
Lokesh.M
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urge
Hi Manoj,
Try this
select [store id] from [Acer All Data] group by [store id]
select [store id] from [Apr'12] group by [store id]
select [store id] from [Mar'12] group by [store id]
select [store id] from [May'12] group by [store id]
Regards,
Lalit Mohan
On Fri, Jun 29, 2012 at 3:14 PM, Manoj
Hi Lalit_Mohan
Great work ! wow ! excellent !This works perfect!
U are really a expert and a genius in this field
This will really save a lot of time and work for me
Regards
Vijay yadav
On Thursday, 28 June 2012 15:39:56 UTC+5:30, vijay yadav wrote:
>
> Dear members,
>
> Please help
Hi Lalit_Mohan
Great work ! wow ! excellent !This works perfect!
U are really a expert and a genius in this field
This will really save a lot of time and work for me
Regards
Vijay yadav
On Friday, 29 June 2012 14:30:31 UTC+5:30, vijay yadav wrote:
> Hi Lalit_Mohan / VBA experts
>
Hello Experts,
I have attached a spreadsheet. In Column F we have a name. By default it is
validated in the format "First Name (and Middle Name if exists) Last Name".
So when someone types in a name in any of the cell in Column F, it should
convert the format to "Last Name, (comma) First (and M
Hi Azhar,
Try this and change accordingly
Sub InsertColumnWithFormula()
Const lngNoOfColAs Long = 2
Dim varSheets() As Variant
Dim lngLoop As Long
Const strStartRange As String = "R1"
varSheets = Array
Dear Azhar,
Please share sample workbook with Group.
On Fri, Jun 29, 2012 at 4:38 PM, Azhar Rai wrote:
> Hello Dear Gurus
>
> I want to add columns in an *excel sheet* between *R* and *AQ* to be
> total in number as in cell *H5* and I also want this to be replicated in
> sheet2, sheet3, and she
Hello Dear Gurus
I want to add columns in an *excel sheet* between *R* and *AQ* to be total
in number as in cell *H5* and I also want this to be replicated in sheet2,
sheet3, and sheet4 and these columns should also carry the formula from
column *R*.
Gurus please help me.
Thanks
--
FORUM
Hi Vijay,
Try this
Sub SeperateData()
Dim varVal As Variant
Dim lngLoop As Long
Dim rngRangeAs Range
Dim strIni As String
Dim strFinalAs String
Dim strTemp As String
Dim lngVal As Long
Dim lngCell
Hi Lalit
Please,Please help me
Please make a little change in superb macro which you had mode.
The macro worked but since it doesn't fulfil one condition I have to check
the entire data again one by one which
defetas the very purpose of using macro
Please modify the macro AND HELP ME
Hi Manoj,
My previous post is just an example to show how you can get unique id just
replace columna and table name accordingly.
Regards,
Lalit Mohan
On Friday, 29 June 2012 15:14:18 UTC+5:30, Manoj Kumar wrote:
> Dear Experts,
>
>
> I have data in month wise data in Access in different quer
where is the option of Tab_Data...
On Fri, Jun 29, 2012 at 3:37 PM, Lalit_Mohan wrote:
> HI Manoj,
>
> You can try this query in database may be it helps you
>
> select id from Tab_Data GROUP BY id
>
> (where id is the field name and Tab_Data is table name. you can add more
> columns to it just
HI Manoj,
You can try this query in database may be it helps you
select id from Tab_Data GROUP BY id
(where id is the field name and Tab_Data is table name. you can add more
columns to it just by adding column name with , and the same column in
group by seperated by ,)
Regards,
Lalit Moha
Hi Jorge,
Looks like this can be handled using lookup formulas.
One good way to perform lookups is to have a number representing each of
your criteria each alone in their own cell, preferably all in the same table
for all transporters. You can use pivot tables to generate the cross
referenced
Hi guys i have a sheet where I every month i calculate the costs for
logistics, there are 3 conditions (KM, Weight in KG, and Volumes), where i
have to calculate depending on the data put in the columns B,C,D
if it is zone 1,2,3 and has the volumes or weight under those limits it
puts those values
Hi H.,
True, Value2 is not necessary for the Format function version, but depending
on which alternative you are comparing it to, it is faster, more
predictable, or both.
with the options:
CELL
CELL.Value
CELL.Value2
CELL.Text
.
* CELL is a Range object, so if you use it in the context o
Sorry VBS file could not get attached.
Copy paste the below code in a notepad and save it with extension *.VBS*
**
Dim myExcel
Set myExcel = CreateObject("Excel.Application")
myExcel.DisplayAlerts = False
myExcel.AskToUpdateLinks = False
myExcel.AlertBeforeOverwriting = False
myExcel.Workbooks
Sorry for late.
Myself Shaikh AbdulGani A.R., working as Taxation Manager
also practicing as Tax Consultant in field of Income-tax, TDS and MH VAT.
This group helped me a lot for making lot of templates for smooth working.
Regard
On Wed, Jun 13, 2012 at 3:47 PM, Tinusz Tamás wrote:
> Hi all
use this in D14 and Paste in All Cells :
=IFERROR(INDEX($H$13:$N$13,1,LARGE(--($H14:$N14=D$13)*COLUMN($H$13:$N$13),1)-7),"")
Rajan.
On Friday, 29 June 2012 12:10:47 UTC+5:30, sriram ji wrote:
>
> Dear Excel Guru,
>
> Please find the attached file and help me
>
>
>
> Thanks & Regards,
>
Hi Neeraj,
Revised with formula copy
Sub FindFormula()
Dim rngDtRange As Range
Const strDataRange As String = "B1:B1000"
Dim firstAddressAs String
Const strFindFormulaAs String = "=RANDBETWEEN?"
With T
Dear Sriram,
Please try it..
=INDEX($H$1:$N$1,0,SMALL(IF($H2:$N2=$C2,COLUMN($H$1:$N$1),""),COLUMN(A1))-7)
with ctrl+shift+Enter
Hope it helps to u.
See attached sheet.
--
Thanks & regards,
Noorain Ansari
www.noorainansari.com
www.excelmacroworld.blogspot.com
PM, sriram ji wrote:
>
> Dea
Hi Neeraj,
Hope it helps you
Sub FindFormula()
Dim rngDtRange As Range
Const strDataRange As String = "B1:B1000"
Dim firstAddressAs String
Const strFindFormulaAs String = "=RANDBETWEEN?"
With ThisWorkb
Hi Sriram,
Could you please explain excatly what you are looking for so that we can
provide you the solution related to the query.
Regards,
Lalit Mohan
On Friday, 29 June 2012 12:10:47 UTC+5:30, sriram ji wrote:
>
> Dear Excel Guru,
>
> Please find the attached file and help me
>
>
>
> Than
63 matches
Mail list logo
