Type mismatch on do until formula

[ruzanovsky]

Hello,

The code below gives Type Mismatch 13 error:

Range("F1").Select    Do Until Selection.Value = Sheets("Cortes Proporcionais").Range("L4").Value
        Selection.End(xlToRight).Select

Basically I want the code to press right until it hits the cell equal to Sheets("Cortes Proporcionais").Range("L4").Value

F1 is a blank cell,
G1:M1 are merged cells with the formula =UPPER(TEXT(TODAY();"MMMM"))
N1:T1 are merged cells with the formula =UPPER(TEXT(EDATE(TODAY();1);"MMMM"))
U1:Z1 are merged cells with the formula =UPPER(TEXT(EDATE(TODAY();2);"MMMM")) and
AA1:AF1 are merged cells with the formula =UPPER(TEXT(EDATE(TODAY();3);"MMMM"))

Sheets("Cortes Proporcionais").Range("L4").Value is equal to the month to be used "March", "April", "May" or "June"

Why is the VBA giving type mismatch error? Both cells are string types. I assume it is due to the merged cells?

 

[Joe4]

Do NOT use merged cells!!! They are the devil, and cause all sorts of problems, especially with VBA!
The good news is that you can get the same visual effect without all the issue caused by them by using the "Center Across Selection" formatting option instead.
I suggest making that change and trying again.
See here for details: https://www.atlaspm.com/toms-tutori...er-across-selection-instead-of-merging-cells/

 

[DanteAmor]

Try this

    Range("G1").Select
    Do Until Selection.Cells(1, 1).Value = Sheets("Cortes Proporcionais").Range("L4").Value 
        Selection.End(xlToRight).Select
    Loop

But if the evaluator of the cells is never equal to L4 then the loop enters an endless cycle

Then:

    Range("g1").Select
    Do Until Selection.Cells(1, 1).Value = Sheets("Cortes Proporcionais").Range("L4").Value Or Selection.Cells(1, 1).Value = ""
        Selection.End(xlToRight).Select
    Loop

Or this:

    Dim i As Long
    For i = Columns("G").Column To Cells(1, Columns.Count).End(xlToLeft).Column
        Cells(1, i).Select
        If Cells(1, i).Value = Sheets("Cortes Proporcionais").Range("L4").Value Then Exit For
    Next

Why do you want to select the cell, do you want the data or only know the column where the match is found?