Buenas. Tengo un problema con el ComboBox. En un formulario tengo un ComboBox que recoge datos de la columna A de la Hoja1. Al elegir un valor del ComboBox me ha de dar los valores de la columna B de la Hoja 1 en un ListBox. En la columna A de la Hoja1 hay valores repetidos y quiero que solo me presente valores únicos. Hasta aqui lo tengo todo bien, pero cuando quito los valores duplicados no me funciona bien cuando escoge el valor del ComboBox y no me rellena bien el ListBox de forma correcta. Adjunto el ejemplo para ver si alguien me puede echar un cable. CASO 1: ComboBox1 Con datos únicos. (este es el que no me funciona) CASO 2: ComboBox2 Con datos…

Buenas noches, Me gustaría que me ayudarais a hacer una macro que convirtiera varios rangos de numeración en una lista con esos rangos desglosados. Por ejemplo: Columna 1 Columna 2 23 28 45 49 ... Conversión: Columna 1 23 24 25 26 27 28 45 46 47 48 49 ... Muchas gracias por vuestra ayuda.

Hola, He creado un grupo en la cinta de menú y me gustaría que cuando inicie este libro, este seleccionado este grupo y no el de inicio. Tengo Excel 2007 y cree el grupo con el programa Custom UI Editor. Muchas gracias Javi

Amigos del foro nuevamente recurro a uds. para obtener su ayuda, espero poder solución a mi problema, tratare de explicarme lo mejor posible: Tengo un formulario donde ingreso datos y necesito que estos aparezcan algunos datos en un libro 1 y en libro 2, considerando que la macro siempre estará en libro 1 (base inicial), estos datos se deben ir agregando hacia abajo de los ya existentes sin ser sobrescritos. Ej: Columna A debe ir el libro 1 y libro 2 Columna B debe ir solo en libro 1 Columna C debe ir solo en libro 2 Columna D debe ir en libro 1 y libro 2.... Adjunto archivo para mejor entendimiento, espero me entiendan y espero obtener su ayuda Desde ya muy agrad…

Oculte el libro tratando de cargar un formulario y ahora no lo puedo abrir... Se que hice una tonteria pero necesito ver el libro ayuda

hola, amigos de excel necesito generar consecutivos en un archivo de txt, supongamos que el consecutivo arranca desde 1 hasta 1000000 números de consecutivo lo primero el archivo de txt va tener tres columnas columna 1 es consecutivo columna 2 es el dato del proveedor a quien se le compra columna 3 es el dato de la fecha de realizacion de la orden de compra lo que se necesita es lo siguientes: 1- cuando le demos generar consecutivo, inmediatamente se busca el ultimo consecutivo dado y al frende se le agrega el proveedor y la fecha realizacion 2- y en excel se trae el consecutivo ultimo 3- importar los datos realizados en el dia en la hoja de tabla sed que e…

Buenas tardes quisiera saber si existe forma de generar lo siguiente en una macro: En una hoja de excel tengo números aleatorios, lo que necesito es que cada vez que le doy F9 se registre en otra hoja de excel el numero aleatorio que apareció antes de que yo presionara F9 y así ir creando un registro de todos los números que aparecen.

NECESITO AYUDA CON RESPECTO A HIPERVINCULOS EJEMPLO TENGO UNA LISTA EN UN EXCEL : 1 A 2 B 3 C 4 D 5 INFINITO Y UNA RUTA DE ARCHIVOS \\192.168.1.201\HOLA\LETRAS\ DONDE ESTAN LOS EXCEL A , B ,C , D , INFINITO CON EL MISMO NOMBRE DE LAS CELDAS , son archivos distintos. QUISIERA QUE MI LISTA(MIS CELDAS 1 A, 2 B, ....) RUTEEN A ESOS ARCHIVOS QUE TENGAN SU NOMBRE , YA QUE AL HACER CLICK EN 1 A ME HABRA EL EXCEL DE LA CARPETA \\192.168.1.201\HOLA\LETRAS\A1.XLS Y ASI LOS DEMAS = CON SU RESPECTIVO NOMBRE. GRACIAS ES ALGO DE VIDA O MUERTE GRACIAS

que tal resulta que tengo una macro que lo que hace es poner una letra en la celda segun el color de la celda pero el problema es que tarda mucho en ejecutarse ya que son muchas celdas, solo para pedir si alguien me puede decir como hacer que se ejecute mas rapido aqui dejo el programa, saludos. Sub prueba() Application.ScreenUpdating = False Dim celda As Range Range("h:h").Select For Each celda In Selection If celda.Interior.Color = RGB(255, 255, 255) Then celda = "V" End If Next Application.ScreenUpdating = True For Each celda In Selection If celda.Interior.Color = 255 Then celda = "R" End If Next Application.ScreenUpdating = True For Each celda In Sele…

Hola buenas Tardes tengo este codigo y solo me funciona para poder seleccionar un archivo TXT, y cargarlo a una tabla en sql server , Me gustaria poder seleccionar varios archivos txt y poder insertarlos a la misma tabla este es el codigo que uso donde podria modificar. Public Function ImportTextFile(cnn As Object, _ ByVal tblName As String, _ Optional FieldDelimiter As String = "|", _ Optional RecordDelimiter As String = vbCrLf) As Boolean Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset Dim sFileContents As String Dim iFileNum As Long Dim sTableSplit() As String Dim sRecordSplit() As String Dim lCtr As Long Dim iCtr As Long Dim iFieldCtr As Lon…

Tengo esta duda por favor si alguien me puede ayudar gracias. Tengo información en la hoja1 con datos repetidos la macro que tengo hace una búsqueda por medio de un textbox en un userform en la hoja1 si encuentra el valor o valores los pega en la hoja2 con toda la información de la fila a partir de b1 lo que me gustaría saber es como hacer la búsqueda pero con la propiedad de multiline y la de enterkeybehavior Que dentro del textbox pueda meter: 000-010 001-994 345-430 y los pegue en la hoja 2 junto con su información, en la hoja 2 que el resultado de la búsqueda 1 (000-010) lo peque en b1 el resultado de la búsqueda 2 (001-994) lo pegue en b7 el resultado de la…

Hola buenas. Tengo esta macro que quisiera que se ejecute en hojas determinadas del libro Private Sub CommandButton1_Click() Dim NX As Integer, N2 As Integer Dim CX As Integer, C2 As Integer, SEL As Integer If Not IsNumeric(TextBox1) Then MsgBox "Cantidad X incorrecta" Exit Sub End If If Not IsNumeric(TextBox2) Then MsgBox "Cantidad 2 incorrecta" Exit Sub End If If CheckBox1 Then Combinar Application.ScreenUpdating = False NX = CInt(TextBox1) N2 = CInt(TextBox2) For y = [B18] + 3 To 4 Step -1 CX = 0: C2 = 0: SEL = 0 For x = 0 To 13 If ListBox1.Selected(x) Then SEL = SEL + 1 If Cells(x + 1, y) = "X" Then CX = CX + 1 …

Hola a todos y todas. Hace ya un tiempo, con vuestra ayuda, logré crear una hoja de excel que utilizamos como herramienta en el trabajo. El caso es que una de las macros que hace la media aritmética de varias calificaciones (puedo introducir números decimales y signos "+" entre ellos) quisiera que se repetiese en todas las celdas donde se pueden introducir notas (donde por el momento, solamente puedo introducir un número y no varios sumandos como en la celda D6), es decir, que lo mismo que puedo hacer en la celda D6, pueda hacerlo en la F6, H6 y J6. También que pueda hacerlo en las sucesivas filas, hasta el registro 34. No sé si me he explicado bien. A…

Estimados amigos del foro, aquí nuevamente haciéndoles una consulta en relación a poder identificar el genero y especie según se cumplen las caracteristicas alli puestas. Solo le he atinado a que me resulte una, el poco conocimiento no me da mas, por eso acudo a ustedes para saber como se podría resolver este tema. Agradezco su gentil apoyo Subo un archivo para que lo vean Clasificar.xlsm

Buenas noches comunidad! En esta instancia vengo a preguntar algo que quizá sería muy sencillo para algunos pero a mí me ha sacado canas verdes! Poseo una macro para fusionar/unir/agrupar o como más deseen llamarle! Varios libros de excel en un mismo libro! Esto lo requiero porque a partir de ahí luego extraigo los datos de los más de 400 libro por separado con otra macro que recorre luego cada hoja del ahora único libro y me saca un listado con los valores por columnas solo de la información que requiero. Aora bien mi inquietud es la siguiente! La macro siempre debo asignarle la ruta copiando y pegando en el código! Habrá una manera que pueda no tocar el códig…

Hola Amigos de Ayuda Excel, De nuevo por aquí solicitando de su apreciable apoyo. Tengo un en el cual con una lista desplegable oculto y muestro cierta cantidad de columnas, conforme al número seleccionado en el cuadro de lista. Quiero hacer lo mismo para las filas pero me da un error y no se a que se debe (La hoja no está bloqueada). Gracias de antemano por su ayuda. saludos, BARB PROPUESTA DE CONTROL POLIZAS ULTIMA 7-5-13 (5).zip

Buenas Noches, Me gustaria puedan apoyarme con el siguiente adjunto, en el cuento con un userform, en el cual completo todos los datos y van a sus respectivas columnas, y si selecciono un combobox este debe ir debe ir en la fila "L" pero no se como hacerlo . Por otro lado, este combobox tiene los mismos nombres que las pestañas por lo que al seleccionar deberan copiarse también automáticamente a sus respectivas pestañas siendo solo las columnas J, I, A, C, G,H, de la hoja Ordenes siempre en la primera fila vacía que se encuentre. Agradezco su amable atención, Saludos, GENERAL ORDENES 2014 - EJEMPLO.zip

Un saludo a todos. Como siempre espero que alguien me ayude en una cuestión. No se si es posible la ayuda en formulas o en macro, por ello planteo la pregunta en ambos foros. Tengo una hoja con siete columnas con datos, la información me interesa por filas. Tengo varias formulas que me dicen si la condición se cumple en cada fila, de manera que en la columna H aparece SI o NO según se cumpla o no. A-B-C-D-E-F-G-H 1-2-3-4-5-6-7- si 4-5-6-7-8-9-10-no 2-8-9-4-3-6-9-si Lo que quiero es trasladar unicamente las filas que cumplan la condición "si" a otra hoja o en la misma hoja, sin que entre filas existan espacios en blanco. J-K-L-M-N-O-P 1-2-3-4-5-6-7- si 2-8-9-4-3-…

Hola.. Espero me puedan ayudar, necesito una macro de búsqueda, que al ingresar un dato me genere lo que busco o datos parecidos. En mi archivo de datos la 1ra columna contiene hipervinculos de hojas en pdf, la 2da columna contiene el titulo de lo que contiene la hoja de pdf y en la 3ra el resumen. Lo que necesito es una busqueda rapida sin que necesita abrir cada hiperviculo, cabe mencionar que mi base de datos consta de 2 hojas. Espero su ayuda, gracias.

Amigos, Me gustaría saber como se podría realizar esto en VBA, por el momento lo estoy realizando de forma manual, pero es muy tedioso, y en cierta forma complejo cuando cambia la estructura del reporte. La idea es prorratear los meses de Setiembre a Diciembre, teniendo en cuenta el peso porcentual del Acumulado a Agosto Real Le detallo el proceso de como lo realizo: 1. En la pestaña "Forecast Anual": Todo lo pintado en naranja, es los montos totales que deseo prorratear, para lo cual uso la codificación de la columan "I" 2. En la pestaña "Paso1": Calculo las columnas "N:P" totales, con un SUMAPRODUCTO, asociado a la codificación anterior, que se …

Necesito macro para eliminar celdas de una tabla segun mes . Adjunto archivo Gracias de antemano ejemplo.rar

Buen día, como puedo variar mediante un ciclo for el número de hoja en el codigo siguiente: For m = 3 To 25 Step 2 For I = 1 To ultfila If Hoja3.Cells(I, 1) = Hoja27.Range("D5") Then ..... a algo así: if Hoja(m).cells(I,1) = Hoja27.Range("D5") Then el detalle está que no deseo usar el nombre de la hoja y si uso el indice de hoja al cambiar de posición me cambia el indice y ya no me funiciona, es decir que debe buscar la hoja sin importa sin cambian el nombre de hoja o posición de hoja..

Buenos días. Soy nuevo en esto de las macros. estoy usando una macro para importar archivos csv en un hoja Excel, el problema es que al final necesito 8 hojas de Excel y la macro que tengo, le tengo que especificar nombre de hoja, por lo que al final tengo 8 macros. alguien me puede ayudar e indicarme que tengo que cambiar para que la macro solo me anexe los datos csv en la hoja activa. pongo ejemplo: Sub AnexarCSV50() Dim t As Single Dim LastRow As Long LastRow = Range("B8").End(xlDown).Row + 1 strFile = Application.GetOpenFilename("CSV, *.csv") If strFile = Empty Then Response = MsgBox("Ningún fichero seleccionado", _ vbOKOnly, "Error") Exit…

Buenas, Estoy copiando tablas a otro libro y no logro copiar los encabezados, si copia correctamente el mismo nombre que también me interesa Uso un buscador para que puedan elegir la ubicación del nuevo libro que se crea, el nombre del nuevo libro es "Salvo" y lo pueden cambiar por código Aguardo ayuda Saludos Adjunto CopioTablas.xlsb

Hola a todos, Me gustaría preguntar si alguien tiene desarrollada una función tal que cuando el usuario introduzca un número cualquiera, entonces la función devuelva la referencia de la columna asociada a ese número. Algo así, por ejemplo: Function ReferenciarColumnas(numero As Integer) As String Application.ScreenUpdating = False ' Limpiamos los errores anteriores (por si acaso)... Err.Clear ' Tratamos los errores de la función... On Error Resume Next ' Si el número introducido no es válido, entonces... If numero <= 0 Or numero > 16384 Then ' Notificamos al usuario con un mensaje de error... MsgBox "El nú…