In the following code mail will be generated if the cell value is grater than 200.
But i need to send mail if the cell value is less than 200.  

Option Explicit

Private Sub Worksheet_Calculate()
    Dim FormulaRange As Range
    Dim NotSentMsg As String
    Dim MyMsg As String
    Dim SentMsg As String
    Dim MyLimit As Double

    NotSentMsg = "Not Sent"
    SentMsg = "Sent"

    'Above the MyLimit value it will run the macro
    MyLimit = 200

    'Set the range with the Formula that you want to check
    Set FormulaRange = Me.Range("B8")

    On Error GoTo EndMacro:
    For Each FormulaCell In FormulaRange.Cells
        With FormulaCell
            If IsNumeric(.Value) = False Then
                MyMsg = "Not numeric"
            Else
                If .Value > MyLimit Then
                    MyMsg = SentMsg
                    If .Offset(0, 1).Value = NotSentMsg Then
                        Call Mail_with_outlook1
                    End If
                Else
                    MyMsg = NotSentMsg
                End If
            End If
            Application.EnableEvents = False
            .Offset(0, 1).Value = MyMsg
            Application.EnableEvents = True
        End With
    Next FormulaCell

ExitMacro:
    Exit Sub

EndMacro:
    Application.EnableEvents = True

    MsgBox "Some Error occurred." _
         & vbLf & Err.Number _
         & vbLf & Err.Description

End Sub

I want to enable the gridlines w/o enabling the sheet.  Do I have to activate the sheet before I update the gridline property ?

'this works.
    ThisWorkbook.Sheets(1).Activate
    ActiveWindow.DisplayGridlines = True

'why can't I just do this ?
ThisWorkbook.Sheets(1).DisplayGridlines = True

What I'm trying to do is to attach a macro to a button (which I can do) that changes the contents of a range of cells based on whether or not they contain numbers.  Like ticking off a to do list, in a sense.  The cells in range D11 through W15 (5 rows of 20) are each numbered 1 through 100.  Upon clicking the button, I would like to make a script that checks the first cell is still a number and if so, change the cell value to "X" instead.

I have no experience with java but plenty with VBA and am now in a new job where I can only use google sheets instead of excel.  I can imagine ways to do this with a for next loop or a while wend loop but I don't even know the syntax for java, let alone what commands and functions it has to do this.  Thanks, experts!

I had this question after viewing Nslookup in Excel.

I have domain name in A1 and the formula "=GetStringFromIPAddress(GetIPAddressFromHostName(A1))" in B1, using the macro found above along with the authors update.  However no matter what domain I use I get 0.0.0.0 instead of the IP.  Any help would be appreciated.

How to add the texture in rows?

Trying to convert Excel, with Macros, to Google sheets.

I can’t find a GoalSeek Equivalent in Sheets .

Sub Calculate()

Sheets("Amort").Range("N22").Offset(rowOffset:=Sheets("Amort").Range("J5").Value, columnOffset:=0).GoalSeek Goal:=0, ChangingCell:=Sheets("Amort").Range("P10")

Sheets("Amort").Range("W22").Offset(rowOffset:=Sheets("Amort").Range("J5").Value, columnOffset:=0).GoalSeek Goal:=0, ChangingCell:=Sheets("Amort").Range("P12")

Sheets("Amort").Range("AY22").Offset(rowOffset:=Sheets("Amort").Range("J5").Value, columnOffset:=0).GoalSeek Goal:=0, ChangingCell:=Sheets("Amort").Range("P14")

End Sub

2n convert 0 to
2n_convert_0_to.xlsm

The worksheet contains column A that lists a name (A2) and under that name, 11 cells containing labels. Column B lists corresponding data on the same row, for each label in A.
In the original worksheet, this is repeated a few hundred times.
In the example, the 11 cells have been manually transposed to the same row as the "Name" label, starting from Column E, and extending to Column O.
And the data from column B has been manually transposed across these columns, on to the same row as the name.

Required: a script or formula to do this for several hundred entries.
Marina-listEE-request.xlsx

Hello there, i have a macro that copies content from Word and organizes them in Excel. The macro copies the text in the shaded cell in the Word file, and then it copies the text in the cell beside it to the right. My problem is that it can't copy the displayed text in a Drop Down Form Field, some of which are in the cells that are beside the shaded cells. I tried to implement this code:

Dim strText As String
Dim ix As Integer

ix = objDoc.FormFields("Dropdown1").DropDown.Value
strText = objDoc.FormFields("Dropdown1").DropDown.ListEntries(ix).Name

Select all Open in new window

On to the macro:

Option Explicit

Sub WordToExcel()

    Dim sh As Excel.Worksheet
    Dim strFolder As String
    Dim strFile As String
    Dim strFullName As String
    Dim r As Integer
    
    Set sh = ThisWorkbook.Worksheets("Sheet1")
    'Insert Folder Link
    strFolder = "C:\MyFolder\"
    strFile = Dir(strFolder & "*.doc*")
    r = 2
    Do Until strFile = ""
        strFullName = strFolder & strFile
        CopyTableFromDocx strFullName, sh, r
        strFile = Dir()
        r = r + 1
    Loop

End Sub

Sub CopyTableFromDocx(strMSWordFileName As String, sh As Worksheet, r As Integer)

    Dim objDoc As Word.Document
    'Dim lngTableIndex As Long
    Dim objWordTable As Word.Table
    Dim objWordCell As Word.cell
    Dim strLabel As String
    Dim strData As String
    Const mtrDsc As String = "? "
    Dim c As Integer
    Dim t As Integer
    Dim bFound As Boolean
    'Dim lngRowIndex As Long, 

Select all Open in new window

…

I have a column with various names on column A1. I want to put a formula on column B1 that looks at column A1 and if A1 has the words "Dorm" return the value "Dorm" else leave blank. Below is an example of what is con column A1 and A2. Do you have an Excel formula that can do this?

8858T17 - 2017
8858DORM

Looking for a Powershell solution to convert all Excel documents in a specific folder to CSV files.  Also it needs to convert a specific worksheet within all the Excel documents.  All the Excel documents are formatted exactly the same.  I found this solution but it does not convert a specific worksheet (see below).  It only converts the last opened worksheet.  

https://gallery.technet.microsoft.com/office/How-to-convert-Excel-xlsx-d9521619#content

Anyone have this Powershell solution?  I prefer a solution that does not require Excel installed but any solution would be helpful.