EXCEL VBA replacing cell's content - vba

Question

I'd like to replace a cell's text in case a condition is fullfilled, but the data is in another file. How can I do it?
I used something like this:
Sub test()
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook
Set targetWorkbook = Application.ActiveWorkbook
filter = "Text files (*.xlsx),*.xlsx"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)
Set customerWorkbook = Application.Workbooks.Open(customerFilename)
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets(1)
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets(1)
If targetSheet.Range("Q19", "BL23").Text = "OK" Then
sourceSheet.Range("GB38", "GH38").Text = "Agreed"
End If
End Sub

Answer 1

You need to:
test Q19 and BL23 separately
use .Value rather than .Text since .Text is read-only
EDIT#1:
Here is the reason I suggest testing the cells separately. Consider:
Sub qwerty()
MsgBox Range("C3,A1") = "X"
End Sub
On an empty worksheet, we get FalseIf we set C3 to an X we get TrueIf we clear C3 and set A1 to an X we get False!
It turns out that for a dis-joint range, only the first element is examined........the others are ignored!

Answer 2

here an example how you can achieve replacement by condition
'''''
If targetSheet.[Q19, BL23].text= "ok" Then
sourceSheet.Cells.Replace what:="Search string", replacement:="Replacement String"
End If
'''''
the cell's content doesn't change to "Agreed"
here your updated code, but this is not replacement as written in title
''''''
If targetSheet.[Q19, BL23].text = "OK" Then
sourceSheet.[GB38, GH38].Value = "Agreed"
End If
'''''
for verification of the multiple range content use .text, but to insert value in multiple range you need to use .value
test in screenshots below
wrong way of the multiple range verification using .value
wrong way of the multiple range verification without specified range property
right way of the multiple range verification using .text

Answer 3

Try adding
customerWorkbook.Close customerWorkbook.Saved = True
before your End Sub statement. That should fix it.

Answer 4

Got it! Thanks for the support
Sub test()
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook
Set targetWorkbook = Application.ActiveWorkbook
filter = "Text files (*.xlsx),*.xlsx"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)
Set customerWorkbook = Application.Workbooks.Open(customerFilename)
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets(1)
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets(1)
Dim x As String
If sourceSheet.Range("Q19").Text = "OK" Then
x = "Agreed"
End If
targetSheet.Range("GB38", "GH38") = x
End Sub