Adriel Ortiz Mangia

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Application.Intersect(Target, Target.Parent.Range("A:A")) Is Nothing Then Target.Offset(, 1) = "" Application.EnableEvents = False Target.Offset(, 1) = Now...

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

H o l a: Te paso la macro Application.ScreenUpdating = False Application.DisplayAlerts = False PBS = Range("K1").Value CLIENTE = Range("C18").Value SOLUCION = Range("C25").Value Ruta = ThisWorkbook.Path & "\" nomb = "PBS000" & PBS & "_" & CLIENTE &...

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

H o l a: Usa esta formula y sustituye la celda donde tienes tus datos =FECHANUMERO(TEXTO(A1,"##-##-##")) Valora la respuesta para finalizar saludos!

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 observa esto y coméntame cual es la duda https://www.dropbox.com/s/t5uvm55iar098pg/sumar.xlsm?dl=0

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,...