Run-time error '13' with drop-down list

[Caribou2]

Hello,

I succeed to have if A1 not empty then B1 = A1 but if at the same time B1 = not empty, then do not replace B1 by A1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") And Range("B1") = "" Then
Range("B1") = [A1]
End If
End Sub

The problem is that it doesn't work when cells A1 and B1 include drop-down lists with letter and number : D4, B3, F2... (but it works if only numbers : 22, 56...)

I have : "Run-time error '13' type mismatch"

Is-it possible to fix it ?

Thanks a lot for the help

[AB33]

Please Login or Register  to view this content.

[Caribou2]

Thank you. I got no more the error but the code doesn't work. Nothing happens in B1 when A1 is not empty.
Did I miss something ?

[Caribou2]

Hello,

nobody to help ?

I really need to fix this error.

Thank you all

[Chris 53]

Please Login or Register  to view this content.

[AB33]

Chris,
What is the triggering target(Column, Row, cell address)?
What need to be changed in order for the code to run?
For.eg

Please Login or Register  to view this content.

Means you triggering column is 2, or B.

OR

Please Login or Register  to view this content.

trigger
Means you triggering column is E
I think there are many parameters missing from your code

[Chris 53]

Thanks AB33

I think this is down to my incomplete understanding of the required parameters. I've been using spreadsheets for a few years but have only recently become aware things like Worksheet_selectionChange. As with most things I've found in excel it just opens up so many aspects of excel that I wasn't aware of.

As I understand the original post this should only work when A1 or B1 is changed, so would that be

Please Login or Register  to view this content.

When I tried my incomplete version it worked, so does limiting the target make it more elegant and faster, or is it just a nicety?

Still learning.

Chris

[Caribou2]

Many thanks guys. With your solution Chris it works perfectly. I suppose that with AB33 proposal, I should be able to extend the solution to more than one cell wich would be very cool.

I mean if A1 not empty then B1 and B2... = A1 but if at the same time B1 = not empty or B2 = not empty..., then do not replace B1 or B2 or... by A1.

But I have more to learn than Chris and I'm not able to use your proposal to extend Chris's solution to more than one cell.

For know, I just repeat Chris's solution with the other cell B2. Not very elegant but it works. For sure, not the good solution if there are more cells to do, B1 to B50 for example...

Anyway, it works and you make a happy guy %)