Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Estimados, buenas, soy nuevo en VBA y al correr mi formulario me aparece el siguiente error en referencia
por favor alguien me puede ayudar con la sintaxis de como solucionar el error 1004
adjunto info de como esta ingresado en la programacion Vb:
Private Sub LISTA_Click()
Dim modelo As String
modelo = LISTA.List(LISTA.ListIndex, 7)
Me.txt_modelo.Value = modelo
End Sub
Private Sub txt_modelo_Change()
Dim modelo As String
modelo = txt_modelo
Me.txt_service = Application.WorksheetFunction.VLookup(modelo, Sheets("BD").Range("A:Y"), 20, 0)