Dante Amor

H o l a: Con fórmulas no es posible, porque no puedes tener en una celda un dato y a la vez una fórmula. Lo que te presento es una macro que es más funcional. Si cambias el dato en la lista de validación de la hoja1, en automático cambiará en la...

H o l a: Reviso el archivo que me enviaste y si encuentro algo te aviso. Sal u dos

H o l a: Antes de realizar el filtro, hay que seleccionar la tabla o el rango, preguntar si existe filtro o autofiltro y entonces quitar el filtro con "ShowAllData" Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim maquina As String...

H o l a: Primero, todas las celdas deberán estar bloquedas. Segundo, la hoja debe estar protegida, con un password. Entonces, cuando vayas a pasar la información que tienes en el formulario a la hoja, tienes que desproteger la hoja y después de pasar...

H o l a: Para enviar el correo se necesitan de estos datos: ¿La vas a enviar por outlook?¿Qué lleva el asunto?¿Qué va en el cuero del correo?¿Cómo se llama tu hoja de la base de datos donde tienes los nombres?¿En cuál columna están los nombres y en...

H o l a: Te anexo la macro. Cambia en la macro fila = 2 por el número de fila donde empiezan tus datos de la hoja salida Sub Copiar() 'Por.Dante Amor fila = 2 'fila inicial de la hoja "salida Set h1 = Sheets("salida") Set h2 = Sheets("DB") u1 =...

H o l a: Te anexo la macro Sub CruzarDatos() 'Por.Dante Amor With Sheets("Hoja1").Range("F1:F" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IFERROR(MATCH(RC1,Hoja2!C1,0),"""")" .Value = .Value End With End Sub':) ':)

H o l a: Pon la siguiente macro en los eventos de tu hoja: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor 'Exit Sub If Target.Count > 1 Then Exit Sub If Target.Value = "" Then If ActiveSheet.AutoFilterMode Then...

H o l a: Puedes poner varios ejemplos de lo que tienes en G2 a G20 y pones de color las celdas que quieres obtener. Pero también me dices qué es lo que quieres obtener, es decir, ¿en alguna celda quieres un resultado o qué es lo que quieres de resultado?

H o l a: Private Sub ComboBox2_Change() 'Por.Dante Amor If ComboBox2 = "" Then Exit Sub Set h = Sheets("base3") Set b = h.Columns("A").Find(ComboBox2, lookat:=xlWhole) If Not b Is Nothing Then TextBox5 = b.Offset(0, 1) End If End Sub Prueba y me...