Usar "Si la celda contiene" en VBA excel

Intento escribir una macro donde, si hay una celda con la palabra "TOTAL", ingresará un guion en la celda debajo de ella. Por ejemplo:

enter image description here

En el caso anterior, me gustaría un guion en la celda F7 (nota: podría haber cualquier número de columnas, por lo que siempre será la fila 7, pero no siempre la columna F).

Actualmente estoy usando este código, pero no está funcionando y no puedo entender por qué.

Dim celltxt As String Range("C6").Select Selection.End(xlToRight).Select celltxt = Selection.Text If InStr(1, celltext, "TOTAL") > 0 Then Range("C7").Select Selection.End(xlToRight).Select Selection.Value = "-" End If 

La ayuda sería apreciada Espero no estar haciendo algo estúpido.

Esto recorrerá todas las celdas de un range determinado que usted defina ("RANGE TO SEARCH") y agregará guiones a la celda inferior utilizando el método Offset() . Como práctica recomendada en VBA, nunca debe usar el método Select .

 Sub AddDashes() Dim SrchRng As Range, cel As Range Set SrchRng = Range("RANGE TO SEARCH") For Each cel In SrchRng If InStr(1, cel.Value, "TOTAL") > 0 Then cel.Offset(1, 0).Value = "-" End If Next cel End Sub 
 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, Range("C6:ZZ6")) Is Nothing Then If InStr(UCase(Target.Value), "TOTAL") > 0 Then Target.Offset(1, 0) = "-" End If End If End Sub 

Esto le permitirá agregar columnas de forma dinámica y automáticamente insert un guión debajo de cualquier columna en la fila C después de que 6 contenga mayúsculas y minúsculas "Total". Nota: Si pasa de ZZ6, tendrá que cambiar el código, pero esto debería llevarlo a donde necesita ir.

¿Es esto lo que estás buscando?

  If ActiveCell.Value == "Total" Then ActiveCell.offset(1,0).Value = "-" End If 

De ustedes podrían hacer algo como esto

  Dim celltxt As String celltxt = ActiveSheet.Range("C6").Text If InStr(1, celltxt, "Total") Then ActiveCell.offset(1,0).Value = "-" End If 

Que es similar a lo que tienes.