Adriel Ortiz Mangia

H o l a Puedes mostrar una imagen de la hoja de registros para ver cual columna validar.

Para guardar el libro ponlo después del código de imprimir Application.DisplayAlerts = False ThisWorkbook. Save

H o l a agrega 100 en esta linea del código Label96.Caption = Str(Suma)/100

H o l a: Te paso la macro Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) u = Range("A" & Rows.Count).End(xlUp).Row + 1 If u < 10 Then u = 10 Cells(u, 1).Value = ListBox1.List(ListBox1.ListIndex, 0) Cells(u, 2).Value =...

H o l a Te paso la macro Sub Mostrarvencidos() 'Fuente http://www.todoexpertos.com/preguntas/7aq6lgjgmooyxcdy/macro-busca-dato-en-columna-muestra-resultados Set h1 = Sheets("Hoja2") n = 0 For i = 3 To h1.Range("B" & Rows.Count).End(xlUp).Row If...

H o l a NO entendí si la validación es con sql, pero si validas los datos con excel te paso la macro, sustituye el nombre de la hoja y la columna donde tienes los usuarios Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set b =...

H o l a Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B10:B1002")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Row > 1 Then Select Case UCase(Target.Value) Case Is > 1 Range(Cells(Target.Row,...

H o l a: ¿La fecha lo ingresas a través de caja de texto del formulario? Si es así aplica esto al vaciar a la hoja Cells (u, 1)= cdate(textbox1) si es en la celda usa la fórmula FECHANUMERO y le pones formato fecha a la celda

H o l a. ¿Puedes mostrar una imagen de la hoja factura para adecuar la macro?

H o l a: Sub sumar() TextBox4.Text = Val(TextBox2) + Val(TextBox9) + Val(TextBox15) End Sub Private Sub TextBox15_AfterUpdate() Call sumar End Sub no te mostrará automáticamente pero después de salir del textbox15 saldrá la suma auto