Error en Desarrollo de Macros
Publicado por Ricardo (1 intervención) el 18/12/2020 06:39:37
Buen día
Me podrían ayudar a corregir el error que me sale en el desarrollo de esta macro. De antemano muchas gracias
Me podrían ayudar a corregir el error que me sale en el desarrollo de esta macro. De antemano muchas gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub final()
buscar = [c4]
canthojas = Sheets.Count
For Q = 2 To canthojasColumnas = Sheets(Q).Cells(1, Column.Count).End(x1ToLeft).Column
For C = 1 To ColumnasCabecera = Sheets(Q).Cells(1, C).Value
Vertical = Sheets(Q).Cells(2, C).Value
If Cabecera = buscar And InStr("Edad Sueldo Estado Sexo Codigo", Vertical) = 0 Then
Filas = Sheets(Q).Range("A" & Rows.Count).End(x1Up).Row
For F = 2 To FilasSheets(Q).Cells(F, C).Interior.Color = RGB(255, 0, 0)
Next
End If
Next
Filas = Sheets(Q).Range("A" & Count).End(x1Up).Row
For F = 1 To FilasCabecera = Sheets(Q).Cells(F, 1).Value
Horizontal = Sheets(Q).Cells(F, 2).Value
If Cabecera = buscar And InStr("Edad Sueldo Estado Sexo Codigo", Horizontal) = 0 Then
Columnas = Sheets(Q).Cells(1, Columns.Count).End(x1ToLeft).Column
For C = 2 To ColumnasSheets(Q).Cells(F, C).Interior.Color = RGB(255, 0, 0)
Next
End If
Next
Next
End Sub
Valora esta pregunta
0
