Modificación sobre código VBA realizado por experto no funciona!

Disculpa que te moleste de nuevo pero quise agregar una condición más al código elaborado y no me funciona (intenté mil veces!) Te pego el código debajo a ver si hallas el problema por favor!

Private Sub CommandButton3_Click()
'
' Macro6 Macro
'

'
ActiveSheet.Unprotect
Dim i As Integer
Dim Str1 As String: Str1 = "Asistencia de izaje a trailers hab"
Dim Str2 As String: Str2 = "Izaje/montaje de motores - turbinas -Dpto. Turbinas"
Dim Str3 As String: Str3 = "Asistencia de izaje a coiled tubing en pozo"
Dim Str4 As String: Str4 = "Asistencia de izaje a slickline en pozo"
Dim Str5 As String: Str5 = "Asistencia de izaje en paros de planta - trabajos varios"
Dim Str6 As String: Str6 = "Asistencia de izaje de contigencia"
Dim Str7 As String: Str7 = "Asistencia de izaje a perforación"
Dim Str8 As String: Str8 = "Asistencia de izaje a obras civiles"
Dim Str9 As String: Str9 = "Asistencia a izajes de deposito"
Dim Str10 As String: Str10 = "Asistencia a izajes separadores-GP"
Dim Str11 As String: Str11 = "Asistencia de izaje a sector mantenimiento"
Dim Str12 As String: Str12 = "Asistencia de izaje en general a sector GP"
Dim Str13 As String: Str13 = "Asistencia de izaje en general a sector TN"
Dim Str14 As String: Str14 = "Asistencia de izaje en general a pozo"
Dim Str15 As String: Str15 = "Asistencia de izaje a sector de comunicaciones"
Dim ActualStr As String
Dim RepeatQty As Integer
Dim StrArr As Variant
StrArr = Array(Str1, Str2, Str3, Str4, Str5, Str6, Str7, Str8, Str9, Str10, Str11, Str12, Str13, Str14, Str15)
For i = 164 To 177
ActualStr = StrArr(i - 164)
RepeatQty = Application.WorksheetFunction.CountIf(Range("E3:E161"), ActualStr)
If RepeatQty > 0 Then
Cells(i, 5).Value = ActualStr
Cells(i, 6).Value = RepeatQty
Cells(i, 7).Value = ActualStr
Else
Cells(i, 5).Value = "No Hay Coincidencia"
Cells(i, 6).Value = "No Hay Coincidencia"
Cells(i, 7).Value = ActualStr
End If
Next i
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

La línea que agregue es la resaltada en negrita y no anda...

1 respuesta

Respuesta
1

Solo debes cambiar esta línea

For i = 164 To 177

El 177 ponlo 178 y ya funcionará

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas