Dante Amor

Te anexo una fórmula, es una opción para reflejar en la celda A10 el valor de la celda D1 Pon la siguiente fórmula en la celda A10 =INDIRECTO("D"&FILA()/10) Lo que hace la fórmula es calcular la celda, la fórmula empieza con la columna "D", después...

Pero qué funcionamiento esperas. Si quieres ver los cambios en la pantalla entonces debes poner primero True y al final del código False Private Sub CommandButton1_Click() Application.ScreenUpdating = True ActiveSheet.DisplayPageBreaks = True ' 'el...

Te anexo la macro Sub SeparaCombustible() 'Por.Dante Amor Set h1 = Sheets("Resumen") For i = 1 To h1.Range("D" & Rows.Count).End(xlUp).Row Select Case LCase(h1.Cells(i, "D")) Case "magna": Set h2 = Sheets("magna") Case "premiun": Set h2 =...

H o la: Envíame tu archivo para ver cómo tienes los hipervínculos y la selección del listbox. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Sergio Jesus Sanjurjo” y el título de esta pregunta.

H o la: Te anexo las macros para el userform Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Por.Dante Amor KeyAscii = 0 End Sub ' Private Sub CommandButton1_Click() 'Por.Dante Amor If ComboBox1 = "" Then MsgBox "Selecciona...

H o l a: Me puedes enviar tu archivo, me explicas con un par de ejemplos qué copiar y en dónde pegar, lo importante es que pongas las ubicaciones reales de las tablas, de esa forma podré crear una macro que realice la búsqueda. También dime qué...

Te anexo la macro Private Sub CommandButton11_Click() 'Act.Por.Dante Amor 'mostrar hojas For Each h In Sheets 'If LCase(h.Name) <> "indice" Then h.Visible = True 'End If Next Hoja6.Columns("A:Q").Clear fin = Hoja5.Range("b65536").End(xlUp).Row fila =...

Me puedes enviar el archivo y me explicas con ejemplos los resultados que esperas Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “edwin tequen lora” y el título de esta pregunta.

Quedaría así: Private Sub CommandButton11_Click() 'Act.Por.Dante Amor 'mostrar hojas For Each h In Sheets If LCase(h.Name) <> "indice" Then h.Visible = True End If Next Hoja6.Columns("A:Q").Clear fin = Hoja5.Range("b65536").End(xlUp).Row fila = 2...

H o l a: En el siguiente enlace existe una macro para listar los archivos con sus propiedades: http://excelforo.blogspot.mx/2012/05/vba-una-macro-en-excel-para-listar-las.html Sub ListarPropiedadesFicherosCarpeta() 'www.excelforo.com Dim Ruta As...