Abraham Valencia

Hol.a Una forma: Dim Objeto As Control For Each Objeto In Me.Controls If TypeOf Objeto Is MSForms.TextBox Then If Objeto = "" Then MsgBox "Falta completar datos, no deje campos vacíos" Exit Sub End If End If Next Objeto Salu2 Abraham Valencia

Hol.a No es muy clara tu necesidad ya que si solo quieres 20 filas, basta que la llenar el "ListBox" le agregues lo que deseas o ¿qué sucede o tienes en realidad? Abraham Valencia

Hol.a ¿Qué error te da y en que línea? Aunque no veo tus datos, al menos viendo lo que has enviado no debería haber problemas. Podría dar error si no hay coincidencias al buscar, es decir su la variable que das en "aa" no coincide con los datos de la...

Hol.a Es complicado hacer una respuesta totalmente certera sin conocer tu archivo pero, prueba así: Sub Prueba() On Error Resume Next [Nfila] = ActiveCell.Row Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\nombre de la carpeta\" &...

Corrige: h.Cells(f, "BL").FormulaLocal = "=SI(AJ2-AS2<0,0,AJ2-AS2)" Igual sugiero usar, al menos a futuro, "Formula" y no "FormulaLocal", ese último solo funcionará para versiones de Office en el mismo idioma que el tuyo y con la configuración del...

Hol.a Mira esta conversación: https://www.todoexpertos.com/preguntas/8lsg8q3al6whd8ia/abrir-link-a-web-guardado-en-una-celda-en-excel?selectedanswerid=8lsmqx8mpjbhnmy3&nid=f8ka7rebf8pqftkt9rw6jucmhkt9rwcnf8q9bgko9gs9thkk Abraham Valencia

Hol.a Agrega esto: If ActiveCell.Address = "$A$1" Then Range("A2").Select End If Antes de "txtcod.Value = ActiveCell.Offset(0, -3)" Salu2 Abraham Valencia

Intenta así: https://support.microsoft.com/es-pe/help/925757/how-to-enable-or-disable-hyperlink-warning-messages-in-2007-office-pro Abraham Valencia

Hol.a O sea, en resumen, si se modifica algo de la columna "A", la "C" (cada celda correspondiente) debe quedan "en blanco" ¿es eso? Abraham Valencia

Esto de aquí: http://www.excelnegocios.com/macro-generar-combinaciones-y-permutaciones/ Salu2 Abraham Valencia