Re: $$Excel-Macros$$ Need some help in excel

Hi Abhishek Try : UDF mention on below link http://jonvonderheyden.net/excel/displaying-autofilter-criteria/ Regards Mahesh On Tue, Feb 18, 2014 at 8:22 PM, abhishek agarwal < abhishekagarwal...@gmail.com> wrote: > Dear Sir, > > Please help me out i need some help > i need that if i choose som

Re: $$Excel-Macros$$ Date of Retirement.

Hi Prabhakar perhaps you can use, =DATE(YEAR(H2)+60,MONTH(H2),DAY(H2)) Regards Mahesh On Tue, Feb 18, 2014 at 3:54 PM, Ashish Bhalara wrote: > Dear Prabhakar, see the attached file to know the retire age as per your > example > > > On Tue, Feb 18, 2014 at 2:50 PM, wrote: > >> Hi Team, >> >> I

Re: $$Excel-Macros$$ Re: Multiple excel sheets in merge in single excel sheet

Hi Kishore Try : Change worksheet name as per your requirement Sub Mtest() Dim i As Integer Dim ws As Worksheet Worksheets(Worksheets.Count).Activate For i = 1 To Worksheets.Count 'Change sheet name where you want to copy data from all other sheets If Sheets(i).Name <> "Mainsheet" Then 'change yo

Re: $$Excel-Macros$$ Unique value formula required

Hi Avinash Perhaps ..! you can use below Array formula with dynamic name range and without any helper column =IFERROR(INDEX(DESIG,MATCH(0,COUNTIF($F$1:F1,DESIG),0)),"") DESIG refers to Dynamic Name Range : =OFFSET(Sheet1!$C$2, 0, 0, COUNTA(Sheet1!$C:$C), 1) Use ctrl+shfit+Enter to enter formul

Re: $$Excel-Macros$$ Bold and italics

Hi Joseph formula in cell A40 =TEXT(A1,"0% "&A24) On Sat, May 26, 2012 at 1:21 AM, Mahesh parab wrote: > Hi Joseph > > In cell A40 try below formula & run below macro > =CONCATENATE(TEXT(A1,"0% "&A24)) > > Sub Mtest() > With Range(

Re: $$Excel-Macros$$ Bold and italics

Hi Joseph In cell A40 try below formula & run below macro =CONCATENATE(TEXT(A1,"0% "&A24)) Sub Mtest() With Range("A40") .Value = .Value End With With Range("A40").Characters(Start:=1, Length:=3).Font .FontStyle = "Bold" End With With Range("A40").Characters(Start:=5, Length:=1).Font .FontStyle

Re: $$Excel-Macros$$ queary

Hi Anil Assuming cell A1 = 901+k then in cell B1 try below formula =LOOKUP(MID(A1,FIND("+",A1,1)+1,1),{"a","i","k","l","p";"b","d","a","e","c"}) HTH Mahesh On Thu, May 24, 2012 at 8:58 PM, NOORAIN ANSARI wrote: > Dear Anil, > > Please try it and see attached sheet. > > * > =IF(COUNTIF($B$3:B

Re: $$Excel-Macros$$ data download from different Sites, Through VBA Coading

Hi you can do it through web queries. Check below link. http://www.jkp-ads.com/Articles/WebQuery.asp HTH Mahesh On Wed, Apr 25, 2012 at 8:59 AM, prince sethi wrote: > Hi > > Can you please guide me as i have to download the data from Different > sites for reporting purpose. For that i have to c

Re: $$Excel-Macros$$ NEED SOME ATT.

Hi Anil Perhaps u can try this as well Sub Mtest() Dim rng As Range, c As Range Dim i As Long Set rng = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) For i = 65 To 90 For Each c In rng If Not IsEmpty(c) Then c.Replace Chr(43), "" c.Replace Chr(i), ""

Re: $$Excel-Macros$$ Simple VBA to Fill in blanks

* ** > > I’m new to posting. Do I reply to you and post a reply to the group as > well. > > Jim > > ** ** > > *From:* Mahesh parab [mailto:mahes...@gmail.com] > *Sent:* Friday, March 23, 2012 12:07 PM > *To:* excel-macros@googlegroups.com; sch...@gmail.com >

Re: $$Excel-Macros$$ Rank Formula required

Hi Pankaj PFA, Try : =RANK(E2,E$2:E$9)+SUMPRODUCT(--(E$2:E$9=E2),--(A2 wrote: > Shorter. Also enter using CSE (ctrl+shift+enter) > > =COUNTIF($F$2:$F$9,">"&F2)+**SUM(IF(F2=$F$2:F2,1,0)) > > > > > Don Guillett > Microsoft MVP Excel > SalesAid Software > dguille...@gmail.com > -Original Messag

Re: $$Excel-Macros$$ Spread sheet for NSE, BSE, MCX or all Indian exchange data.

Hi you can do it by using web queryor recording it or You can download sample workbook from below link. http://www.marketcalls.in/spreadsheet/vba-macro-to-download-bhavcopy.html HTH Mahesh On Sun, Mar 11, 2012 at 1:50 PM, rajeyssh wrote: > will y

Re: $$Excel-Macros$$ Add business address in a single row

Hi You can use CONCATENATE attach sample workbook if you are looking something different. HTH Mahesh On Sun, Mar 11, 2012 at 8:11 PM, Lokesh Loki wrote: > Hi Experts, > > > I need to add these business addresses in a single row, so could you > please provide me a formula so that I can do furthe

Re: $$Excel-Macros$$ Basics of excel & vba -plz send

Hi check this http://groups.google.com/group/excel-macros/browse_thread/thread/d23c567bf291be61/c79f558a40407eee?q=#c79f558a40407eee HTH Mahesh On Sat, Mar 10, 2012 at 10:55 PM, Anil Kumar wrote: > Hi Dear members, > > I am new to this group. > > > thnx in adv. > > -- > FORUM RULES (986+ memb

Re: $$Excel-Macros$$

Hi check whether this helps ! http://chandoo.org/wp/2011/08/03/create-powerpoint-presentations-using-excel-vba/ HTH Mahesh On Fri, Mar 9, 2012 at 11:34 AM, Rajasekhar Praharaju < rajasekhar.prahar...@gmail.com> wrote: > > hi experts, > > Need your expert advise. > > please provide a vba code

Re: $$Excel-Macros$$ Need VBA for repeating copy and paste special

Hi Eric Try : Sub Mtest() Dim LR As Long LC = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column LR = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To LC 'change sheet name here 'Use below line if you dont want to copy header of columns 'Sheet1.Range(Cells(2, i), Cells(LR, i)).Copy Sheet1.Range

Re: $$Excel-Macros$$ VBA Help

Hi Pavan Try Public Sub CloseAll() Dim WB As Workbook Application.DisplayAlerts = False For Each WB In Workbooks If Not WB.Name = ThisWorkbook.Name Then WB.Close SaveChanges:=False ' Or True if you want changes saved End If Next WB ThisWorkbook.Close SaveChanges:=False End Sub HTH Mahesh On Thu

Re: $$Excel-Macros$$ help

Hi Try : Sub Mtest() Dim i As Long Application.ScreenUpdating = False On Error Resume Next For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If InStr(1, Cells(i, 1).Value, "This page", 1) Or _ InStr(1, Cells(i, 1).Value, "Search Results", 1) Or _ InSt

Re: $$Excel-Macros$$ Need advise

Try : http://makeagif.com/ http://picasion.com/ On Tue, Mar 6, 2012 at 12:00 AM, Asa Rossoff wrote: > Hi Rekha, > > Outlook doesn't support animated GIFs. Hasn't for many years. They will > just appear as a still image in Outlook, although they will probably still > be animated for your m

Re: $$Excel-Macros$$ need help for hyperlink execution without using mouse PFA

Hi Do you want to send bulk emails to respective person from that worksheet ? HTH Mahesh On Tue, Feb 14, 2012 at 9:14 PM, dguillett1 wrote: > > > Don Guillett > SalesAid Software > dguille...@gmail.com > > *From:* Renukachari Kasee > *Sent:* Tuesday, February 14, 2012 6:21 AM > *To:* excel-

Re: $$Excel-Macros$$ Synchronizing two Pivot tables.

it would be great if you could send sample workbook..! On Sat, Feb 11, 2012 at 9:31 AM, Awal wrote: > I have two pivot tables with the same underlying data set but show > different views to the user. I need help synchronizing the 2 Pivot > tables with one report filter. > Thanks in advance for

Re: $$Excel-Macros$$ Excel and Macro PPT or Materials required

Hi You can download ebooks from below links - *Excel 2007 VBA Macro Programming* http://www.mediafire.com/?9sl8iagf5e51144 - *Microsoft Office Specialist (MOS) 2010 Study Guide for Microsoft® Excel* http://www.mediafire.com/?bs2dpn9qbwhih0n HTH Mahesh On Wed, Feb

Re: $$Excel-Macros$$ Urgent Required

Hi Neeraj Mr Noorain has already reply for this please explain in detail if you are looking apart from this http://groups.google.com/group/excel-macros/msg/5ab13460ec7b96c6?pli=1 HTH Mahesh On Wed, Jan 18, 2012 at 11:06 PM, xlstime wrote: > what you want? > > > On Tue, Jan 17, 2012 at 12:46 P

Re: $$Excel-Macros$$ Need help in building pivot using vba

Hi Rekha Try : Sub Mtest() On Error Resume Next 'delete existing pivot sheet Application.DisplayAlerts = False Sheets("Pivot West").Delete Application.DisplayAlerts = True Sheets("West").Select ActiveSheet.UsedRange.Select 'Count the column colcount = Selection.Columns.Count 'Add Dynamic Name Ran

Re: $$Excel-Macros$$ convert numbers into words

Dear Noorain it would be great if could explain about how you have hide formula's by defining "formulahide" (='From Excel'!$W$1:$AG$13) name range on From Excel worksheet Thanks Mahesh On Tue, Jan 17, 2012 at 7:02 PM, Rajan_Verma wrote: > You Inword(Yourdigit) after install this add-in >

Re: $$Excel-Macros$$ Macro to send Email various recipients

Hi You can download sample workbook from below link. http://www.rondebruin.nl/sendmail.htm HTH Mahesh On Tue, Jan 10, 2012 at 6:14 PM, PrIyAnKa wrote: > Dear Team > > I need a macro which send mail from excel to the mentioned id in Excel > with data > > E.g. : from A to D data in excel is li

Re: $$Excel-Macros$$ Unique count in Pivot table

Hi Amit find attach workbook; i have added one column in pivot data & taken Sum of Unique Values in pivot i think "Count of unique cabs = Sum of Unique Values" check whether this helps Data WS Count of Cab # Sum of Bill amount Sum of Count of unique cabs Mahindra 6 218500 4 TATA 6 255

Re: $$Excel-Macros$$ Unique count in Pivot table

Hi Amit find attach workbook. hope this will help Add one column in your pivot table data & use below formula Assuming you want to count unique values from Range A:A in pivot table =1/COUNTIF(A:A,A2) it would be great if you could attach sample workbook. HTH Mahesh On Sun, Jan 8, 2012 at 2:14 P

Re: $$Excel-Macros$$ Copy multiples tables from one worksheet to separate worksheets

Hi Try : Sub Mtest() Dim ws2 As Worksheet Dim c As Range For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) If c.MergeCells Then c.CurrentRegion.Copy Set ws2 = Worksheets.Add(After:=Sheets(Sheets.Count)) With ws2 .Name = c.Value .Range("A1

Re: $$Excel-Macros$$ To remove the character "*" from the cells with a date in it.

Hi Tan Try : Sub Mtest() Cells.replace What:="~*", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub *special character must be precede by “~” when you use find & replace option * Formula : Assuming Date with special c

Re: $$Excel-Macros$$ Urgent Help required

Hi Prathap Assuming u r value in cell A1 '=A1/10^6 HTH Mahesh On Thu, Oct 13, 2011 at 8:22 PM, Prathap wrote: > Hi, > > Is there a way to convert all the cells with numbers in to million format > with shortcut / formula. > > Example: 1232345487 i want as 1232. > > Attached is the sample file

Re: $$Excel-Macros$$ Want to Highlight find Cell

Hi Try: Sub Mtest() Dim found As Range Dim m As String, Temp As String Dim count As Integer Dim ws As Worksheet count = 0 m = InputBox(prompt:="Enter value for search", Title:="Excel Find") For Each ws In ActiveWorkbook.Worksheets Set found = ws.Cells.Find(What:=m, LookIn:=xlValues, lookat:=xlPar

Re: $$Excel-Macros$$ can I unprotect a sheet

Hi Anil find attach workbook to unprotect worksheet HTH Mahesh On Sat, Oct 8, 2011 at 2:58 AM, ChilExcel wrote: > hi Dilip > > > straxx password ,,does not work, this discontinued > Chilexcel > > > 2011/10/7 ChilExcel > >> Please see attachment >> >> >> >> >> >> >> 2011/10/7 Bé Trần Vă

Re: $$Excel-Macros$$ Want to separate Alphabet and Numeric Values

Hi Suman u can try below UDF also 'Below User Define Function extract Number from string Function ExtractNumber(rng As Range) Dim i As Integer For i = 1 To Len(rng) Select Case Asc(Mid(rng.Value, i, 1)) Case 0 To 64, 123 To 197 ExtractNumber = ExtractNumber & Mid(rng.Value, i, 1) End Select Next

Re: $$Excel-Macros$$ Conditional Formatting Highlight of Changed Cells

Hi Craig you can use Track changes option from excel http://office.microsoft.com/en-us/excel-help/about-tracking-changes-HP005230064.aspx HTH Mahesh On Thu, Oct 6, 2011 at 1:24 PM, Sam Mathai Chacko wrote: > Goto VBE, insert a new module in your workbook vba project, and add this > function >

Re: $$Excel-Macros$$ Splitting of files

Hi Shrinivas Try : Sub Mtest() Dim Rng As Range Dim ws As Worksheet Dim shname As String Dim i As Integer Dim shn As Long Dim mx As Variant Dim x As Integer Dim LR As Long Dim sPath As String, sFileName As String On Error Resume Next Application.DisplayAlerts = False Sheets("Temp").Delete Applica

Re: $$Excel-Macros$$ Excel expert required .

Hi Jatin i recommend, Krishnakumar KC http://www.freelancer.co.nz/users/513618.html http://www.linkedin.com/profile/view?id=14325892&authType=name&authToken=wPDQ&locale=en_US&pvs=pp&trk=ppro_viewmore if you are looking someone from India, even some expert from this group can help you. HTH Ma

Re: $$Excel-Macros$$ Numbers errors

Hi Anil If you are not doing calculation with numbers then you can change the format to text check whether this helps http://office.microsoft.com/en-us/excel-help/display-numbers-as-credit-card-numbers-HA010236840.aspx HTH Mahesh On Wed, Sep 28, 2011 at 9:39 PM, XLS S wrote: > Hey Anil, > >

Re: $$Excel-Macros$$

Mahesh On Sat, Sep 24, 2011 at 11:33 PM, Mahesh parab wrote: > Hi > > Try > > Sub Mtest() > Dim i As Integer > Dim ws As Worksheet > Worksheets(Worksheets.Count).Activate > For i = 1 To Worksheets.Count > 'Change sheet name where you want to copy data from all ot

Re: $$Excel-Macros$$ Regarding Pareto Chart in Excel

Hi find attach sample workbook. HTH Mahesh On Sat, Sep 24, 2011 at 11:36 AM, Raj Kumar wrote: > Hi Dear, > > I just want to know about pareto Chart in Excel. So i would request you > that kindly suggest me about the same. > > Regards > Raj Kumar > > -- > >

Re: $$Excel-Macros$$

Hi Try Sub Mtest() Dim i As Integer Dim ws As Worksheet Worksheets(Worksheets.Count).Activate For i = 1 To Worksheets.Count 'Change sheet name where you want to copy data from all other sheets If Sheets(i).Name <> "Mainsheet" Then 'change you range here Sheets(i).Range("A1:A25").Copy Destination:

Re: $$Excel-Macros$$ Date from textbox reversed.

Hi Try ActiveCell.Value = Format(FrmApplications.TextBox1.Value,"dd/mm/") Thanks Mahesh On Fri, Sep 9, 2011 at 10:26 PM, Brian wrote: > I am using a form to enter data and then from the textbox complete > data in an excel spreadsheet. This is my code >ActiveCell.Value = Date >

Re: $$Excel-Macros$$ ***VBA code to copy and save as new book***

Hi Prabhu just change Kill sPath & sFname Thanks On Sun, Sep 4, 2011 at 9:41 AM, Prabhu wrote: > Hi Mahesh, > > Plz find the same sheet i using for run this macro. > > Still a getting the same runtime error. > > Regards, > > Prabhu > > -- > > -

Re: $$Excel-Macros$$ ***VBA code to copy and save as new book***

ActiveWorkbook.Close True* > > *Application.DisplayAlerts = True* > > *Application.ScreenUpdating = True* > > *Err:* > > *If Err.Number <> 0 Then* > > *MsgBox "Do Not select First Sheet", vbInformation* > > *End If* > &

Re: $$Excel-Macros$$ Pivot Table data extract

Hi Anil copy below code in thisworkbook model Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim sht As Worksheet Dim oLo As ListObject Set sht = ActiveSheet For Each oLo In sht.ListObjects sht.ListObjects(oLo.Name).TableStyle = "" Next End Sub Thanks Mahesh On Fri, Sep

Re: $$Excel-Macros$$ ***VBA code to copy and save as new book***

Hi Prabhu Try Sub Mtest() Dim sPath As String, sFname As String, fname As String Dim OutApp As Object, OutMail As Object fname = ThisWorkbook.Name sPath = ThisWorkbook.Path & "\" sFname = "Statement as on " & Format(Date, "mm-dd-") & ".xls" With ThisWorkbook Sheets(Array(ActiveSheet.Name, Act

Re: $$Excel-Macros$$ Speech Recognition software for excel

://www.youtube.com/watch?v=io40bTjlYCY Thanks Mahesh On Wed, Aug 31, 2011 at 11:36 PM, rajan verma wrote: > Hi, > I just use this > > Sub speak() > Application.Speech.speak "Hellow EveryOne, Look I M speaking" > End Sub > > > On Wed, Aug 31, 2011 at 11:05 PM, Mahesh par

Re: $$Excel-Macros$$ ***VBA code to copy and save as new book***

Hi Prabhu check path of your file sPath = ThisWorkbook.Path & "D:\Reports\" *should be* sPath = "D:\Reports\" Thanks Mahesh On Wed, Aug 31, 2011 at 11:25 PM, Prabhu wrote: > Hi Ashish, > > Same Run time error "1004" > >- Make sure the specified folder is exists >- Make sure the folde

Re: $$Excel-Macros$$ ***VBA code to copy and save as new book***

Hi Prabhu Try Option Explicit Sub Mtest() Dim sPath As String, sFname As String sPath = ThisWorkbook.Path & "\" sFname = "Statement as on " & Format(Date, "mm-dd-") With ThisWorkbook Sheets(Array(ActiveSheet.Name, ActiveSheet.Previous.Name)).Select Sheets(Array(ActiveSheet.Name, ActiveSheet.P

Re: $$Excel-Macros$$ Book2.xlsx

Hi not sure what exactly you looking for, even if you *sort* the Party Name column you will get results as per highlighted in yellow thanks Mahesh On Thu, Sep 1, 2011 at 5:46 AM, Sudhir Kumar wrote: > *Data Table* > > * * > > * * > > ** ** > > ** ** > > ** ** > > ** ** > > ** ** > > ** ** > > D

Re: $$Excel-Macros$$ Book2.xlsx

Hi Try =SUMPRODUCT((A3:A7=G5)*(B3:B7=F5)*(C3:C7)) *OR* =SUMIFS(C3:C7,A3:A7,G5,B3:B7,F5) On Wed, Aug 31, 2011 at 5:05 PM, Sundarvelan N wrote: > Please refere the attached file. > > > Thanks > N.Sundarvelan > 9600160150 > > > > On Thu, Sep 1, 2011 at 5:00 AM, Sudhir Kumar > wrote: >

Re: $$Excel-Macros$$ Hide Rows that are NOT Yellow

Hi Bob find attach. Try : Sub Mtest() Dim c As Range On Error Resume Next With ActiveSheet For Each c In .Range("A1:A100") If c.Interior.ColorIndex <> 6 Then c.EntireRow.Hidden = Not c.EntireRow.Hidden Next c End With On Error GoTo 0 End Sub Thanks Mahesh On Sat, Aug 20, 2011 at 8:45 PM, dguil

Re: $$Excel-Macros$$ TAT reporting for assignment

Hi Amit use below formula in C3 =IF(B3<=2,"0-2 Days",IF(B3<=7,"3-7 days",IF(B3<=14,"8-14 days",IF(B3<=30,"15-30 days","More than 30 days" Thanks Mahesh On Sat, Aug 20, 2011 at 10:53 AM, Amit Desai (MERU) wrote: > Thanks this helped… > > ** ** > > Now what if I need, TAT range (0 – 2

Re: $$Excel-Macros$$ Add 1 to a cell every time the file is opened

Hi John One concern , what if i open the workbook n didnt save it, next time whn i open the workbook it will reflect same number try below code in Thisworkbook module Private Sub Workbook_Open() Sheets("Sheet1").Range("F2").Value = Sheets("Sheet1").Range("F2").Value + 1 End Sub Private Sub Work

Re: $$Excel-Macros$$ ***Macro Code Required to delete Zero value cell and its row***

Hi Prabhu Try Sub Mtest() Dim LR As Long, i As Long LR = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count 'LR = Range("P" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False For i = LR To 1 Step -1 If Cells(i, 16).Value = 0 Then Cells(i, 16).EntireRow.Delete Next i Applicat

Re: $$Excel-Macros$$ Help in Training room booking system

Hi You can download sample workbook here http://exceltemplate.net/calendar/hotel-reservations/ http://office.microsoft.com/en-us/templates/conference-room-reservation-request-form-TC03617.aspx http://www.myexceltemplates.com/conference-room-scheduler-excel-template/ Thanks Mahesh On Mon, Aug

Re: $$Excel-Macros$$ Vba Code required to link every cell of workbook to another workbook

Hi Kaushik can you send both sample workbook which r link. Thanks Mahesh On Mon, Aug 1, 2011 at 5:59 PM, KAUSHIK SAVLA wrote: > Hi All, > > Vba code required to link whole workbook (every cell of workbook) to > another workbook. > > Regards, > Kaushik > > -- > > ---

Re: $$Excel-Macros$$ Entered data should be locked

Hi Muralidhar Try : 1.First select all cells (Ctrl + A) on worksheet 2.Right Click & Go to Format cells 3.Select Protection Tab 4.uncheck Locked 5.Right Click on sheet tab & select view code 6.Paste below code Private Sub Worksheet_Change(ByVal Target As Range) Const pw As String = "password"

Re: $$Excel-Macros$$ Formula or macro to find a word that is all capitlaized

Hi Try : Use below formula in Conditional Formatting =SUM(LEN(A1)-LEN(SUBSTITUTE(A1,CHAR(ROW(INDIRECT("65:90"))),"")))=3 Reference :http://dmcritchie.mvps.org/excel/strings.htm Thanks Mahesh On Thu, Jul 28, 2011 at 3:39 AM, qcan wrote: > Hi, > > Can anyone help me with some sort of formula

Re: $$Excel-Macros$$ Reverse Vlookup

Hi Anil Find attach Try =LOOKUP(2,1/($A$2:$A$12=D3),$B$2:$B$12) Thanks Mahesh On Thu, Jul 28, 2011 at 4:16 PM, Anil Bhange < anil.bha...@tatacommunications.com> wrote: > Hi All, > > ** ** > > Could you help me with VB code for Reverse Vlookup function command where > we can lookup value fro

Re: $$Excel-Macros$$ ***Macro Code Required to delete Zero value cell and its row***

Hi Try Sub Mtest() Dim LR As Long, r As Long LR = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = LR To 1 Step -1 If Application.WorksheetFunction.CountIf(Rows(r), "=0") = 1 Then Rows(r).Delete Next r Application.ScreenUpdating = True End Sub

Re: $$Excel-Macros$$ minimum numeric positive value

Hi find attach Try : {=MIN(IF($A$2:$A$16>0,$A$2:$A$16))} Thanks Mahesh On Wed, Jul 27, 2011 at 6:33 PM, sundar nayal wrote: > > Hi friends, > > i have a data, in which so many numeric value, some are positive( like > 1,2,3,55,76,871 etc) and some are negative ( like -1,-5,-84,-7,-6 etc), > so

Re: $$Excel-Macros$$ Difference between Array formula and Normal Formula...

Hi check info on this http://www.youtube.com/watch?v=SYpHjReBbmA&feature=share Thanks Mahesh On Wed, Jul 27, 2011 at 3:53 PM, Venkat CV wrote: > Thanks to All... > > > > > On Wed, Jul 27, 2011 at 9:40 AM, Dilip Pandey wrote: > >> Hi Venkat, >> >> Check following links:- >> >> www.cpearson.com/

Re: $$Excel-Macros$$ filter of nonblank cell

Hi find attach as per your requirement. try : Sub test() Sheet1.UsedRange.Copy Sheet2.Select Sheet2.Range("A1").PasteSpecial Paste:=xlPasteValues On Error Resume Next Columns("B").SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete On Error GoTo 0 End Sub On Mon, Jul 25, 2011 at 7:

Re: $$Excel-Macros$$ to find particular column and insert one column and perform Vlookup using vba

Hi For Vlookup you can use static Name range which is predetermined RANGE =SBUMapping!$A$1:$D$789 OR dynamic Name range range which resize dynamically RANGE =OFFSET(SBUMapping!$A$1,0,0,COUNTA(SBUMapping!$A:$A),COUNTA(SBUMapping!$1:$1)) Thanks Mahesh On Mon, Jul 18, 2011 at 11:05 PM, Mahesh

Re: $$Excel-Macros$$ to find particular column and insert one column and perform Vlookup using vba

Hi Prathima Assuming your Data 1,2 & 3 columns contain data Try : Sub test() Dim LR As Long Sheets("Summary").Select Set Found = Sheets("Summary").Rows(1).Find(what:="Data 1", LookIn:=xlValues, lookat:=xlWhole) LR = Cells(Rows.Count, Found.Column).End(xlUp).Row Found.Offset(, 1).EntireColumn.In

Re: $$Excel-Macros$$ To Generate a Code

Hi Kurikkal find attach Thanks Mahesh On Sun, Jul 17, 2011 at 4:59 PM, kurikkal padinjarappalla < padinjarappa...@gmail.com> wrote: > Dear Experts, > > Hope somebody could help me to solve the problem mentioned in the attached > sheet. > > Thanks in advance. > > Regards, > Kurikkal. > > -- > >

Re: $$Excel-Macros$$ excel user form objects

Hi Pascal Try: Private Sub CommandButton1_Click() Dim ws As Worksheet For Each ws In Worksheets ws.Columns("A:A").Hidden = Not ws.Columns("A:A").Hidden Next End Sub Thanks Mahesh On Sat, Jul 16, 2011 at 11:11 PM, bpascal123 wrote: > Hi, > > I would like to know if there is a way to use the same

Re: $$Excel-Macros$$ sumproduct and pivot table on same data ranges - different results - (part 2)

Hi U have consider G1 = 2527 in pivot table & not in sumproduct sheet. Please check Thanks Mahesh On Fri, Jul 15, 2011 at 6:20 PM, Pascal Baro wrote: > Hi, > > This time there really is a difference between the pivot table and > productsum function. > It seems it's all about decimal values. Pr

Re: $$Excel-Macros$$ Excel Macro

Hi Paste below code in thisworkbook module Private Sub Workbook_Open() If MsgBox("Do u want to Disable macro?", vbYesNo, "Information") = vbYes Then ActiveWorkbook.Close savechanges:=True End If End Sub Thanks Mahesh On Thu, Jul 14, 2011 at 10:07 PM, karthikeyan < karthikeyansankar...@gmail.

Re: $$Excel-Macros$$ Rename Sheet as datawise How?

Hi Try Sub test() Dim i As Long Dim ws As Worksheet Dim LR As Long LR = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To LR Set ws = Worksheets.Add(After:=Sheets(Sheets.Count)) ws.Name = Sheets("sheet1").Cells(i, 1) Next i End Sub On Sun, Jul 10, 2011 at 10:23 PM, SAJID MEMON wrote: > Dears

Re: $$Excel-Macros$$ and the Microsoft MVP award goes to Ashish Koul :)

Hi Ashish Heartiest Congratulations on your success ! Keep it up ! On Fri, Jul 1, 2011 at 10:20 PM, ashish koul wrote: > Thank you all > > > On Fri, Jul 1, 2011 at 9:36 PM, Venkatesan c wrote: > >> *Dear Asish,* >> * >> * >> *Congrats...* >> * >> * >> *Best Regards,* >> *Venkat* >> *

$$Excel-Macros$$ Find IE browsing history excel vba

Hi below code retrieve internet browsing history in excel sheet, Amazing ! Try : 'unknown Author Public Const ERROR_CACHE_FIND_FAIL As Long = 0 Public Const ERROR_CACHE_FIND_SUCCESS As Long = 1 Public Const ERROR_FILE_NOT_FOUND As Long = 2 Public Const ERROR_ACCESS_DENIED As Long = 5 Public Con

Re: $$Excel-Macros$$ small doubt help me.

Hi i have sent with attachment Try: Sub test1() Dim LR As Long, i As Long, j As Long, k As Long LR = Range("A" & Rows.Count).End(xlUp).Row If Cells(1, 1).Value <> "" Then Cells(1, 1).EntireRow.Insert Results = Array("Address :", "Area :", "Pin :", "Phone :") Columns("A:A").Copy Destination:=Activ

Re: $$Excel-Macros$$ HELP NEEDED FOR FORMULA

Hi Try =IF(COUNTIF(B:B,A2)>0,A2,"") Thanks Mahesh On Mon, Jun 20, 2011 at 11:03 AM, HARI NAIR wrote: > I WANT YOUR VALUE HELP TO PUT A FORMULA IN THE ATTACHED SHEET. PLEASE HELP > THANKS IN ADVANCE.. > > HARI > > -- > > --

Re: $$Excel-Macros$$ Sorting option in Filter Disable-Shortcut Key.Excel 2007

Hi Saravanan check whether this help http://www.rondebruin.nl/key.htm Thanks Mahesh On Fri, Jun 17, 2011 at 8:35 PM, saravanan R wrote: > Hi Excelates, > > I need an Urgent help on disabling the Sort in the filter dropdown. > Is there a way to disable only the short cut key i.e only the lette

Re: $$Excel-Macros$$ Email address is not showing in the from option

Hi check http://www.rondebruin.nl/mail/tips2.htm On Mon, Jun 6, 2011 at 11:48 PM, Mahesh parab wrote: > Hi > > which version of Excel you are using ? > in 2007 its .SendUsingAccount property > in 2003 its .SentOnBehalfOfName property > can you send sample workbook. >

Re: $$Excel-Macros$$ Email address is not showing in the from option

Hi which version of Excel you are using ? in 2007 its .SendUsingAccount property in 2003 its .SentOnBehalfOfName property can you send sample workbook. Thanks, Mahesh On Mon, Jun 6, 2011 at 9:47 PM, Simran Singh wrote: > Hello experts, > > I am using email sending macro to send emails to the

Re: $$Excel-Macros$$ Print only A3:K

Try : Sub test() Sheet1.PageSetup.PrintArea = "$A$3:$K$100" Sheet1.PrintOut , , 1 End Sub On Mon, Jun 6, 2011 at 3:01 PM, Daniel wrote: > A guess : > > Sub RangePrint() > Dim Rg As Range > With Sheets("Sheet1") >Set Rg = .Range(.[A3], .Cells(Rows.Count, "K").End(xlUp)) >Rg.PrintOut > En

Re: $$Excel-Macros$$ Help on macro to next empty worksheet to another workbook

Hi Try : Sub Test() Dim ws As Worksheet Sheets("Brands").Select Sheets("Brands").UsedRange.Copy Windows("Comparsheet.xls").Activate For Each ws In Worksheets If ws.UsedRange.Cells.Count < 1 Then ws.Delete Next ws Application.DisplayAlerts = True Set ws = Worksheets.Add(After:=Sheets(Sheets.Count)

Re: $$Excel-Macros$$ MAC Address

metimes called multihomed > > systems) therefore possess multiple unique MAC addresses. > > > > On May 28, 7:47 pm, Mahesh parab wrote: > >> Hi Rajesh > >> > >> dont know about this in details, other way you can enter ipconfig/all in > >> cmd >

Re: $$Excel-Macros$$ How to change Date format in to number

Hi Try Sub Format() Dim LR, i As Long LR = Range("A" & Rows.Count).End(xlUp).Row For i = LR To 2 Step -1 Range("A" & i).Offset(0, 1).Value = Range("A" & i).Value Range("A" & i).NumberFormat = "mmdd" Range("A" & i).Offset(0, 1).NumberFormat = "mmdd" Next i End Sub Thanks Mahesh On Sun, M

Re: $$Excel-Macros$$ Re: How to remove space in excel cell

Hi Prabhu Try '=TRIM(SUBSTITUTE(A2,CHAR(160),CHAR(32))) http://office.microsoft.com/en-us/excel-help/remove-spaces-from-the-beginning-and-end-of-a-cell-HP003056131.aspx Thanks Mahesh On Sun, May 29, 2011 at 9:55 AM, Prabhu wrote: > Hi Friends, > > I have attached a sheet, which contains sp

Re: $$Excel-Macros$$ MAC Address

reply. It shows two different results eg > 00.1C:10:F2:FO:C6 then 00:10:IF:08:15 > what does it mean will u explain it a little bit more. > > Reagards & Thanks > > Rajesh kainikkara > > On 5/27/11, Mahesh parab wrote: > > Hi Rajesh > > Try: > &

Re: $$Excel-Macros$$ MAC Address

Hi Rajesh Try: Sub test() Dim strComputer As String Dim objWMIService As Object Dim colAdapters As Object Dim objAdapter As Object strComputer = "." Set objWMIService = GetObject _ ("winmgmts:" & "!\\" & strComputer & "\root\cimv2") Set colAdapters = objWMIService.ExecQuery _ ("Select * from Win32_

Re: $$Excel-Macros$$ Formula required

Hi Vikarm check this link http://www.exceltip.com/st/Preventing_Duplicates_When_Entering_Data/886.html Thanks Mahesh On Mon, May 16, 2011 at 11:07 PM, vikram wrote: > Hi, > > > > Please help regarding formula for validation: > > > > If we enter any numeric value in particular column it does n

Re: $$Excel-Macros$$ Excel Macro Request!

Hi Try Sub fillUp() Dim lLastRow As Long Dim lCounter As Long Dim sThisCust As String lLastRow = Cells(Rows.Count, "B").End(xlUp).Row sThisCust = Cells(1, "B") For lCounter = 2 To lLastRow If Trim((Cells(lCounter, "B")) = "") Then Cells(lCounter, "B") = sThisCust Else sThisCust = Cells(lCounter, "

Re: $$Excel-Macros$$ Copy some files from a folder to another folder

Hi Ashish well done ! Appreciate your knowledge & help ! On Sat, May 14, 2011 at 12:19 PM, ashish koul wrote: > use move to move files and copy to copy the files > > > Public f As Object, d As Object > Sub Main() > > Dim Fso As Object > Set Fso = CreateObject("Scripting.FileSystemObject

Re: $$Excel-Macros$$ Rank the data

Hi Rajesh Try in F5 cell use below formula and drag it '=RANK(E5,$E$5:$E$14) On Fri, May 13, 2011 at 8:20 PM, Rajesh K R wrote: > Hi Experts, > > Pls find the attachment and tell me how to rank the rooms as per the > collection received from them. > > Regards > > Rajesh Kainikkara > > -- > > --

Re: $$Excel-Macros$$ Please help to make my project good.

Hi check whether attach file helps. On Wed, May 11, 2011 at 3:51 PM, karan 1237 wrote: > Respected Sirs/Mam, > > I need your help making my project good. Please find attachment. I will be > very obliged if someone can help me as earlier as possible. > > -- > Basically I have to do that

Re: $$Excel-Macros$$ help Please

Hi check attach, whether its as per u r requirement On Tue, May 3, 2011 at 8:29 PM, m7md.gmail wrote: > all, > please i need help to solve my problem > > if there cell i give it red color in another cell record the date whose i > colored 1st cell - if there any function make this > > > ** > * >

Re: $$Excel-Macros$$ HELP SECOND MAIL

Hi it would be great if u could explain some steps; it seems confusing, keep it as simple as you can; which is the first step, what are the 6 vlookups ? which workbook contain base data of your pivot. On Mon, May 2, 2011 at 10:07 AM, Prathima R wrote: > Hi Experts, > > > Due size constance i a

Re: $$Excel-Macros$$ Copy and paste

r help!! > Getting an error here: > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, > SkipBlanks _ >:=False, Transpose:=FalseOn May 1, 1:49 am, Mahesh parab > wrote: > > Hi Bob > > Try > > > > Sub copydata() > > 'Copy conten

Re: $$Excel-Macros$$ Copy and paste

Hi Bob Try Sub copydata() 'Copy contents from Sheet2 Columns A & B Sheets("Sheet2").Select Range("B1").End(xlDown).Select Temp1 = ActiveCell.Address Range("A1" & ":" & Temp1).Select Selection.Copy 'Paste contents on next available blank row on Sheet1 in Columns A & B Sheets("Sheet1").Select Range(

Re: $$Excel-Macros$$ Macro Help

Hi Try Sub Test() Last = Cells(Rows.Count, "A").End(xlUp).Row For i = Last To 1 Step -1 If IsError(Cells(i, "A")) Then Cells(i, "A").EntireRow.Delete End If Next i End Sub On Fri, Apr 15, 2011 at 3:24 PM, Prabhu wrote: > Hi, > > I want to delete particular rows only in my work sheet which cont

Re: $$Excel-Macros$$ querry

Thanks Siti, Ranjan for sharing useful information On Mon, Apr 11, 2011 at 1:25 PM, rajan verma wrote: > *"=_xlfn shows that the following Fuction exist in higher Version of excel > but not in Lower Version.. Exce Automatically Include =_xlfn .. when file > open in Lower Version of Excel,,* > >

Re: $$Excel-Macros$$ querry

Hi Nemi find attach On Fri, Apr 8, 2011 at 7:04 PM, Nemi Gandhi wrote: > Please reply. > > -- > Nemi Gandhi > 98204 92963 > > -- > > -- > Some important links for excel users: > 1. Follow us on TWITTER for tips tric

Re: $$Excel-Macros$$ Compare strings in cells, return differences

Well done Seti ! Appreciate your knowledge & Help in this forum On Fri, Apr 8, 2011 at 1:23 PM, SHC wrote: > Thanks STDEV(i) - very appreciated. > > > On Apr 8, 6:29 am, "STDEV(i)" wrote: > > *=TextDif(A2,B2)* > > > > TextDif is an UDF, like this: > > > > Function TextDif(S1 As String, S2 As

Re: $$Excel-Macros$$ Excel help

Hi Use =SUBSTITUTE(A1,"0","") On Sun, Apr 3, 2011 at 8:25 PM, bhanu prakash wrote: > Hi - need it help excel. Removing zeros in alpha numeric data, ex ,,07855a > need help in removing zeros in every cell. Regards ,- bhanu > > -- > > --

Re: $$Excel-Macros$$ Help in Excel

Hi this link will help u http://office.microsoft.com/en-us/excel-help/how-to-look-up-a-value-in-a-list-and-return-multiple-corresponding-values-HA001226038.aspx On Wed, Mar 9, 2011 at 4:07 PM, Rajiv Kumar wrote: > > Dear Sir. > > > Please Experts I have duplicates data from one column so how

  1   2   >