Adriel Ortiz Mangia

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 prueba esto Sub Macro1() ' ' Macro1 Macro ' With Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(LEN(RC[-1])=9,1,0)" .Value = .Value End With End Sub

H o l a prueba esto Private Sub Textbox1_Enter() CommandButton1.Visible = False End Sub Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) CommandButton1.Visible = True End Sub

[Hola Revisa esto link Cargar imagen al escoger dato de combobox

[Hola Sube tu archivo a la nube y hacer pruebas