VBA Mettre en surbrillance des cellules lorsqu'une autre valeur est présente

Question

Je cherche à mettre en évidence certaines cellules dans une feuille de calcul lorsqu'une valeur est entrée dans une colonne différente. Je réalise que cela peut être fait avec un formatage conditionnel mais, en raison des circonstances au sein de l'entreprise, je dois utiliser VBA. (La feuille de calcul est passé sur un autre programme qui ne peut pas lire la mise en forme conditionnelle)

Je suis en train de mettre en évidence 11 colonnes différentes dans ma gamme de valeurs chaque fois RIEN est entré dans la colonne L. Par exemple, lorsqu'une date entré dans L2, puis C2, J2, K2, etc. sont surlignés en jaune.

Voici ce que j'ai trouvé ... malheureusement, quand je lance la macro, rien ne se passe. Je le vois fonctionner, mais je n'obtiens aucun résultat - pas même un message d'erreur. Merci d'avance pour le temps que vous prenez pour m'aider!

Dim rng As Range, r As Range 

Set wb = ThisWorkbook 
Set sht1 = wb.Sheets("From GIS") 
Set sht2 = wb.Sheets("To MapCall") 

Set rng = Intersect(sht2.UsedRange, Range("L:L")).Cells 


For Each r In rng 
    If r.Value = "" Then 
     Cells(r.Row + 1, "C,J,K,Q,AI,AV,AW,AX,AY,AZ,BR").Interior.Color = RGB(255, 255, 0) 

    End If 
Next r 

Answer 1

S'il vous plaît donner à ce essayer et changer r.Value = « » à r.Value <> « » que vous souhaitez appliquer une couleur si quelque chose est entré dans la plage pas quand il est vide. Tweak selon ce dont vous avez réellement besoin. Je ne suis pas sûr pourquoi avez-vous utilisé r.Row + 1? Ce n'est pas ce que vous voulez, remplacez i = r.Row + 1 dans le code ci-dessous avec i = r.Row.

De même, il est recommandé de déclarer toutes les variables utilisées dans le code.

Dim wb As Workbook 
Dim sht1 As Worksheet, sht2 As Worksheet 
Dim rng As Range, r As Range, clrRng As Range 
Dim i As Long 
Set wb = ThisWorkbook 
Set sht1 = wb.Sheets("From GIS") 
Set sht2 = wb.Sheets("To MapCall") 

Set rng = Intersect(sht2.UsedRange, Range("L:L")).Cells 
For Each r In rng 
    If r.Value = "" Then 
     i = r.Row + 1 
     Set clrRng = Union(Range("C" & i), Range("J" & i & ":K" & i), Range("Q" & i), Range("AI" & i), Range("AV" & i & ":AZ" & i), Range("BR" & i)) 
     clrRng.Interior.Color = RGB(255, 255, 0) 
    End If 
Next r 

Answer 2

Une méthode consisterait à create a union of ranges.

Sub test() 

    Dim Rng As Range, r As Range, uRng As Range, row As Long 

    Set wb = ThisWorkbook 
    Set sht1 = wb.Sheets("From GIS") 
    Set sht2 = wb.Sheets("To MapCall") 

    Set Rng = Intersect(sht2.UsedRange, Range("L:L")).Cells 

    For Each r In Rng 
     If r.Value <> "" Then 
      row = r.row 

      Set uRng = Union(Cells(row, "C"), Cells(row, "J")) 'Etc... Keep going with each column 
      uRng.Interior.Color = RGB(255, 255, 0) 

     End If 
    Next r 

End Sub