ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   VLookup (https://www.excelbanter.com/excel-discussion-misc-queries/127435-vlookup.html)

rr

VLookup
 
I have used the VLookup to pull the data. The data shows up with my commend
and highlight. Somehow, it stops. VLookup only pulls the data. Help.

bigwheel

VLookup
 
I don't know if this is what you're looking for but try
http://www.psych.auckland.ac.nz/psyc...s/AppForms.htm

"rr" wrote:

I have used the VLookup to pull the data. The data shows up with my commend
and highlight. Somehow, it stops. VLookup only pulls the data. Help.


bigwheel

VLookup
 
Sorry, got posted to the wrong place. Your question needs a bit more
information. How is your data stored? What is the formula you are using?

"bigwheel" wrote:

I don't know if this is what you're looking for but try
http://www.psych.auckland.ac.nz/psyc...s/AppForms.htm

"rr" wrote:

I have used the VLookup to pull the data. The data shows up with my commend
and highlight. Somehow, it stops. VLookup only pulls the data. Help.


Dave Peterson

VLookup
 
Formulas retrieve values--not comments and not formats.

rr wrote:

I have used the VLookup to pull the data. The data shows up with my commend
and highlight. Somehow, it stops. VLookup only pulls the data. Help.


--

Dave Peterson

Dave Peterson

VLookup
 
Actually, you could use a UDF to retrieve the value and comment:

Option Explicit
Function VlookupComment(myVal As Variant, myTable As Range, _
myColumn As Long, myBoolean As Boolean) As Variant

Application.Volatile True

Dim res As Variant 'could be an error
Dim myLookupCell As Range

With Application.Caller
If .Comment Is Nothing Then
'do nothing
Else
.Comment.Delete
End If
end with

res = Application.Match(myVal, myTable.Columns(1), myBoolean)
If IsError(res) Then
VlookupComment = "Not Found"
Else
Set myLookupCell = myTable.Columns(myColumn).Cells(1)(res)
VlookupComment = myLookupCell.Value
With Application.Caller
If myLookupCell.Comment Is Nothing Then
'no comment, do nothing
Else
.AddComment Text:=myLookupCell.Comment.Text
End If
End With
End If

End Function

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Short course:

Open your workbook.
Hit alt-f11 to get to the VBE (where macros/UDF's live)
hit ctrl-R to view the project explorer
Find your workbook.
should look like: VBAProject (yourfilename.xls)

right click on the project name
Insert, then Module
You should see the code window pop up on the right hand side

Paste the code in there.

Now go back to excel.
Into a test cell and type:
=VlookupComment(a1, 'sheet 33'!a:e, 5, false)

rr wrote:

I have used the VLookup to pull the data. The data shows up with my commend
and highlight. Somehow, it stops. VLookup only pulls the data. Help.


--

Dave Peterson

rr

VLookup
 
Thank you very much. It has been a while for me to go into those old
familiar codings. I will try them. :)

rr

"Dave Peterson" wrote:

Actually, you could use a UDF to retrieve the value and comment:

Option Explicit
Function VlookupComment(myVal As Variant, myTable As Range, _
myColumn As Long, myBoolean As Boolean) As Variant

Application.Volatile True

Dim res As Variant 'could be an error
Dim myLookupCell As Range

With Application.Caller
If .Comment Is Nothing Then
'do nothing
Else
.Comment.Delete
End If
end with

res = Application.Match(myVal, myTable.Columns(1), myBoolean)
If IsError(res) Then
VlookupComment = "Not Found"
Else
Set myLookupCell = myTable.Columns(myColumn).Cells(1)(res)
VlookupComment = myLookupCell.Value
With Application.Caller
If myLookupCell.Comment Is Nothing Then
'no comment, do nothing
Else
.AddComment Text:=myLookupCell.Comment.Text
End If
End With
End If

End Function

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Short course:

Open your workbook.
Hit alt-f11 to get to the VBE (where macros/UDF's live)
hit ctrl-R to view the project explorer
Find your workbook.
should look like: VBAProject (yourfilename.xls)

right click on the project name
Insert, then Module
You should see the code window pop up on the right hand side

Paste the code in there.

Now go back to excel.
Into a test cell and type:
=VlookupComment(a1, 'sheet 33'!a:e, 5, false)

rr wrote:

I have used the VLookup to pull the data. The data shows up with my commend
and highlight. Somehow, it stops. VLookup only pulls the data. Help.


--

Dave Peterson


rr

VLookup
 
I pull the data from system in one page & gather logged verify data in second
page. I reconcile a summary & commented in the second page. The formula,
IF(ISERROR(VLOOKUP($C225,Log!$A$1:$D$200,3,0)),"", VLOOKUP($C225,Log!$A$1:$D$200,3,0)),
is used to pull the second page data to match with the first page system data
for record completeness. Therefore, the comment becomes very important.


"bigwheel" wrote:

Sorry, got posted to the wrong place. Your question needs a bit more
information. How is your data stored? What is the formula you are using?

"bigwheel" wrote:

I don't know if this is what you're looking for but try
http://www.psych.auckland.ac.nz/psyc...s/AppForms.htm

"rr" wrote:

I have used the VLookup to pull the data. The data shows up with my commend
and highlight. Somehow, it stops. VLookup only pulls the data. Help.



All times are GMT +1. The time now is 11:20 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com