Hola Maestro GERSON o alguien que me pueda ayudar con esta pregunta no se si sea posible o no quisiera sumar en el ListBox que esta en el UserForm aqui les dejo el ejemplo por si alguin me puede Ayudar GRACIAS po adelantado Y Saludos Para Mandar.rar

tengo una pequeña interfaz que al dar inicio me abre unas opciones, cuando entro a la opcion centralizado me da 3 opciones, al entrar a cualquiera de ellas me envia a una tabla de selección. lo que deseo es que no se me abra un userform2 quiero que esa tabla se me abra en la pestaña 8 donde dice controladores y que la tabla que tengo al lado derecho de la hoja 1 de exel me quede en la hoja 2... le agradezco al que me ayude por que no e podido realizar este paso. adjunto el programita que estoy realizando perdon por lo feo que esta pero hasta ahora lo estoy realizando http://www.4shared.com/file/qDNq5mC4...nta_exel.html? herramienta_exel.part2.rar herramienta_exel.part1…

Hola a todos, Tengo este evento creado de tipo Worksheet_BeforeDelete: Private Sub Worksheet_BeforeDelete() Application.ScreenUpdating = False Application.StatusBar = "Procedimiento en ejecución..." ' Limpiamos los errores anteriores (por si acaso)... Err.Clear ' Tratamos los errores del evento... On Error Resume Next ' Si la contraseña no coincide, entonces... If FUNCIONES.comprobarContraseña(CONTRASEÑA_HOJA) = False Then ' Copiamos la hoja... ThisWorkbook.ActiveSheet.Copy After:=Sheets(ThisWorkbook.ActiveSheet.Index) ' Y notificamos al usuario con un mensaje de alerta... MsgBox Prompt:="Upps, parece que hubo un error…

Muy buenas de nuevo foreros! De nuevo vuelvo a pedir consejo a vosotros, genios del excel! Os explico un poco lo que me sucede. Tengo un Useform (funciona perfectamente), que por medio de cinco textbox me pide diferentes datos: Textbox1 es de tipo numerico Textobox2 y 3 de tipo texto Textbox 5 y 5 de tipo fecha Y ademas tengo 5 optionbutton. Para completar el useform, tengo el boton de "aceptar", que lo valida todo y el de cancelar, que lo cancela (obvio, no?)jeje. Bueno, al grano. Todo me funciona a la perfeccion, pero, para mejoralo un poco, me gustaria que si se introdujese en un campo algo erroneo (por ejemplo, en el textbox1 texto), saliese un mensaje de error.…

Hola ! Necesito crear una macro que seleccione una serie de campos de una hoja excel y los pegue al final de unos registros de otra hoja diferente. Por favor, ¿ podéis ayudarme ? Muchas gracias y un saludo. P.D. Os adjunto un fichero ejemplo de lo que necesito Fichero_macro.xls

Hola gente, mi pregunta es como puedo programar el botón de guardar de este formulario si tengo 2 text box que son nombre y fecha y 3 listbox que son articulo, cantidad, motivo como se muestra en la imagen, espero tener una pronta repuesta, gracias [ATTACH]40458.vB[/ATTACH]

Saludos mis estimado compañeros... Les comento que estoy trabajando en un proyecto, y dentro de las características del mismo, es necesario llevar un control sobre el número de día que hay de una fecha a otra (sin tomar en cuentas los fines de semana), pues en éste asunto todo me ha ido bien. La información es mostrada en un formulario. La información está asociada a un número de registro y efectivamente el calculo de los dias entre fechas si ocurre (dicho cálculo se muestra en una etiqueta llamada "LB_R").... dónde necesito que me orienten (porque no doy como) es: que al evaluarse el resultado de la etiqueta y si éste es mayor o igual a 90 en otra etiqueta me muestre l…

Buenas y salu2. Tengo un pequeño problema y no se cómo afrontarlo. El caso es que en un directorio tengo varios archivos (unos doscientos) que se descargan de la web y esta les pone un nombre bastante largo separando una primera parte del resto de caracteres del nombre mediante uno varios guiones bajos "_" ejemplo "nombre de fichero_13568_administ_trade.xls" . Bien, lo que necesito hacer es renombrar masivamente estos archivos de tal forma que me borre todo lo que hay a la derecha del "_", incluido el propio "_", dejando la misma extensión para terminar quedando así "nombre de fichero.xls".. A veces no son guiones bajos y sí otros caracteres separadores, como guiones medi…

Hola amigos del Foro, tengo una macro que Filtra con un buscador textbox en una hoja excel y la macro funciona, pero sin embargo lo que necesito y no pude como hacerlo es que al momento de filtrar necesito que busque o filtre pero ignorando las filas que escondí en la hoja excel que son la fila 18 y 19...y al momento de filtrar muestra las filas. una ayuda por favor. gracias de ante mano...ahi les dejo el archivo adjunto. Libro4.xlsm

Buenos días,Estoy realizando unas tablas y tengo el siguiente problema,En la hoja 1 tengo unos nombres con unas notas (Columna A nombres y Columna B notas), en otra hoja del mismo libro tengo lo mismo y lo que quiero hacer es lo siguientes:Que las notas las pueda modificar tanto en la hoja 1 como en la otra y que siempre tenga en las dos hojas el último valor escrito.Espero me puedan ayudar.Gracias.

buen dia esperando que me puedan contestar una duda que tengo. he creado una macro para copiar y pegar datos de diferentes libros *.csv a un libro *.xls donde consigo copiar y pegar solo 3530 datos. dado que cada libro *.csv hay aproximadamente 3530 datos el resultado final que me arroja el archivo *.xls es solo guarda los datos del ultimo libro que gusdo como si los pegara encima del anterior la macro que hice fue esta [ Sub analisis2() ' ' ' Dim FolderPath As String Dim FileName As String Dim files As String nbre = Format(Now, "dd-mm-yy") files = "C:\pomini2\" & nbre & "\analisis.xlsx" Set car = CreateObject("Scripting.FileSy…

Buenos días, amigos. Excel 2003 + SP3 A ver si soy capaz de explicarme con claridad. Tengo un libro que contiene mucho VBA, muchas fórmulas y con una base de datos que me ocupa unas 40 hojas completitas de registros. Por lo tanto, es normal y lógico que el archivo pese cerca de 8 Mb. Este libro es un proyecto (por cierto, que creía ya terminado), hecho para una tarifa de precios junto a una hoja diseñada para presupuestos. Cada vez que hacemos uno, se guarda en una ruta establecida y con el nombre según el valor de una celda, y el guardado se ejecuta con una macro con el siguiente código: [COLOR="#0000FF"]Sub GuardarDirecto() Dim ruta As String On Error Resume N…

Buenas noches, nuevamente recurro a su ayuda se me ha presentado un problema quisiera ordenar por el tercer dígito ejemplo El primer numero es 105 le sigue 1051 luego sigue 1052, luego sigue 106 luego 1061 y después 1062 así sucesivamente con diferentes dígitos, sera posible hacerlo mediante una macro. Adjunto un archivo el cual explica como quisiera ordenar Gracias por sus comentarios y sus aportes. ordenar.rar

Amigos tengo este pequeña consulta, veran tengo en excel undata bajada de mi DB la cual despues modifico poniendo un dato en la columna B, ahora quiere exporta eta informacion a la DB falta como este en el archivo adjunto. mediante macro se puede realizar esta tarea, subir la tabla y el dato que esta en b1. por favor me pueden dar una ayuda, como podría realizarlo. Adjunto archivo y imagen de la conexión que utilizo Saludos Muscaria Zonas.rar

Estimados, quiero solictar de su ayuda para el siguiente problema Tengo un Form en donde puedo realizar consultas mediante listbox, pero lo que necesito es que al pinchar el checkbox se consolide los datos por codigo o nombre de producto. En el form existe la posibilidad de consultar por producto pero los da en detalle y la idea es que se puedan visualizar ambas opciones tanto consolidado como en detalle y que cuando consolide los datos tambien sume los valores que tiene cada uno. espero haberme explicado bien y que puedan entender mi solicitud. saludos. Consolidar.rar

Grabe una macro en excel donde busco un archivo txt y en el mismo selecciono los campos que requiero, lo que quisiera ver la posibilidad de que pudiera utilizar una macro similar para todos los archivos que a diario me llegan con las mismas caracteristicas, ya que la macro que grabo solo me deja utilizar para ese archivo que grabo. Adjunto el ejemplo de parte de un txt que use para la macro: Sub BANESCO() ' ' BANESCO Macro ' EXTRAER LOS DATOS QUE NECESITO ' ' ChDir _ "C:\Users\Administrador\Dropbox\RED DE COBRANZA\INGRESOS BANCOS\INGRESOS BANCOS\INGRESOS BANESCO\Ingresos 2013\Noviembre" Workbooks.OpenText Filename:= _ "C:\Users\Administr…

Al intentar acceder a páginas https de google como el correo o a paginas de youtube, el objeto IE cambia y no puedo acceder a la colección de elementos HTML usando las típicas sentencias: For Each p In IE.document.all For Each r In IE.GetElementsByTagName(TagName)[/CODE] Al parecer es un plugin de google llamado Google Chrome FrameChromeFrame BHO, según Esta Pagina, cito: Dicho plugin lo instalé por que youtube me insistió encarecidamente que o lo instalaba o perderia muchas funcionalidades de la nueva interfaz. Un acelerador de páginas que cuando está activado, el objeto se muestra sin apenas opciones ni muestra colección de elementos HTML, adjunto 2 im…

Buen día a todos, soy principiante en el foro e intermedio en EXCEL, les cuento lo que necesito: Tengo unas bases de datos que contienen una sola columna con unos 100.000 datos (todos numericos) y con esta columna tengo que crear n archivos de n cantidad de datos cada uno (por ejemplo ahora yo copio y pego de a 2.500 datos) alguien me puede guiar como puedo automatizar este proceso??? AHI DEJE EL ARCHIVO ADJUNTO DE EJEMPLO, LO TUVE QUE HACER RAR PORQUE NO LO PODIA SUBIR DE OTRA FORMA saludos Pablo ejemplo 42k de datos.rar

Buenas tardes amigos de "AyudaExcel" me podrian ayudar introduciendo un código para que aparezca un MsgBox que diga "No se encontro el dato" a no haber el dato en un código de busqueda que tengo no se donde colocarlo e probado unas opciones pero no mismo ya se que para ustedes será algo fácil pero para los que estamos iniciando se nos hace un poco dificil. Gracias por su ayuda amigos y una buena tarde Adjunto el código que tengo de busqueda en el cual quiero insertar el MsgBox Private Sub Buscar_Click() If cboLote.ListIndex > -1 Then Lote = cboLote Set celda = Base_Datos.Columns("A").Find(What:=Lote, LookAt:=xlWhole) If N…

hola a todos, tengo una macro de excel que me abre unos archivos de un directorio, uno a uno los imprime en pdf con Acrobat y los cierra. Es muy sencilla. Lo que quisiera es que al imprimir no me saliera la barra de progreso ya que me va más lento que si lo hago manual y no consiguo cerrar la barra y el boton que sale de ocultar tampoco me funciona. ¿Sabe alguien algo de este tema?? Muchas gracias:peaceful:

Buenas noches, Tengo una macro que actualmente utilizo para marcar con una "x" o no segun haga click en una celda, actualmente lo hace sobre toda la columna J como se va a ver en el codigo. Mi pregunta es como deberia declararlo para decirle que actue solo en un conjunto de determinadas celdas deseadas , Ej: "(J17;J18;J22;j28) y no sobre toda la columna como hace actualmente Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Columns("J:J")) Is Nothing Then Exit Sub If Target.Row < 2 Then Exit Sub If ActiveCell = "x" Then ActiveCell = "" Else ActiveCell = "x" End If End Sub Muchas gra…

Que tal Expertos tengo un problema con un archivo en el cual después de usar una macro queda como la columna B quisiera saber si hay la posibilidad que pueda quedar como la columna C y ordenada si esposible espero su ayuda ya que se que ustedes son de gran conocimiento les adjunto el archivo Gracias Nombres.zip

Hola, Necesito hacer un filtro por medio de casillas de verificación, para que el usuario pueda elegir uno o más criterios, estuve buscando en internet y cree un código basada en algunos que vi pero no me funciona. Se los pego a ver si alguien me puede ayudar. (Tengo 4 columnas con 16 registros, la primera columna es el criterio q quiero filtrar) Sub Search_Click() Application.ScreenUpdating = False If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False M = Array("", "Hub", "Flange", "Segment") For x = 1 To 3 If Controls("Hub,Flange,Segment" & x).Value = False Then M(x) = "" Next ActiveSheet.Range("$A$2:$e$20").AutoFilter , _ F…

Hola tengo un problema estoy haciendo un macro para registrar las facturas, el problema es que todavia no lo tengo muy claro con los macros el tema es asi, tengo una factura que despues de imprimir tengo que generar un macro que me copie la informacion a otra hoja. el tema es que tengo varios productos para una sola factura entonces pasa que en una sola filas no queda todos los items sino que queda en maximo 10 filas entonces pasa 2 cosas si grabo el macro no se luego como hacer para que los nuevos datos los grabe abajo de los antiguos si alguien tiene alguna idea gracias dejo lo que tengo grabado en el macro Sub Macro4() ' ' Macro4 Macro ' ' ActiveCell.FormulaR…

Buenas tardes a todos. Tengo una pequeña inquietud que le he dado infinidad de vueltas y no doy. Es algo como esto: With r(1, 7).Resize(r.Rows.Count, 1) .FormulaR1C1 = "=IF(RC[-2]> sm * 4, RC[-2] * 0.01,0)" .Value = .Value End With Trato de comparar la celda escogida con la variable sm, pero no sé cómo llevar esta variable a la fórmula. He intentado con comillas, dobles comillas pero no doy. Alguna idea?? Muchas gracias por su tiempo Boris