Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Visual Basic

Respuesta en y en 2 temas más a

Como vincular un textbox a una celda

El código sería así: Private Sub TextBox5_Change() u = Range("B" & Rows.Count).End(xlUp).Row + 1 Cells(u, "B") = TextBox5 End Sub Pero con lo anterior, por cada letra que escribas en el textbox se escribirá el dato en una celda nueva. Te recomiendo...
Respuesta en y en 3 temas más a

Bloquear Botón de Comando Si Falta Datos En Un Label de Userform

Pon el evento activate en tu userform "verificación de datos" Private Sub UserForm_Activate() CommandButton1.Enabled = True 'habilita botón "Registrar Datos" Label1 = UserForm5.TextBox1 If Label1 = "" Then CommandButton1.Enabled = False Label2 =...
Respuesta en y en 1 temas más a

Option button hoja Excel activarlo desde otro que esta en un Formulario

Pon esto en tu userform. Cambia "Hoja7" por el nombre de la hoja que contiene el optionbutton de la hoja Private Sub OptionButton1_Change() If OptionButton1 = True Then Sheets("Hoja7").OptionButton1 = True Else Sheets("Hoja7").OptionButton1 = False...
Respuesta en y en 2 temas más a

Formato fecha en una columna

Te anexo la macro para poner la fecha en la columna "C" Pon todo el siguiente código en los eventos de tu hoja Public valido ' Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If valido = True Then If Not Intersect(Target,...
Respuesta en y en 2 temas más a

Hacer una macro para que valide si existe dato en una BD

Te anexo la macro Sub Guardar() 'Por.Dante Amor Set h1 = Sheets("formulario") Set h2 = Sheets("BDC_RAW_DATA") ' cedula = h1.Range("B1").Value If cedula = "" Then MsgBox "Captura un número de cédula", vbExclamation Exit Sub End If Set b =...
Respuesta en y en 1 temas más a

Modificar celdas según textbox - Excel

Envíame tu archivo para actualizar el código Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Alam Figueroa” y el título de esta pregunta.
Respuesta en y en 2 temas más a

Disculpen una forma que mi ComboBox seleccione la hoja y la muestre en un ListBox

Agrega el siguiente evento a tu userform Private Sub ComboBox1_Change() 'Por.Dante Amor ListBox1.RowSource = "" If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub End If ' Set h = Sheets(ComboBox1.Value) uf =...
Respuesta en y en 2 temas más a

Copiar fila de acuerdo a un criterio a otra hoja

Te anexo la macro actualizada Sub Ejecutar() 'Encuentra el valor 1 en la celda U y los pasa a hoja PDF Dim w As String Application.ScreenUpdating = 0 With Sheets("PDF") .[E2,A4:V8000].ClearContents [A5:U5].AutoFilter 21, ">=1"...
Respuesta en y en 2 temas más a

Macro copiar y pegar si cumple una condición

Te anexo la macro actualizada. Según tu explicación, pegas en la fila 11, pero en la macro pegas en la fila 150, de cualquier manera, si es la fila 11, entonces cambia 150 por 11: Sub ACEPTAR_VENTAS_1() ' Application.ScreenUpdating = False...
Respuesta en y en 2 temas más a

Tengo en una hoja notas y datos de alumnos. Deseo generar tarjetas de información

Envíame tu archivo con ejemplos reales. En la hoja1 escribe ejemplos reales de los alumnosEn la hoja2 pon la "plantilla" vacíaEn la hoja3 pon la "plantilla" llena con el primer alumno "ASISTENTE"Dime exactamente qué datos de los alumnos se tienen que...