ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Very basic question... I MUST be having a brain fart.... (https://www.excelbanter.com/excel-programming/283688-very-basic-question-i-must-having-brain-fart.html)

Phillips

Very basic question... I MUST be having a brain fart....
 
I want to change the content of a string with a user defined function

example:
Cell A1 contains "[firstname], on [date], your order was shipped. [exit1]"
Cell A7 contains "[firstname], Thanks for your order."
ActiveCell.Offset(0, 1) = "Bob"
ActiveCell.Offset(0, 2) = "11/25/2003"

I want to get back "Bob, on 11/25/2003, your order was shipped. Bob, Thanks
for your order."

When I try the below, I get an empty result. When I put a msgbox at the
beginning and the end of the function, it has what I would expect it to, but
nothing gets returned...

How do I pass the value to and get a value from a user defined function????
Where in the helpfile can I find this info?

in my code, I would like to have something like:
stringToExpand = ThisWorkbook.Sheets("Bioler").Range("A1").Value
response = boilerplate( stringToExpand)
msgbox response
--------------------------
function boilerplate
tester = 0
Do While InStr(oldscript, "[") 0
boilerplate = Replace(boilerplate, "[firstname]", ActiveCell.Offset(0, 1))
boilerplate= Replace(boilerplate, "[date]", ActiveCell.Offset(0, 2)))
boilerplate = Replace(boilerplate, "[exit1]",
ThisWorkbook.Sheets("Bioler").Range("A7").Value)
tester = tester + 1
If tester 99 Then
Exit Do
End If
Loop
End Function



Jim Rech

Very basic question... I MUST be having a brain fart....
 
UDFs cannot affect other cells. All they can do is return a result to the
cell they are in, just like Excel worksheet functions.

--
Jim Rech
Excel MVP




All times are GMT +1. The time now is 06:16 AM.

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