Dante Amor

Podrías poner un par de ejemplos reales de lo que tiene el código de barras y en cuáles celdas quieres cada dato. No es necesario utilizar un textbox, se puede hacer directamente en una celda en la hoja. También dime en cuál celda capturarías el...

Puedes explicar el funcionamiento de lo que quieres, es decir, qué capturas en este control: INGRESARCODIGOPRODUCTO_Change, ¿es un textbox o un combo? ¿Después por qué comparas este txt_cod con el dato de la hoja? ¿Existen varios registros con este...

En la celda N1 capturas un valor o es una fórmula Si es un valor entonces pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("N1")) Is Nothing Then If...

Te anexo el código. Al principio de todo el código debe quedar la variable "contador" Cambia en el código en estas líneas por tus datos Set h = Sheets("Usuarios") 'hoja de usuarios y password col1 = "A" 'columna de usuarios col2 = "B" 'columna de...

Puedes poner una imagen de lo que tienes en la hoja1 Y otra imagen con el resultado que esperas en la hoja2 Me explicas qué datos y por qué van en celdas y también me explicas qué datos y por qué van en "cuadros de texto". Esos "cuadros de texto" son...

Te anexo la macro actualizada Private Sub CommandButton4_Click() If OptionButton1 = False And optionbuton2 = False Then MsgBox "Selecciona un destinatario" Exit Sub End If If OptionButton1 = True Then destinatario = "[email protected]" Else...

Qué tipo de combobox tienes, es una lista de validación, ¿es un combo de control de formulario o un combo de control ActiveX?

Te contesto para actualizar la hora En el evento open de thisworkbook, pon esto: Private Sub Workbook_Open() Call Calcular End Sub En un módulo pon esto Sub Calcular() Sheets("prueba"). Calculate Application. OnTime Now + TimeValue("00:00:01"),...

Crea los siguientes formatos condicionales: 1. Entra al Menú Inicio, Formato condicional, Nueva regla, selecciona "Utilice una fórmula que determine las celdas para aplicar formato" 2. En el campo "Dar formato a los valores donde esta fórmula sea...

Te anexo una opción sin utilizar la celda y sin utilizar offset Private Sub CommandButton1_Click1() Set b = Hoja1.Range("C:C").Find(TextBox1, LookIn:=xlValues, LookAt:=xlWhole) If Not b Is Nothing Then Hoja1.Cells(b.Row, 17) = TextBox2 MsgBox...