Asa! Good to hear from you. I am fine. Hope the same for you. The
example I posted seemed to work but I admit I did not check to see if
the correct day was returned. Tomorrow I will do that and try out
your format function version (which I think someone else posted
earlier but I had not tried
use Text(a1,"d")
Mothilal
On Wed, Jun 27, 2012 at 12:52 PM, Lalit_Mohan wrote:
> Hi,
>
> Try this revised formula as my last post contain some error
> Evaluate("=Text(Day(""" & Sheets("Sheet1").Cells(count, BarDate).Text &
> """), """")")
>
> Hope it helps you
>
> Regards,
> Lalit Mohan
Hi,
This kind of functionality is available in excel i don't know but we can
achieve this not exactle but will look like this by using paste data as
picture link.
I don't know how much it will helful to you.
Regards,
Lalit Mohan
On Wednesday, 27 June 2012 20:33:43 UTC+5:30, Mangesh wrote:
>
Hi! Hope you are well.
The "VBA way" is to use VBA's Format function (Replace CELL with the range
object for the cell desired):
Format(CELL.Value2, "")
If you wanted to use the TEXT function, the example given -- I believe --
will return incorrect results. These versions would return
Hi,
Try this also
Sub PgOrentation()
Select Case Sheet1.PageSetup.Orientation
Case 1: MsgBox "xlPortrait"
Case 2: MsgBox "xlHorizontal"
Case Else: MsgBox "None"
End Select
End Sub
Regards,
Lalit Mohan
UTC+5:30, stonesfan wrote:
> I need to trap PageSetup settings to dete
Hi Vishwa,
Hope it works for you
Sub BlanksAtEnd()
Dim rngRangeAs Range
Dim rngStartAs Range
Dim rngEnd As Range
Dim varMonth() As Variant
Dim lngLoo
The custom format will not work as I need the data to have the date except
for one special test.
This worked so thanks Lalit.
Evaluate("=Text(Day(""" & Sheets(RawData).Cells(count, BarDate).Text &
"""), """")")
Oddly when I used "Sheet1" instead of RawData which is the same sheet I got
Hi Lalit,
there is no difference between both the solution, It is due to by mistake.
regards
Prince dubey.
On Wednesday, 27 June 2012 19:14:08 UTC+5:30, Lalit_Mohan wrote:
> Hi Prince,
>
> Sorry for asking but could you please explain the deference in both of
> your solution.
>
> Regar
Hi stonesfan,
Try This I hope this will help u.
Sub PageOrientation()
MsgBox Switch(Sheet1.PageSetup.Orientation = 1, "xlPortrait",
Sheet1.PageSetup.Orientation = 2, "xlHorizontal")
End Sub
regards
prince dubey
On Wednesday, 27 June 2012 21:54:42 UTC+5:30, stonesfan wrote:
> I need
Hi Indrajit,
Please online stuff for this it would be very helpful for you.
Regards
Prince dubey.
On Thursday, 28 June 2012 04:38:06 UTC+5:30, Bullet wrote:
> Hi All,
>
> Can someone provide me some VBA Question for interview.
>
> Thanks in advance.
>
> --
> Indrajit
>
> Disclaimer:
> This
Dear Indrajit,
Please find attached VBA questions and Answers.
--
Thanks & regards,
Noorain Ansari
www.noorainansari.com
www.excelmacroworld.blogspot.com
On Thu, Jun 28, 2012 at 4:38 AM, Indrajit $nai wrote:
> Hi All,
>
> Can someone provide me some VBA Question for interview.
>
> Thanks in a
Hi Indrajit, Please see attached file.
On Thursday, June 28, 2012 7:08:06 AM UTC+8, Bullet wrote:
>
> Hi All,
>
> Can someone provide me some VBA Question for interview.
>
> Thanks in advance.
>
> --
> Indrajit
>
> Disclaimer:
> This electronic message and any files transmitted with it are confid
Hi All,
Can someone provide me some VBA Question for interview.
Thanks in advance.
--
Indrajit
Disclaimer:
This electronic message and any files transmitted with it are confidential
and intended solely for the use of the individual or entity to whom they
are addressed. If you are not the inten
HI to All,
Could you please provide me mentioned pdf free ebook .
"BUILDING ACCOUNTING SYSTEM USING ACCESS 2007"
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Hi Mangesh,
Try using from Insert Menu -- Object -- choose Create from file and locate
your sheet path that is available in your respective file then an Icon is
displayed so being in a sheet when you click on that Icon you will get
another sheet.
Revert if you failed to understand the above. I th
hi dear,
You should use form control's scroll bar.
see in attachment.
regards
prince
On Tuesday, 26 June 2012 14:09:19 UTC+5:30, friend wrote:
>
>
> Dear Sir/ Madam,
>
> Please see the attachment, I can not find the control tab in the format
> control
> of the scroll bar.
>
> Please help
>
> T
Nice I will join the contest
Sent from my BlackBerry® smartphone from Airtel Ghana
-Original Message-
From: yogananda muthaiah
Sender: excel-macros@googlegroups.com
Date: Wed, 27 Jun 2012 22:17:47
To: excel-macros
Reply-To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Fwd: Vis
Guys,
have ur neck out on below mail ... its a time to face a contest. Keep
Winning.
-- Forwarded message --
From: Chandoo.org - Learn Excel & Charting Online
Date: Mon, Jun 25, 2012 at 9:56 PM
Subject: Visualize Excel Salary Data & You could win XBOX 360 + Kinect
Bundle [Cont
Hope this Help :
Sub PopUpMassage(lngNumber As Long)
MsgBox Switch(lngNumber = 1, "xlPortrait", lngNumber = 2,
"xlHorizontal")
End Sub
Sub MTest()
PopUpMassage Sheet1.PageSetup.Orientation
End Sub
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-ma
I need to trap PageSetup settings to determine if the active worksheet can
be printed programmatically.
(Note that I'm not asking how to change them - if they are not within
reason, the active sheet will not be printed.)
I thought the following line of code would result in "xlPortrait" or
"xlH
Here are some template, hope u can find something good for u J
http://office.microsoft.com/en-us/templates/CL102207090.aspx
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Ankit Agrawal
Sent: 27
There is no option for what are you looking,
You just need to think about hide/unhide the rows
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
-Original Message-
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Mangesh Vimay
Sent: 27 June 2012 8:34
T
Hi Friends,
I need sheet under another sheet.
I have provided explanation in attached sheet.
Please help.
--
With regards,
MaNgEsH
--
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help,
Missed text (revised)
On Wednesday, June 27, 2012 9:39:17 PM UTC+7, Attapan wrote:
>
> I'll explain all of my request
>
> *1.This sheet made for keep history of label printing *
>
> *2.the format of label are*
>
> A 1207 x
>
> line no.Month
Hi,
I need some budget template. Please share some budget template.
Regards,
Ankit
--
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice wil
HI,
My name is Ankit Agrawal, I'm from New Delhi. Working as Asst A/c manager
with a SS Kothari Mehta & Co.
Apart from my work, I like to travel, music.
Excel plays major supportive role in accounting and reporting.
I am really happy to be a part of this forum.
Thank you Ayush Ji.
Regards,
Ankit
I'll explain all of my request
*1.This sheet made for keep history of label printing *
*2.the format of label are*
A 1207 x
line no.Month 5 digits running number
*3.I've variety of product code and product code use for 3 Line// I call
Hi,
Do we have any vba code, The number of cells we are deleting in between data
and the same number of cell to be inserted at the end of data. I believe by
doing this the range would not change for the next month.
Thanks,
Vishwa
From: excel-macros@googlegroups.com [mailto:excel-macros@googleg
Hi Prince,
Sorry for asking but could you please explain the deference in both of
your solution.
Regards,
Lalit Mohan
On Wed, Jun 27, 2012 at 8:32 AM, Prince Dubey wrote:
> Hi Vishwa,
>
>
> Try This
>
>
>
> Public Sub DeleteWeekends()
> Dim rng As Range
> Dim rngData As Ran
HI,
Can you please explain it more actually the requirement is not clear.
Regards,
Lalit Mohan
On Wed, Jun 27, 2012 at 1:33 PM, wrote:
> Dear all experts
>
>
>
> I’ve some questions about functions on the sheet, I made the sheet, So it
> use for record the label for production
>
>
>
> I tried
Dear ALL,
Thanks to all, all are working fine. Once again thanks,
Iqbal Shaikh
On 27 June 2012 19:04, Swapnil Palande wrote:
> Hi,
>
> use following formula
>
> =IF(E2="Not-Qualify", C2-D2, "-")
>
> Regards,
>
> Swapnil
>
> On Wed, Jun 27, 2012 at 6:46 PM, Shaikh Iqbal wrote:
>
>> Dear Expo
PFA
Deepak Rawat
On Wed, Jun 27, 2012 at 6:46 PM, Shaikh Iqbal wrote:
> Dear Exports,
>
> Please find attached a file and help for formula as per required.
>
>
>
>
>
> Regards,
>
> Iqbal Shaikh
>
> --
> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 1) Use concise, accurate t
See the attached File :
Formula Used =MAX(0,C2-D2)
Use this Format
_(* #,##0.00_);_(* (#,##0.00);_(* "-"??_);_(@_)
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Shaikh Iqbal
Sent: 27 Ju
Hi Iqbal,
Try this *=IF(E2="Qualify","-",C2-D2)*
--
*Best Regards,*
*Venkat *
*Chennai*
On Wed, Jun 27, 2012 at 6:46 PM, Shaikh Iqbal wrote:
> Dear Exports,
>
> Please find attached a file and help for formula as per required.
>
>
>
>
>
> Regards,
>
> Iqbal Shaikh
>
> --
> --
> FORUM RULES
Yes hope show...
i have tried the coding provided by Lalit Ji, there i just made a very
small change in selection range, its fine working.
i have pasted the code in the desire sheet in VBA application and made
run , all the almost punctuation got removed. hence easily it was done.
Below the c
Do you have any add-in or macro in personal.xlsb which have any macro
assigned Ctrl+D??
Because excel default Ctrl+D just fill down the data.
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On
Behalf Of Muralid
I think find and replace is best approach..
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Anil Gawli
Sent: 27 June 2012 3:15
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Remove Pu
No formula needed :
Just format the cell as ""
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Lalit_Mohan
Sent: 27 June 2012 12:52
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$
Thanks Lait Ji,
Working fine.
Thanks & Regards,
*Deba Ranjan P*
On Wed, Jun 27, 2012 at 4:20 PM, Lalit_Mohan wrote:
> Sub RemovePunctuation()
> Dim arrPunc As Variant
> Dim lngLoop As Long
> Dim rngCol As Rang
The suggested method is changing the ctrl-D keystroke for the Excel Application.
Not just the single workbook.
To do it for a single workbook, but not other open workbooks,
you would need to put the commands in Workbook_Activate/deactivate events.
As for password protecting it...
There are severa
Hi,
Try this..
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value <> "" and Target.Column=6 Then
Target.Value = BreakName(Target.Value)
End If
End Sub
Function BreakName(ByVal strName As String)
BreakName = Split(strName, " ")(1) &
Hi Lalit,
Thank you for your quick response. I think we are almost there.
When I enter a value say my first name and last name, it is displaying last
name and first name. But, immediately it shows a run-time error 13, type
mismatch.
I need this in column F. So if I add an additional statement
Hi Ranjan,
Please try this.
Sub RemovePunctuation()
Dim arrPunc As Variant
Dim lngLoop As Long
Dim rngCol As Range
Dim rngRangeAs Range
arrPunc = Array(".", "!", ":", ";", "-", "#", "(
ok ok. thats true, any thanks Anil Ji,
Thanks & Regards,
*Deba Ranjan P*
On Wed, Jun 27, 2012 at 4:02 PM, Anil Gawli wrote:
> it is possible but how u hold the values and replace it with others, for
> that u have to save the value as temp and then replace it.
>
> Regards,
> Gawli Anil
it is possible but how u hold the values and replace it with others, for
that u have to save the value as temp and then replace it.
Regards,
Gawli Anil
On Wed, Jun 27, 2012 at 3:43 PM, Deba Ranjan wrote:
> Thanks Anil Ji,
>
> its superb working. Anil Ji, Is there any option for removing all th
FANTASTIC ITS WORKING % HURRAY
Thanks Lalit and Raj for the assistance
On Wed, Jun 27, 2012 at 2:46 AM, Lalit_Mohan wrote:
> Dear Hilary
>
> Try this in column O4
>
> =IF(LARGE(($L$3:$L$21>=IF($K$23 =
> "",$L$23,$K$23))*(IF($K$23="",TRUE,$L$3:$L$21
> <=$L$23))*($L$3:$L$21),ROW($A1)) = 0, "", LAR
Dear Murali,
See attached sheet for reference.
On Wed, Jun 27, 2012 at 3:56 PM, NOORAIN ANSARI
wrote:
> Dear Murali,
>
> Please try it..
>
> Private Sub Workbook_Open()
> Application.OnKey "^d", ""
> End Sub
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Application.OnKey "^d"
> End S
Dear Murali,
Please try it..
Private Sub Workbook_Open()
Application.OnKey "^d", ""
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^d"
End Sub
--
Thanks & regards,
Noorain Ansari
www.noorainansari.com
www.excelmacroworld.blogspot.com
On Wed, Jun 27, 2012 at 3:0
Thanks Anil Ji,
its superb working. Anil Ji, Is there any option for removing all the
punctuation mark at a time with code and without userform help ?
Thanks & Regards,
*Deba Ranjan P*
On Wed, Jun 27, 2012 at 3:36 PM, Anil Gawli wrote:
> sorry for wrong attachment
> just see this att
Hi,
Try this on sheet selection change event
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value <> "" Then
Target.Value = BreakName(Target.Value)
End If
End Sub
Function BreakName(ByVal strName As String)
BreakName = Split(strName,
dear Sharath
Pl share u r data with us...
Regards,
Gawli Anil
On Wed, Jun 27, 2012 at 3:21 PM, sharath chandra <
sharath.c.sambr...@gmail.com> wrote:
>
> Hello Experts,
>
> I need a quick VBA code. We have column where we enter a name in "First
> Name Last Name" format. When someone enters a name
Hello Experts,
I need a quick VBA code. We have column where we enter a name in "First
Name Last Name" format. When someone enters a name in that cell, it should
automatically display the name in the same cell in the "Last Name, First
Name" format (which is Outlook format).
Please let me know
Anil Ji,
That is working fine , Thanks..
Ok is there any coding for direct remove without user form.
--- i mean writing coding and run.
Thanks again.
Thanks & Regards,
*Deba Ranjan P*
On Wed, Jun 27, 2012 at 3:15 PM, Anil Gawli wrote:
> pls find attached sheet
>
>
> On Wed, Jun
Hi,
But it will not come to the notice at the same time, it was accidently
going on, iam not observing it later it was effecting to the data.
On Wed, Jun 27, 2012 at 3:09 PM, Ahmed Honest wrote:
> Dear,
>
> I think using Ctrl + Z will allow you to take back the action you
> performed i.e Undo
Thanks Hilary
On Tue, Jun 26, 2012 at 3:37 PM, hilary lomotey wrote:
> Hi Amit
>
> Click on the column header you want to hide, in my case column H, which
> will highlight the whole column and hold ctrl + shift + forward arrow key ,
> right click and select hide, same is true for the row headers
pls find attached sheet
On Wed, Jun 27, 2012 at 2:52 PM, Deba Ranjan wrote:
> Sir,
>
> PFAand there are lots of punctuation which need to be clean.
>
> For cleaning and trimming the sheets i have used the code below mention
> and it is fine working:-
>
>
> Sub TrimCleanCells()
> Dim Rng
Dear,
I think using Ctrl + Z will allow you to take back the action you performed
i.e Undo the last action ;-). This should help. If not, check other experts
advice.
Thanks,
On Wed, Jun 27, 2012 at 12:33 PM, Muralidhar E wrote:
>
> Dear all,
>
> Iam using Office 2007, when iam need to use Cr
Deba Please share your workbook
On Wed, Jun 27, 2012 at 2:38 PM, Deba Ranjan wrote:
> Dear experts,
>
>
> Is there any VBA code to remove punctuation in a sheets ?
>
> -- i am doing it manually by ctr + H (replacing the desire punctuation
> with "") and it takes many times to remove huge dat
You can also change custom format "".
Regards,
Swapnil.
On Wed, Jun 27, 2012 at 2:14 PM, Swapnil Palande <
palande.swapni...@gmail.com> wrote:
> Hi,
>
> You can use below formula if you don't want to use vba.
>
> =TEXT(C2, "")
>
> and if you want to use vba code then use below function
Hi,
You can use below formula if you don't want to use vba.
=TEXT(C2, "")
and if you want to use vba code then use below function
format(cdate("02/05/2012"), "")
Regards,
Swapnil.
On Wed, Jun 27, 2012 at 9:17 AM, tangledweb wrote:
> If I already have Sheets(RawData).Cells(count, Bar
Dear all experts
I've some questions about functions on the sheet, I made the sheet, So it use
for record the label for production
I tried and tried to do with many fomular, but the results are not OK :(
I posted that sheet for all, Please discipline for me
Very thanks
Rdgs
Attapan Chainaron
Hi,
Try this revised formula as my last post contain some error
Evaluate("=Text(Day(""" & Sheets("Sheet1").Cells(count, BarDate).Text &
"""), """")")
Hope it helps you
Regards,
Lalit Mohan
On Wednesday, 27 June 2012 11:59:36 UTC+5:30, Lalit_Mohan wrote:
> Hi,
>
> Try this.
>
> Eval
62 matches
Mail list logo