Dante Amor

H o l a: En estos casos lo más práctico es realizar una tabla dinámica Selecciona tus datos, entra al Menú Insertar, selecciona Tabla Dinámica. Selecciona Hoja de cálculo existente y selecciona alguna celda, por ejemplo F2, presiona Aceptar. Ahora...

Te anexo el código actualizado. Lo que hace es extraer las 3 primeros caracteres del texto, los convierte a mayúsculas, los compara contra "AOD", si son iguales copia la celda a la columna A de la hoja "PC", por cada copia incremente la fila destino...

Te anexo el código actualizado, cada que presiones el botón se van a agregar 2 registros. No es necesario que pongas el foco a cada textbox, solamente se lo tienes que poner al textbox que se va a quedar con el foco. Private Sub...

Supongo que quieres pegar las columnas en el orden seleccionado, para eso ocupa la siguiente macro: Sub copiar_Columnas() 'Por.Dante Amor Application.ScreenUpdating = False cols = Array("BF", "F", "D", "AZ", "BA", "S", "BT", "BW", "BX", "C", "V",...

Supongo que tienes un userform También supongo que en los textbox capturas algo como esto 11/05/2015 (11 de abril de 2015). Si es así, utiliza el siguiente código: Private Sub CommandButton1_Click() 'Por.Dante Amor If Not IsDate(TextBox1) Or TextBox1...

Pero qué quieres hacer. Ejecutar una macro o copiar una celdas Si quieres copiar una celdas, dime qué celdas quieres copiar y en dónde las quieres pegar; la quieres pegar en la misma hoja. Supongo que lo quieres hacer para todas las hojas, excepto...

Te anexo la macro para copiar solamente el área de impresión Sub Copiar_Hojas() 'por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Application.SheetsInNewWorkbook = 3 Set l2 = Workbooks.Add...

Te anexo la macro Sub Copiar_Hojas() 'por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("INGRESOS", "SEGURIDAD", "VENEZOLANA")).Copy For Each h In Sheets h.Cells.Copy h.Range("A1").PasteSpecial xlValues...

Envíame tu archivo para ver cómo registras la información en la hoja y para ver cómo quieres la consulta en el formulario. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Alberto Pereda” y el título de esta pregunta.

Si realizas la búsqueda con el método .Find y al final pones .Activate, pero el dato buscado no existe, te va a enviar el error "91 Variable de objeto no establecido". Para controlar el error, puedes hacerlo de la siguiente forma, en el objeto b se...