Respuesta
en
Visual Basic
y en 1 temas más
a
Ubicar el setfocus dentro de un marco
En el evento activate pon el setfocus Private Sub UserForm_Activate() TextBox1.SetFocus End Sub Si no se queda en el control, entonces tendría que revisar el código para ver si algún evento lo está afectando Sal u dos
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro evalúe fechas, copie y pegue
Suponiendo que tienes en la "Hoja1" tus datos así: En otra hoja pon los datos de esta forma: En la celda B4 pon la siguiente fórmula =SUMAPRODUCTO((Hoja1!$A$2:$A$390=$A4)*(Hoja1!$B$1:$CM$1>=$B$2)*(Hoja1!$B$1:$CM$1<=$C$2)*(Hoja1!$B$2:$CM$390=B$3))...
Respuesta
en
Visual Basic
y en 1 temas más
a
Cerrar un libro solo si éste esta abierto
Te anexo los códigos: En los eventos de thisworkbook: Private Sub Workbook_BeforeClose(Cancel As Boolean) Call parar End Sub ' Private Sub workbook_open() Sheets("PROGRAMA D' PRODUCCION").Select Application.ScreenUpdating = False Call...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para extraer con una condición
Te anexo la macro Sub Contar_Areas() ' 'Por.Dante Amor ' ' Application.ScreenUpdating = False Set h1 = Sheets("BIBLIOTECA") Set h2 = Sheets("Hoja2") h2.Cells.Clear u1 = h1.Range("I" & Rows.Count).End(xlUp).Row h1.Range("I3:I" & u1).Copy...
Respuesta
en
Visual Basic
a
¿Podrias ubicarme el error para la extracción de campo especifico de archivo xml?
Envíame otro archivo de excel y me dices qué datos son los que buscas y en dónde los quieres poner, utiliza colores y comentarios para identificar los datos.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Exportar a .txt con excel VBA
Para guardar una hoja como archivo tipo texto, existen varios formatos. Manualmente guarda la hoja con cada uno de los formatos: -Texto delimitado por tabulaciones - Texto unicode - Csv delimitado por comas - Texto con formato (delimitado por...
Respuesta
en
Microsoft Access
y en 2 temas más
a
Adicionar valores de texto de un formulario a un cuadro de lista
Primero hay que poner el método AddItem Dim i As Integer For i = 0 To 100 ' en donde lñimito la insercion de numero de filas Me.Lista54.AddItem Me.Lista54.Column(0, i) = Me.Descripcion.Value ' que le asigne a la columna 1 de la lista con nombre...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como puedo ingresar el texto del encabezado en un listbox, o sea si quiero dividir el listbox en dos columnas con encabezado?
El código es el siguiente: Private Sub UserForm_Activate() ListBox1.ColumnCount = 2 ListBox1.ColumnHeads = True ListBox1.RowSource = "A2:B5" End Sub Los datos en la hoja tienen que estar así: Los datos se cargan con esta instrucción: ListBox1....
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Condicionar captura con formulario en VBA
Quedaría así, lo que hace es buscar todas las coincidencias a txtID, con cada coincidencia revisa el textbox2 con la columna "B" (ajusta estos datos según tu información), si encuentra uno igual, entonces envía el aviso. strTitulo = "Agregar...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Extraer valores únicos, pegar y contar repeticiones excel vba
Te anexo la macro. No es necesario ordenar los datos. Tampoco es necesario un progress bar Hice la prueba con 33,000 registros y la respuesta es inmediata. Sub Contar_Areas() ' 'Por.Dante Amor ' ' Application.ScreenUpdating = False Set h1 =...