Adriel Ortiz Mangia

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

Para vaciar del formulario a la hoja Range("A1") = Textbox1 Range("B1") = Textbox2 Range("C1") = Textbox3 . .

h o l a prueba con esto Private Sub Worksheet_Change(ByVal Target As Range) 'temp01 If Not Intersect(Target, Range(" L7:L1000")) Is Nothing Then If UCase(Target) = "REAL" Then Range(Cells(Target.Row, "D"), Cells(Target.Row, "H")).Interior.ColorIndex...

[Hola prueba así Private Sub Registro_Click() Application.ScreenUpdating = False ' Dim fila As Integer Dim Final As Integer Dim ExistenciaRE As Integer Dim TotalRE As Integer Dim Comprb As Long txt_Zona.Enabled = False Hoja7.Range("A2").Value =...

[Hola Sube tu archivo a la nube y hacer pruebas

[Hola Muestra una imagen de tus datos

Sube tu archivo de ejemplo a la nube