fredy_manuel

Dante Amor respondió: 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...

Abraham Valencia respondió: Hay varias cosas que hacer con tu rutina que si cambias/modificas definitivamente la harán mucho más rápida: 1- Declara todas las variables y no te confundas con el tipo, hay varias con las que no lo has hecho. Ejemplo: Dim a As String, b As String,...

Dante Amor respondió: Prueba con lo siguiente: Sub unionhojas() Application.ScreenUpdating = False Set h1 = Sheets("AÑO 2017") h1.Cells.ClearContents TitOrigen = "A1:w1" 'Rango donde están los títulos Sheets("ENERO 2017").Range(TitOrigen).Copy Sheets("AÑO...

Dante Amor respondió: Envíame tu archivo con el userform para revisarlo Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Alvaro López Barbera”

Abraham Valencia respondió: Me parece o dejas todos los libros nuevos abiertos. Comentas. Abraham Valencia

Dante Amor respondió: Con esta opción puedes controlar si no se encontraron datos en el filtro: ActiveSheet.Range("$A:$P").AutoFilter field:=13, Criteria1:="AB" ActiveSheet.Range("$A:$P").AutoFilter field:=4, Criteria1:= _ ">1000000000", Operator:=xlAnd,...

antoniomallo respondió: a) En C la energía mecánica vale E(C) = m·g·h + (1/2)·m·v(C)^2 = m·9,8·2 +(1/2)m·v(C)^2 Siendo v(C) la velocidad que se le imprime. En A la velocidad es 0, pues el bloque justo alcanza a llegar a A, así que la energía mecánica vale E(A) = m·g·5 + 0 =...