Estoy intentando programar una macro para imprimir un área seleccionada de excel cada que cambia el valor de dos celdas; la primera es el concepto que cambia de acuerdo a una lista de manera vertical mientras que para las cantidades hay una serie de cantidades que cambian de manera horizontal.
Cada que se aplique la macro, las cantidades se cambian a lo largo de una fila que se encuentra definida como "dia" Intenté cambiar el tipo de variable, ya que luego de introducir los valores la macro se deja de correr
Pero debido a que no sé mucho de VBA, no sé cual otro error esté cometiendo
`Sub Imprimir()
'
' Imprimir Macro
'
' Acceso directo: CTRL+i
'
'Datos a insertar
Dim lim_inferior As Integer
Dim lim_superior As Integer
Dim dia As Integer
Dim preg_concepto As Integer
Dim concepto As Integer
lim_inferior = InputBox(prompt:="Dame el número de la primera nota
que quieres imprimir")
lim_superior = InputBox(prompt:="Dame el número de la última nota
que quieres imprimir")
dia = InputBox(prompt:="¿Qué día estás imprimiendo?")
concepto = InputBox(prompt:="¿El último concepto fue 'Cerraduras
tornillos y llaves'? (1, para sí y 0, para no)")
'Procedimiento
If concepto = 0 Then
concepto = InputBox(prompt:="¿En cuál concepto te quedaste?")
End If
lim_inferior = lim_inferior + 2
lim_superior = lim_superior + 2
concepto = 20
dia = dia + 20
For l_i = lim_inferior To l_s = lim_superior
' Cantidad
Range("AZ124").Select
ActiveCell.FormulaR1C1 = "=R[dia]C[l_i]"
' Concepto
Range("AV124").Select
ActiveCell.FormulaR1C1 = "=R[concepto]C[-4]"
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True, _
IgnorePrintAreas:=False
If concepto = 47 Then
concepto = 20
End If
concepto = concepto + 1
Next
End Sub`
"=R[concepto]C[-4]"
está mal. Si quieres usar el valor almacenado en la variableconcepto
tendría que ser"=R[" & concepto & "]C[-4]"