error 1004
Publicado por Miguel (1 intervención) el 29/06/2006 21:08:24
Hola a todos.
Perdonar mi ignorancia pero estoy creando una macro para excel y me da un error 1004 y me dice algo como error en el metodo cells de objeto global.
os pongo mi rutina que es mas simple que un chupete.
Nota: si tengo abierto el libro excel si que me funciona, pero cuando intento hacer que se ejecute automaticamente al abrir el libro excel, es cuando me da el problema.
Sub auto_open()
fila1 = 1
fila2 = 80
COL1 = 1
COL2 = 7
col6 = 6
col7 = 7
colu2 = 2
fila35 = 35
fila4 = 4
cont = False
For fila = fila1 To fila2
For columna = COL1 To COL2
If Cells(fila, col6).Value < Cells(fila4, col7).Value And Cells(fila, col7).Value = ("si") Then
Cells(fila, columna).Font.ColorIndex = 3 'Rojo
cont = True
Else
Cells(fila, columna).Font.ColorIndex = 1 'Negro
End If
Next columna
Next fila
If cont = True Then
Cells(fila35, colu2) = "Cliente con fuente samsung fuera del perido de sustitución "
Cells(fila35, colu2).Font.ColorIndex = 3 'Rojo
Else
Cells(fila35, colu2) = ""
End If
End Sub
GRACIAS
Perdonar mi ignorancia pero estoy creando una macro para excel y me da un error 1004 y me dice algo como error en el metodo cells de objeto global.
os pongo mi rutina que es mas simple que un chupete.
Nota: si tengo abierto el libro excel si que me funciona, pero cuando intento hacer que se ejecute automaticamente al abrir el libro excel, es cuando me da el problema.
Sub auto_open()
fila1 = 1
fila2 = 80
COL1 = 1
COL2 = 7
col6 = 6
col7 = 7
colu2 = 2
fila35 = 35
fila4 = 4
cont = False
For fila = fila1 To fila2
For columna = COL1 To COL2
If Cells(fila, col6).Value < Cells(fila4, col7).Value And Cells(fila, col7).Value = ("si") Then
Cells(fila, columna).Font.ColorIndex = 3 'Rojo
cont = True
Else
Cells(fila, columna).Font.ColorIndex = 1 'Negro
End If
Next columna
Next fila
If cont = True Then
Cells(fila35, colu2) = "Cliente con fuente samsung fuera del perido de sustitución "
Cells(fila35, colu2).Font.ColorIndex = 3 'Rojo
Else
Cells(fila35, colu2) = ""
End If
End Sub
GRACIAS
Valora esta pregunta


0