expand data selection range

[dragonfire33]

What line should I add to extend the range to "g16: m25" please any help would be very useful

Private Sub Worksheet_Change(ByVal Target As Range)
Dim uF&, i&, nBusca%, Celda As Range
    If Not Intersect(Target, Columns(4)) Is Nothing Then
        Range("G3:G12,I3:I12,K3:K12,M3:M12").Interior.Color = vbWhite
        For i = 0 To 3
            nBusca = Target.Offset(0, i - 3)
            Select Case i
                Case 0
                    Set Celda = Range("G3:G12").Find(nBusca, , , xlWhole)
                Case 1
                    Set Celda = Range("I3:I12").Find(nBusca, , , xlWhole)
                Case 2
                    Set Celda = Range("K3:K12").Find(nBusca, , , xlWhole)
                Case 3
                    Set Celda = Range("M3:M12").Find(nBusca, , , xlWhole)
            
               
            End Select
            If Not Celda Is Nothing Then
                Celda.Interior.Color = vbRed
            End If
        Next i
        Range("G2").Activate
    End If
End Sub

 

[My Aswer Is This]

Tell me what is this script trying to do?

 

[My Aswer Is This]

To make the change your wanting change your code to this:

Range("G16:M25").Interior.Color = vbWhite

But then in your previous post you were searching every other column.
If that's what you really want to do you would have to modify other parts of your code also

 

[dragonfire33]

Para realizar el cambio que desea, cambie el código a este:

 Rango ("G16:M25"). Interior.Color = vbWhite

Pero luego, en tu publicación anterior, estabas buscando en todas las demás columnas.
Si eso es lo que realmente quieres hacer, también tendrías que modificar otras partes de tu código.

la idea es resaltar el número entre las columnas abcd de las dos tablas

 

[dragonfire33]

Para realizar el cambio que desea, cambie el código a este:

 Rango ("G16:M25"). Interior.Color = vbWhite

Pero luego, en tu publicación anterior, estabas buscando en todas las demás columnas.
Si eso es lo que realmente quieres hacer, también tendrías que modificar otras partes de tu código.

¿cómo puedo modificarlo para que destaque en las otras columnas?

 

[My Aswer Is This]

I'm only able to read English. So not sure what your asking for

 

[Joe4]

If you wish to post your question in your native language, please note that there is a "Questions in Other Languages" forum found here:

Questions in Other Languages

Ask any Excel questions in your native language (questions in languages other than English only, please).

www.mrexcel.com

 

[dragonfire33]

the idea is to color the cells in the tables according to the abcd columns

 

[My Aswer Is This]

OK so I showed you how to change the range so what else do you need?

 

[dragonfire33]

OK, así que te mostré cómo cambiar el rango, así que ¿qué más necesitas?

como sería el código completo ya que cambiar el rango no funciona para mí