Dante Amor

H o l a: Te anexo la macro Sub BuscarPondera() 'Por.Dante Amor Set r = Columns("A") Set b = r.Find("pondera", lookat:=xlWhole) If Not b Is Nothing Then ncell = b.Address Do Range(Cells(b.Row + 1, "A"), Cells(b.Row + 4, "A")) = "x" Set b =...

H o l a: Con copiar el módulo que tiene la macro de un libro a otro libro, ¿con eso te sirve? ¿Después de copiar la macro hay que modificar la macro para que funcione en el nuevo libro?

H o l a: Pon los siguientes códigos en la hoja donde tienes los combobox. Para cagar el combobox1, al momento de hacer click en la flecha del combobox1, se cargan los datos, por lo tanto, no es necesario un commandbutton: Private Sub...

H o l a: Te anexo un ejemplo de una macro, utiliza Html para cambiar la fuente de la letra: '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam =...

H o l a: No entiendo qué es lo que necesitas. Podrías explicarme paso a paso qué necesitas y para qué lo necesitas, es decir, entiendo que tienes una tabla dinámica en un libro, ¿quieres pasar los datos de esa tabla dinámica a otra hoja? Es lo que no...

H o l a: No pusiste qué error tienes. Le hice unos cambios a tu macro, por ejemplo, si haces referencia a la hoja, no es necesario que la hagas visible. Private Sub CommandButton1_Click() 'Act.Por.Dante Amor Set h1 = Worksheets("DATOS") If...

Para ocultar: Sub BotonInvisible() Hoja1.DrawingObjects("Botón 1").Visible = False End Sub Para mostrar: Sub BotonVisible() Hoja1.DrawingObjects("Botón 1").Visible = True End Sub Cambia "Botón 1", por el nombre del botón. El nombre lo puedes ver...

H o l a: Para hacer la macro necesito estos datos: Cómo se llama la hoja donde tienes los datosEn cuál columna están los nombreEn cuál fila empiezan los nombresEn cuál columna empiezan las fechasCómo se llama la hoja para poner los resultadosEn cuál...

H o l a: Pon la siguiente macro en tu libro de macros. Deberás tener abierto tu libro "nuevo.xlsx". Sub libro() Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set l2 = Workbooks("nuevo.xlsx") Set h2 =...

H o l a: Quedaría de esta forma: 'compara dos columnas y muestra comentario en columna "resultado" Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row < 5 Then Exit Sub If Target.Count > 5 Then Exit Sub...