Adriel Ortiz Mangia

[Hola Prueba con esto Private Sub CommandButton1_Click() ' If esc_upc.Text = "" Or lista_def.ListIndex = -1 Then MsgBox "VERIFICAR QUE LOS CAMPOS ESTEN LLENOS", vbOKOnly, "CAMPOS VACIOS" esc_upc.SetFocus Exit Sub End If End Sub

[Hola Prueba esto Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act. Adriel If Not Intersect(Target, Range("E4:E164")) Is Nothing Then If Cells(Target.Row, "B") = "" Then MsgBox "la columna B no contiene datos" Else UserForm1.Show End...

[Hola Te paso la macro, cambia los nombres de los textbox y de la hoja por el tuyo Para finalizar hay 2 opciones Excelente o bueno saludos. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Set h1 = Sheets("Hoja3") Set b =...

[Hola Muestra una imagen de tu hoja y resaltas el resultado que deseas

[Hola te paso la macro Private Sub CommandButton1_Click() '**Por Adriel ' Set h1 = Sheets("Hoja1") ' If h1.AutoFilterMode Then h1.AutoFilterMode = False date_ini = Format(TextBox1, "mm/dd/yyyy") date_fin = Format(TextBox2, "mm/dd/yyyy") ' u =...

[Hola Te paso la macro, Private Sub Worksheet_Change(ByVal Target As Range) ' '**Por Adriel Ortiz ' If Not Intersect(Target, Range("C:C")) Is Nothing Then If Target.Count > 1 Then Exit Sub Select Case Target Case "" Cells(Target.Row, "D") = "" Case...

[Hola Muestra una imagen de la hoja y del formulario. Y ver en cual columna esta producto y fecha

[Hola prueba con esto, cambias la columnas ganancia yo puse B, y el resultado lo pone C1 Sub sumar() u = Range("B" & Rows.Count).End(xlUp).Row Sumx = Application.WorksheetFunction.Sum(Range("B2:B" & u)) Range("C1") = Sumx End Sub Para finalizar a 2...

[Hola Muestra tu macro y que resultado deseas

[Hola Al final de error está escrito cuount Es : count