ERROR 1004 VBA, al combiar un valor en una celda
Publicado por Roberto Noderse (1 intervención) el 17/10/2012 20:54:41
estoy comenzando a trabajar con excel 2007 y en una función intento cambiar el valor de una celda y me da un error que no puedo corregir.
"Err: 1004 , fue generado por VBAProject, Error definido por la aplicación o el objeto"
aqui el codigo:
If Worksheets("Solicitudes").Range("a" & qFila) = qSolicitud Then
MsgBox "Celda: " & Worksheets("Solicitudes").Range("A" & qFila) & ", Fila:" & qFila, vbQuestion, "Atención"
Buscar_valor = Worksheets("Solicitudes").Range("A" & qFila)
Sheets("Solicitudes").Select
ActiveWindow.SmallScroll ToRight:=7
Range("O54").Select
'------------------------------------------
'EL ERROR ES AQUÍ
ActiveCell.FormulaR1C1 = "erere"
'-----------------------------------------
Else
MsgBox "Solicitud " & qSolicitud & "Inexistente ....", vbQuestion, "Atención"
Buscar_valor = ""
End If
"Err: 1004 , fue generado por VBAProject, Error definido por la aplicación o el objeto"
aqui el codigo:
If Worksheets("Solicitudes").Range("a" & qFila) = qSolicitud Then
MsgBox "Celda: " & Worksheets("Solicitudes").Range("A" & qFila) & ", Fila:" & qFila, vbQuestion, "Atención"
Buscar_valor = Worksheets("Solicitudes").Range("A" & qFila)
Sheets("Solicitudes").Select
ActiveWindow.SmallScroll ToRight:=7
Range("O54").Select

'------------------------------------------
'EL ERROR ES AQUÍ
ActiveCell.FormulaR1C1 = "erere"
'-----------------------------------------
Else
MsgBox "Solicitud " & qSolicitud & "Inexistente ....", vbQuestion, "Atención"
Buscar_valor = ""
End If
Valora esta pregunta


0