Else
MsgBox Range(rngValues).Value
End If
End If
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Pascal Baro
Sent: Jan/Sun/2012 09:44
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Need help in Excel-VBA
dguille...@gmail.com
From: Pascal Baro
Sent: Sunday, January 29, 2012 10:13 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Need help in Excel-VBA code to write function in
coding
Hi Ashish,
Please find another version. With this, I've worked out the fact your data
source is only
If
End If
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Ashish Bhalara
Sent: Jan/Thu/2012 12:30
To: excel-macros@googlegroups.com
Subject: Fwd: $$Excel-Macros$$ Need help in Excel-VBA code to write function
in coding
Dear
Dear experts,
I have lower level knowledge in excel vba, so please check below coding
which not working. I need the Msgbox when entered value match from another
sheet. The example sheet attached herewith. Please also know the basic
rules of how to use excel function in Visual Basic.
Kindly solve
Dear experts,
I have lower level knowledge in excel vba, so please check below coding
which not working. I need the Msgbox when entered value match from another
sheet. The example sheet attached herewith. Please also know the basic
rules of how to use excel function in Visual Basic.
If
Dear Ashish,
Please try below code...
Function check_value(rng As Range) As String
Dim cell, rng1 As Range
Set rng1 = Sheet2.Range(D4:D10)
For Each cell In rng1
If cell.Value = rng.Value Then
MsgBox Bill is made of this Chassis, vbInformation
End If
Exit Function
Next cell
End Function
see
Dear Ashish,
Excel 2007 File Type Extension
- xlsx - Excel http://en.wikipedia.org/wiki/Microsoft_Excel 2007 XML
Workbook
- xlsm - Excel 2007 XML Macro-Enabled Workbook
- xltx - Excel 2007 XML Template
- xltm - Excel 2007 XML Macro-Enabled Template
- xlsb - Excel 2007 binary
Dear Ashish,
Please ignore previous mail..use it
Function check_value(rng As Range) As String
Dim cell, rng1 As Range
Set rng1 = Sheet2.Range(D4:D10)
For Each cell In rng1
If cell.Value = rng.Value Then
MsgBox Bill is made of this Chassis, vbInformation
Exit Function
End If
Next cell
End