Dante Amor

Prueba la siguiente macro. Ahí te puse unos comentarios para que la adaptes a tus necesidades. Sub InsertarFila() 'Por Dante Amor ' Dim sh As Worksheet For Each sh In Sheets Select Case sh.Name Case "Resumen", "Reporte", "etc" 'en estas hojas no se...

¿Quieres eliminar toda la fila o solamente las celdas de la A a la T y que las filas celdas de abajo se recorran hacia arriba?

Bueno la mitad de 25 no es 13, la mitad de 25 es 12.5 Si quieres saber el % de lo que se han llevado entones la fórmula es: =L3*100/H3 El resultado es 52 Si lo quieres en porcentaje: =L3/H3 ... Y aplica en N3 el formato de porcentaje. Ahora si...

Ho la Rafal: Desafortunadamente estos tags que estás poniendo no funcionan en este foro para resaltar el texto: [b]Frm_Inicio.Show[/b] Para eso, selecciona el texto y presiona el botón "Negrita", lo encuentras en la barra de iconos: Frm_Inicio.Show...

Ayudaría si pones lo siguiente: 1. El código para pasar los datos de la hoja al formulario. 2. Cuál color corresponde a cada optionbutton Intenta adaptar lo siguiente: Private Sub CommandButton2_Click() 'traer datos de la hoja al formulario Dim fila...

Pon el siguiente código en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then If Target.CountLarge > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If...

Supongo que ya tienes el evento change para el combobox1, cuando cambia tu combobox1, en automático cambia tu textbox3. "El proceso seria que el combobox1 vaya cambiando de 1 a 2, a 3, a 4 etc. Hasta llegar a la cantidad que indica "A1"" Utiliza lo...

Prueba con lo siguiente: .List(.ListCount - 1, 4) = Format(Hoja2.Cells(i, 10), "$#,##0.00")

Te paso la macro actualizada: Sub Enviar_Correos() 'Act.Por Dante Amor Dim i As Long, c As Long Dim Email As Object Dim archivo As String For i = 7 To Range("A" & Rows.Count).End(3).Row Set Email = CreateObject("Outlook.Application").CreateItem(0) '...

En la otra pestaña pon la = y la celda que necesitas. Por ejemplo, en la hoja1 en la celda C3 tienes la fórmula =Contar.SI() En la hoja2 en la celda E4 pon lo siguiente: =Hoja1!C3 Ajusta el nombre de la hoja y de la celda.