Search results

try this =IF(COUNTIFS(Sheet!I:I,D4,Sheet!G:G,"<" &TODAY())=0,COUNTIFS(Sheet!I:I,D4,Sheet!G:G,"<"&TODAY(),Sheet!H:H,"<"&TODAY()),COUNTIFS(Sheet!I:I,D4,Sheet!G:G,"<" &TODAY()))

give us more details example.

Dear Friends, I have data like having 500 cells. I want to create 500 dictionaries with names on basis of value of coloumn B. Refer below example I want to create dictionary with name Mumbai, pune, Delhi .. So on.. A B 1 MUMBAI 2 PUNE 3 DELHI Pls...

but I afraid this option is not available for control which placed on worksheets

thanks for your prompt help...this is exactly what I was looking for

Hello Friends, please guide me to create help msgbox on userform like the screenshot I have attached with this post.

try this Private Sub CommandButton1_Click() tm = Cells(60000, 1).End(xlUp).Row For Each ws In ThisWorkbook.Worksheets ws.Activate For i = 2 To tm s = 0 For Each x In Range(Cells(1, 1), Cells(1, 22)) For Each y In Range(Cells(i, 1), Cells(i, 22)) If x = y Then s = s + 1 y.Font.ColorIndex = 3...

you want to apply the same macro for each worksheets? Try this . Private Sub CommandButton1_Click() dim ws as worksheets tm = Cells(60000, 1).End(xlUp).Row For Each ws In ThisWorkbook.Worksheets For i = 2 To tm s = 0 For Each x In Range(Cells(1, 1), Cells(1, 22)) For Each y In Range(Cells(i...

many thanks.

this process is part of my a vba program. So it would be great if anyone give me basic idea to do this by VBA.

This is because folder with same name have been already there...get rid of that folder or change folder name and run.

Hi Friends, Please help me to get vba solution. Please refer attached file for more details.

Sub test() Set c = CreateObject("Scripting.FileSystemObject") f = "C:\NewF" 'Change folder name and path here If c.FolderExists(f) Then MsgBox "Folder With Same Name is Already Exists There" Else c.CreateFolder f MsgBox "Folder Created" End If End Sub [code/]

check this file....press run button which was placed on output sheet....

Please specify what problem you are facing...or post sample file with your coding.

Try this macro..... Sub test() Dim ws_in, ws_out As Worksheet Set ws_in = Worksheets("In-Put") Set ws_out = Worksheets("Output") c_in = ws_in.Cells(ws_in.Cells.Rows.Count, 1).End(xlUp).Row c_out = ws_out.Cells(ws_out.Cells.Rows.Count, 1).End(xlUp).Row For i = 3 To c_out If ws_out.Range("c" &...

just for fun...another solution =SUMPRODUCT(($C$5:$C$10=C17)*($D$5:$D$10<D17)*($E$5:$E$10>D17),$F$5:$F$10)

You mind posting this file here?.....let us see the same happening here

Your duty starting time and ending time is not fixed...Running all data where many dates include ends up wrong output. With little modification in this macro you can get desired output by running only single shift data.

Here it is VBA based solution.

Try this make assure to change path for below line ActiveWorkbook.SaveAs "C:\anku\tmp.csv"

you can try below macro. Sub sbOpeningAFolder() Dim FSO Dim sFolder As String sFolder = "C:\bulk" Set FSO = CreateObject("Scripting.FileSystemObject") Call Shell("explorer.exe " & sFolder, vbNormalFocus) End Sub

Sub mytest() Dim mydic As New Dictionary Dim c As Range Set c = Range("a1").CurrentRegion arr = c For i = 1 To UBound(arr, 1) If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1) End If If mydic.Exists(arr(i, 1)) = True Then mydic(arr(i, 1)) =...

I spotted above error in your formula...maybe this is the reason this solution doesn't work. Get rid of this error first and try....

try this.. 1. remove this formula. 2. clear cell format. 3. cover your formula in T function. like below. =T(HYPERLINK(IF($A3="","",IF(INDEX(DB_List,VLOOKUP($A3,DB_RowIndices,2,FALSE),K$1)="","",HYPERLINK("mailto:" &...