Search results

Try this... =SUM(I3:INDEX(I3:U3,1,SMALL(IF(ISNUMBER(I3:U3),COLUMN(I3:U3)+1-MIN(COLUMN(I3:U3))),6))) With Ctrl + shift + Enter

Hi Nader, Check this one.. YES : VBA, couse you have uploaded a XLSM file.. I Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Deb With Application .EnableEvents = False .ScreenUpdating = False End With Dim PrimaryCheckRange As Range, ValidateRange As Range Set...

WOW.. thats also a good approach.. anyway.. try this too.. Sub Chandoo20472() With Sheets("Age") lr = .Range("A" & .Rows.Count).End(xlUp).Row With .Range("B2:B" & lr) .Value = _ "=VLOOKUP(C2," & Sheets("FindReplace").Range("A1").CurrentRegion.Address(1, 1, , 1) & ",2,0)" .Value =...

Find and Replace is works for.. Find something and then REPLACE the same thing , in the same area.. In case of Find something, and INSERT any other thing in, in some other area.. you can use.. Logic like VLOOKUP, SELECT case logic.. Let us know, if you need help to create the logic..

Glad that it works for you..

Well done Paul.. I am also a big fan of dashboard king "chandoo".. However, irrespective of knowing, your KPI's preference.. I would like to suggest, Alignment and color contrast play a vital role in Dashboard..

Hi rongda, Welcome to the forum.. Yes.. in case of VBA, using Dependent Data Validation techniques, and after seelction, setting the .CurrentPage is a option, however.. If you have 2010 + version of excel, you can use "Slicer", where, you can set the setting parameter .. "Hide Item with...

=MID(A1,MAX(1,LEN(A1)-1),1) Just a validation, in case of len = 1

Hi Vijay, Array works great with EXCEL-VBA, but it really hard to digest.. so Dont use array, if you don't understand. check this one.. Sub ConvertRangeToColumnNonArray() DEB = Range("a1").CurrentRegion For I = 1 To UBound(DEB, 2) + 1 ROY = ROY & Chr(1) &...

Exactly the same way you have to apply the setting.. that you have decided not to come again the same warning message. Click the File tab. The Microsoft Office Backstage view appears. In the Backstage view, under Help, click Options. The Options dialog appears. Click Trust Center, then Trust...

Hi Prasoonj, Please correct me If I am wrong a UN-NAMMED script file (VBS), which you want to open, may be in Notepad (or Visual Studio) then in anywhere in the file, (not module / procedure) you want to PASTE the provided range's (using last cell only) > using Input box > in another...

Hi mgoebel97 Welcome to the forum.. Please upload your sample file.. You can not pass a date to a range section, It its a named range we have to trick a bit, sample file greatly appreciated.

Hi.. etecsmedia Not sure, but I think, you are looking for this.. http://datapigtechnologies.com/blog/index.php/add-a-dropbox-account-to-your-office-2013-save-as-screen/

Hi Ratan, How about a more simpler function.. :) =(AG8*24)/AH8 PS : convert the Time format to Number.. you can see total Working hours are adding and showing total in days....

Hi Satyaprakash!, I just googled and found a Good Book.. requesting you to re-check and re-copy the same, hope will resolve the problem...

Hi .. Can you please check this one too.. https://dl.dropboxusercontent.com/u/78831150/Excel/FilterEvent.xlsm Private Sub Worksheet_Calculate() FilterEvent End Sub Sub FilterEvent() Dim AllN As Boolean With Range("A1").CurrentRegion .Columns.Hidden = False If ActiveSheet.FilterMode...

Your setup.. helps me a lot, atleast creating dynamic list for WeekEnd Date.. Check the attached.. I have change a lil bit in Output Structure.. Although its not fully matching with your expected output.. but.. may I am missing some part.. Check the attached...

Just a KISS-metrics.. :) Enter the starting Work day of month. Drag downward using RIGHT CLICK.. From the pop-up select.. Fill Weekdays

Try something like.. Application.GetSaveAsFilename("VBP PRMC 2013-MM.pdf","PDF Files (*.pdf), *.pdf")

Try something like this... Sub DynVola() ' ' DynVola Macro ' ' Dim strRng As Long strRng = Range("A" & Rows.Count).End(xlUp).Row Sheets("Sheet2").Range("F3:I3").Select Selection.AutoFill Destination:=Sheets("Sheet2").Range("F3:I" & strRng) Sheets("Sheet2").Range("F3:I" &...

Press F5.. it will pop up.. Go To Window, there you can find the SPECIAL button.

Hi Guitarman, Excel has a very usefull and rarely used option.. try this.. Select both Rows.. Now Go to > Special > Row Difference. Like below..

Thanks @Swapnil .. for your helping hands..

Hi Manu.. Just a small twist in the code. check this one.. Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error GoTo Deb Select Case Target.Address Case "$B$1" Range("J2:U13").Cells([MATCH($A$1,$I$2:$I$13,false)]...

the query is moving toward VBA section.. Is this acceptable.. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then Application.EnableEvents = False On Error GoTo Deb Range("J2:U13").Cells([MATCH($A$1,$I$2:$I$13,false)], [MATCH($A$2,J1:U1,false)]) =...