Dante Amor

Dante Amor

Se fue un gran Padre. Te amo Papá!
 2.104K puntos  Estado de México, México @aprendemos desde - visto
Preguntar

Preguntas y respuestas en Microsoft Excel

Respuesta en y en 3 temas más a

Hacer visible/ocultar frame según el contenido del combobox.

H o l a: Te anexo las macros: En el evento activate de tu formulario pon lo siguiente: Private Sub UserForm_Activate() 'Por.Dante Amor Frame1.Visible = False Frame2.Visible = False Frame3.Visible = False Frame4.Visible = False Frame5.Visible = False...
Respuesta en y en 2 temas más a

Color en celda detectando cambio de fórmula en la misma

H o l a: Significa que A1 es igual a C1, entonces si A1 ya no es igual a C1 que se pinte de amarillo. Lo puedes hacer con formato condicional, selecciona las celdas de A1 a A100. Selecciona del menú Formato Condicional / Nueva regla. Aplicar formato...

La pestaña ALCANCES ya que yo quiero que me traiga unos datos específicos, solo con digitar el número de ficha

H o l a: La siguiente macro va en los eventos de tu hoja alcances: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor Set h1 = Sheets("BASE DE DATOS") 'Hoja de datos Set h2 = Sheets("ALCANCES") 'Hoja de Alcances If Target.Count > 1...

Ajustar la columna DE de la base de datos

H o l a: Te anexo la macro para ajustar la columna: Sub Paso4() 'Por.Dante Amor Set h1 = Sheets("BASE DE DATOS") h1.Columns("D:D").TextToColumns Destination:=Range("D1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(10, 1)),...

En el paso 1 quiero que al hundir el botón azul que se borre todo lo que haya en la Hoja 2 llamada BASE DE DATOS

H o l a: Te anexo la macro del paso1 Sub Paso1() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("BASE DE DATOS") 'Hoja de datos h1.Cells.ClearContents 'Borra el contenido de todas las celdas ' Set h2 = Sheets("ALCANCES") 'Hoja de...
Respuesta en a

Macro que busque un campo especifico en otro archivo y extraiga datos de tres celdas

1. ¿Nombre de la hoja donde vas a poner la matricula? 2. ¿En cuál celda vas a poner la matricula? 3. ¿Ejemplo de una matricula? 4. ¿En qué carpeta se van a buscar los archivos? 5. ¿El nombre del archivo es igual a la matricula? Es decir si pusiste:...
Respuesta en a

Desde textbox a ultima celda con datos

H o l a: Te anexo la macro para el botón Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "" Then MsgBox "Falta información en el textbox1", vbCritical, "AGREGAR" TextBox1.SetFocus Exit Sub End If f = Range("A" &...
Respuesta en a

Instrucción adicional a macro ya creada

H o l a: Veo en tu imagen este ejemplo: gloria@@sanchez@mendoza Cómo quieres el resultado, qué quieres en la columna T, ¿qué quieres en la columna U y si hay más veces la doble @, qué es lo que quisieras? S a l u d o s
Respuesta en y en 2 temas más a

Macro que me elimine los nombres no repetidos .

H o l a: Haber si entendí. Tienes una plantilla, digamos que es la plantilla1, ¿es una hoja o un libro? Luego dices que tienes que verificar los nombres que tienes en la columna "D" en otra plantilla, la llamamos plantilla2, ¿la otra plantilla es una...
Respuesta en a

Copiar texto en un cuadro de texto

Pon la siguiente macro en los eventos de tu hoja, cambia en la macro A1 por la celda que desees: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Address(False, False) = "A1" Then TextBox1 = Target End If End Sub Sigue...