Dante Amor

Dante Amor

Excelente!
 3.075K puntos  Estado de México, México @aprendemos desde - visto
Preguntar

Preguntas y respuestas en Microsoft Excel

Respuesta en y en 1 temas más a

Que un TextBox de un UserForm no se cambie el foco al presionar "Enter".

H o l a : Tienes que utilizar el evento Exit, verificas el contenido del textbox, si no es lo que necesitas entonces pones la instrucción Cancel = True, revisa el siguiente ejemplo: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)...
Respuesta en y en 2 temas más a

Limitar el ScrollArea con VBA

Pon la siguiente macro en los eventos de Thisworkbook Private Sub Workbook_Open() 'Por.Dante Amor For Each h In Sheets If UCase(Left(h.Name, 3)) = "LIM" Then h.ScrollArea = "$A$1:$H$70" End If Next End Sub Instrucciones para poner la macro en los...
Respuesta en y en 3 temas más a

Buscar y Mover Columnas Macro Excel

Te anexo la macro, tienes que poner en el Array los nombres de las columnas en el orden en que quieres que aparezcan de la columna A a la E. Los nombres deberán estar en la fila 1. Sub Macro2() 'Por.Dante Amor ' Application.ScreenUpdating = False...
Respuesta en y en 2 temas más a

¿Cómo hacer una búsqueda en un control ActiveX en Excel?

H o l a : Son varias actividades que se deben considerar. Sigue las indicaciones. 1. Para que se muestren todos los resultados según la letra o letras ingresadas, deberás poner un combobox de CotrolActiveX, ya que en un textbox no puedes desplegar...
Respuesta en y en 2 temas más a

Error en listbox al traer valores de una columna con la formula buscarv de una tabla en Excel vba

H o l a : Si la fórmula BuscarV no encuentra el valor, entonces en la celda te pone el error #N/A Cuando intentas cargar el error en el listbox, te envía el error "No se puede configurar la propiedad List". Puedes solucionarlo de las siguientes...
Respuesta en y en 2 temas más a

Macro para modificar formato de otra hoja sin moverse de la hoja activa

H o l a : Te pongo algunos ejemplos de formato: Sub Macro1() 'Por.Dante Amor Set celda = Sheets("Hoja3").Range("A1") 'negrita celda.Font.Bold = True 'color de letra celda.Font.ColorIndex = 6 'Texto subrayado celda.Font.Underline =...

Copiar celdas en diferentes hojas de un libro.

Te anexo la macro para las 3 primeras peticiones. Sub Copiar_informacion_adjuntos() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook ruta = "C:\Users\z003bpca\Desktop\Bitacora\" 'ruta = "C:\trabajo\" arch = "copy_Reporte.xls"...
Respuesta en y en 2 temas más a

Botón para parar una Macro.

Pon la siguiente macro en un botón. Sub detener() On Error Resume Next Application.OnTime Now + TimeSerial(0, 0, 1), "'" & ThisWorkbook.Name & "'!StartBlink", , False End Sub Cuando las celdas estén parpadeando, presiona el botón "detener" y el...
Respuesta en y en 1 temas más a

Macro para poner un borde al final de cada hoja

H o l a : no es necesaria una macro. Selecciona del menú: Diseño de página. Imprimir Títulos. Encabezado y pie de página. Personalizar pie de página. En la tres secciones izquierda, central y derecha, pones la línea:...
Respuesta en a

Modificar (editar) macro para que abarque todo el libro y no solo una selección

Prueba así: Sub limpiar_Seleccion() Cells.Replace what:=Chr(160), Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub sal u dos