Search results

Please attach Sample file

Pls Provide Sample workbook

Hi Ninjas, Pls help. I have written a macro, which will extract mails from my OUTLOOK when we run the macro. I want to schedule the macro at 10 am, 1 pm and 4 pm, to avoid manual click(Run Button) But i am not able to schedule it, pls help. Thanks, Hareesh

Hi Try this Sub SelRow() Dim i As Integer i = ActiveCell.Interior.ColorIndex ActiveCell.EntireRow.Interior.ColorIndex = 15 ActiveCell.Interior.ColorIndex = i End Sub

Hi All pls help I want to extract only forwarded mails from outlook inbox to excel sheet using vba code I am able to extract all mails, but I want only forwarded mails to extract Pls help

https://spreadsheeto.com/recalculate-and-refresh-formulas/

Hi your file not opening, pls attach another file

Hi, Check the attached sheet

Hi, Pls check the attached Sheet ** if you want "All" in "C2 to G2", leave that cell as blank in the attached sheet i left D2 as Blank that means All

Hi, use following formula (ctrl+shift+enter) and drag to down I2 =IFERROR(INDEX($A$1:$G$17,SMALL(IF($G$2:$G$17<>"",ROW($G$2:$G$17)),ROW(1:1)),1),"") J2 =IFERROR(INDEX($A$1:$G$17,SMALL(IF($G$2:$G$17<>"",ROW($G$2:$G$17)),ROW(1:1)),7),"")

Hi check the attachment

Hi, try following code, it will move all worksheets except sheet1 to new workbook and will save with name Mybook on desktop Sub MoveSheets() Dim wb As Workbook Dim ws As Worksheet Application.ScreenUpdating = False Set wb = Workbooks.Add For Each ws In...

Hi, one of the solution is using OFFSET formula ***here names are fixed and total 12 names in OFFSET formula for rows you can use 0,12,24,36,48... for Jan,Feb,Mar,Apr,May... Check attached sheet (sheet1 H19:O31)

try following code Sub srchdate1() Dim dDate As Date Dim str As String Dim mycell As Variant str = InputBox("EnterDateHere") dDate = CDate(str) mycell = Range("V2:V17000").Find(dDate).Address Range(mycell).Select End Sub

@Belleke i wrote clearly what my code will do

Hi following code will select current date in range("V2:V17000") Sub srchdate() Dim mycell As Variant mycell = Range("V2:V17000").Find(Date).Address Range(mycell).Select End Sub

Sub DefineRng() Dim rng2 As Range Set rng2 = Range("E1").End(xlDown).Offset(3, -1).Resize(5, 3) ThisWorkbook.Names.Add Name:="My2ndRng", RefersTo:=rng2 Range("My2ndRng").Formula = Range("My2ndRng").Value End Sub

Thanks for the tip

Hi with the help of Marc L Tip Sub DefineRng() Dim rng2 As Range Set rng2 = Range("E1").End(xlDown).Offset(3, -1).Resize(5, 3) rng2.Formula = rng2.Value End Sub

In Cell A2 use following =TODAY()

Another one, with same result Sub loopColor() Dim c As Range For Each c In Range("A1:B10") If c.Offset(0, 2).Value = "" Then c.Interior.ColorIndex = 16 Next c End Sub

Hi, First Unhide the Column H and drag formula upto H10006 then change rules in CF dialog from =$A$5:$G$16 to =$A$5:$G$10006

Hi Check the attached workbook

Hi pls ignore earlier sheet and use this sheet

Hi Check the attached sheet