Adriel Ortiz Mangia

[Hola prueba con esta función =SIFECHA(D1;E1;"d") revisa tu separador si es , o ;

[hola Si el código alfanumérico es siempre al final va la fórmula =ESPACIOS(DERECHA(SUSTITUIR(A1;" ";REPETIR(" ";LARGO(A1)));LARGO(A1)))

[Hola Prueba así modificar = MsgBox("¿Deseas modificar ?", vbQuestion + vbYesNo, "AVISO") If modificar = vbYes Then Range("C13") = Format(Date, "dd/mm/yyyy") End If

[hola va la macro Sub Eliminar_Reclamacion() Worksheets("Registro_anual").Unprotect ("contraseña") valor = InputBox("¿que quieres eliminar?") If valor = "" Then Exit Sub ' Set Celda = Range("B:B").Find(valor, Lookat:=xlWhole) If Not Celda Is Nothing...

h o l a Sube tu archivo de ejemplo a la nube ¿Y qué pasa si el nombre del cliente se repite?

H o l a prueba esto Private Sub Worksheet_Change(ByVal Target As Range) 'http://foro.todoexcel.com/macro-para-controlar-cambio-valor-una-celda-t32389.html Dim ValorAnterior, ValorActual If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub...

Va la macro del generoso Dante Sub contarduplicados() 'Por.Dam Range("AZ3:AZ" & Range("AZ" & Rows.Count).End(xlUp).Row).Interior.ColorIndex = xlNone For i = 3 To Range("AZ" & Rows.Count).End(xlUp).Row ant = Cells(i, "AZ") For j = i + 1 To Range("AZ"...

H o l a =SUMAR.SI(A1:A10,$D$1,B1:B10) Revisa tu separador si es ; o.

H o l a prueba así Private Sub Aceptar_Click() '' If ListBox1.ListIndex = -1 Then Exit Sub If Opciones.ListIndex = -1 Then Exit Sub ' Select Case Opciones.ListIndex Case 0 Application.ScreenUpdating = False Application.DisplayAlerts = False '...

H o l a supongo que tienes listo el formulario por ejemplo FORMCONSULTA Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim n As Range If TextBox1.Text <> "" Then Set n =...