Hola amigos de Excel tengo una consulta de como se puede hacer un reporte de stock para cada codigo con cabecera . para que se entienda mejor puse con colores y agrupe los datos que pertenecen a una misma venta o compra que tienen varios items. no se si se puede llegar a al resultado final filtrando o con código ,pero puse una celdas para hacer las consultas de fecha para que me filtre el resultado que deseo . no se si esta mal la base de datos pero asi registran los datos, no se si se puede llegar al resultado que deje. bueno para que me entiendan mejor en el archivo esta como quedaria el resultado final . hay otros reportes que saca un program…

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…

Buenos dias, agradeceria vuestra ayuda.Tengo un cuadrante general mensual, donde aparecen todas las personas con sus turnos, el cual se envia en pdf por la macro anexa a todos los correos que figuran en la columna B.Lo que necesito es en lugar de enviar el cuadrante a todo el mundo,(1 correo a 10 personas) como hasta ahora, enviar el cuadrante de cada persona solo con sus turnos, sin datos de los demas.(1 correo por persona con solo sus datos)He probado con formulas, pero me fallan con algunos numeros, supongo que por el tema de buscarv.Anexo la plantilla que estoy intentando hacer.Gracias Prueba1.xlsm

Hola a todos. Tengo un libro de excel con varias hojas (por ahora son 33, pero si todo va bien llegará a tener cientos de hojas). El libro comienza por tres hojas, que son Resumen, Relación y Recibos. Luego comienza una serie de hojas, que son 001, 002, 003, y así hasta la penúltima, que es la 029 y la última, que es la 999. Lógicamente, las hojas irán aumentando a lo largo del tiempo, o lo que es lo mismo: dentro de un mes, probablemente la penúltima hoja no será 029, sino, por ejemplo, 032. Y así sucesivamente. Dentro de esas hojas, tengo cuatro celdas que normalmente devuelven el valor NO, pero que cuando ocurren ciertos cambios devuelven el valor SI. Pues bien: l…

Genios del Excel! Vuelvo a recurrir a ustedes con un pedido un poco más sotisficado. Les comparto la planilla Ejemplo Excel. En la hoja "Hoja a imprimir" hay una tabla con dos gráficos que se pueden ir modificando a partir de la lista desplegable ubicada en la celda B1. Desde allí se pueden seleccionar distintos cursos y el excel se actualiza de acuerdo a los datos del curso. Como este excel tengo muchos, en la mayoría en lugar de tener 5 opciones tiene 200. Me sería de gran utilidad generar algún código que me permita imprimir ese excel con cada una de las opciones de la lista en un word. Es decir: que en la página 1 del word aparezca la información del curso 1, en la…

Buen día, espero me puedan ayudar. Recién estoy empezando con las Macros, grabe una macro para realizar un reporte con 2 tablas dinámicas de diferentes base de datos en una misma hoja, para que la macro me corriera le elimine el nombre de la hoja, dejándolo en blanco (TableDestination:=""), y la tabla dinámica la renombre para que me ponga una en especifico (TableName:=Crédito ACI By DCH y TableName:=Contado ACI By DCH). La macro corre sin problemas pero en vez de crearme el reporte en una misma hoja, me crea 2 hojas diferentes. Pienso que el error esta al momento de crear la 2da tabla dinámica que en el nombre de la hoja no le pongo un nombre en especifico por eso me c…

Buenos días, Me podrían indicar cómo actualizar automátimamente una conexión desde CRM? [ATTACH]41724.vB[/ATTACH] He intentado grabar una macro realizando el siguiente proceso: DATOS → Actualizar desde CRM. Pero al revisar en el módulo de VBA, no se genera ningún código asociado. Les agradezco su asesoría. Saludos Cordiales

Hola a todos, estoy realizando una macro, tengo una base general, y otra separada por cliente, la idea es buscar la informacion de cada cliente en la base general y llevarla a la base por cliente, pero si el nombre del cliente se repite, ¿como hago para que cada vez me lleve la ultima informacion sin quitar la que dias anteriores se puso? Macro BPA.txt

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…

Sub Copiarypegar() Application.ScreenUpdating = False 'Range("Q1:EF1").Locked = False 'Seleccionamos todo el área contínua de datos, desde la celda donde estamos situados Range("a12:A30").Select 'seleciona el rango especifico 'ActiveCell.CurrentRegion.Select 'Copiamos Selection.Copy 'Pegamos en A12 de la hoja 2 Sheets("DAILY REPORT").Select Range("A12").Select 'el control se hará sobre la columna A, a partir de la fila While ActiveCell.Value <> "" 'Busca la ultima fila ActiveCell.Offset(1, 0).Select 'si la celda contiene datos, pasa a la fila siguiente Wend ActiveSheet.PasteSpecial Application.CutCopyMode = False 'Hoja1.Rows(12).ClearContents Hoja1.…

Buenos días; Ayer me surgió un pequeño problema en la macro que estoy montando, os comento para ver si me podéis ayudar. Al intentar hacer una consulta sql de un Excel nuevo ( sin guardar ) me está dando error en la ruta ( al no estar guardado no tiene ruta ) y no sé cómo ponerlo. Esto es lo que he puesto pero sin éxito. Excel_Nuevo = ActiveWorkbook.Name RutaExcel = "Data Source=" & Workbooks(Excel_Nuevo).Path & "\" & Excel_Nuevo & ";Extended Properties=""Excel 12.0;HDR=Yes;""" Adjunto excel. Gracias y un saludo, Libro3.xlsm

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]

hola he creado un a aplicacion y en uno de los modulos abre y cierra otro libro de excel dependiendo los cambios que se le hagan guarda y cierra pero al terminar de usar la aplicacion quedan muchas ventanas vacias abiertas tantas como capturas o modificaciones que hice este es mi codigo Private Sub MultiPage2_Click(ByVal Index As Long) If MultiPage2.Value = 0 Then Application.Visible = False Application.ScreenUpdating = False Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "server.xlsx" Worksheets("MATERIALES").Activate Worksheets("MATERIALES").AutoFilter.Sort.SortFields.Clear Worksheets("MATERIALES").AutoFilte…

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…

Buenos Dias Por favor me pueden ayudar ya que tengo el siguiente codigo para buscar pero me sale error, por favor su apoyo. Dim ult As Integer Dim datoBusqueda As String Dim ncontrato As Long ult = transRowRng.Rows.Count datoBusqueda = TextBox1.Text If datoBusqueda = "" Then MsgBox "Búsqueda cancelada", vbInformation, "Mensaje" Exit Sub Else ncontrato = Val(datoBusqueda) For j = 1 To ult If Cells(j, 2) = ncontrato Then cont = 1 fila = j TextBox2.Text = Cells(j, 3) End If Next j End If If cont = 0 Then MsgBox "Contrato no encontrado", vbInform…

Buenos días: Ante todo saludados y agradeceros lo que, poco a poco he ido aprendiendo en este foro, aunque de forma anónima, Este es mi primer post y entro preguntando y con una consulta ya que me encuentro atascado en una hoja y no se como solucionar mi problema, os cuento: Tengo una hoja en la que dependiendo de la categoría profesional que se le ponga, permite poner dietas o no. La Categoría se coge de una lista desplegable y la celda dietas tiene una validación de datos personalizada con formula que "mira" en una celda que número hay, el número viene de una función "O" que analiza anteriormente las categorías que se han introducido y solo muestra "VERDADERO" si s…

Hola buenas tengo un problema con mi formulario la verdad es q no se como hacerlo le explico. tengo un formulario que esta especificado el nombre, el mes y el subtotal, con el boton agregar se guardan en el list box deacuerdo a lo asignado, ahora mi problema es el siguiente un vendedor en el mes de abril (como ejemplo) hace 5 ventas de x cantidad lo cual se agregan luego en marzo vende otras 5 tambien por x cantidad lo cual esta pintado en el listbox, ahora mi problema es que cuando pulse el boton guardar se guarde en la hoja de excel y sume el total de las ventas de un mismo mes y luego lo guarde en la columna del mes que corresponda. despues de hacer eso segun se con…

Hola amigos tengo un problemilla que quizás para ustedes expertos será fácil una tabla con muchas filas y columnas entre esas columnas 4 tienen fechas q suman días a partir de la primera sumando+7dias, +14dias y +28 días para su próxima verificación el tema es q diariamente tengo q imprimir las referencias q se revisaran al día siguiente con la grabadora de macros obtuve este código Sub ensayo() ' ensayo Macro Columns("A:H").Select Selection.ClearContents Sheets("Muestras").Visible = True Sheets("Muestras").Select Columns("BO:BO").Select ActiveSheet.Range("$BO$1:$BO$2001").AutoFilter Fiel…

Buenos días, Antes de nada decir que de Visual Basic no sé absolutamente nada. Gracias a tutoriales he conseguido crear un archivo con varias formas que unidas representan el mapa de España por Comunidades Autónomas. La idea es que en función de una escala de valores, las Comunidades salgan rellenas de un color u otro. He conseguido hacer esto utilizando los colores más básicos, pero lo quiero hacer con degradados de azules, verdes o cualquier otro color y ahí viene el problema. Cuando sobrepaso el número 80 de color en la formulación me da error. Os subo el archivo para que lo podáis ver (debido al peso del archivo no me deja subirlo). Pego aquí la macro y…

Hola, tengo una pequeña duda. ¿Cuales son los pros y/o los contras de modificar o establecer propiedades a control (p.e. Combobox) mediante la ventana de propiedades o, mediante codigo? Gracias.

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

Buenas tardes, estoy tratando de hacer una planilla para gestionar el stock de insumos. Intento realizar mediante una macro (la cual está asignada a un botón) la carga de información de ingresos y salidas de insumos a la base de datos. La macro consiste en copiar y pegar en otra parte de la planilla. El problema surge de que siempre me vuelve a copiar la información en la misma celda inicial, sustituyendo la información anterior, y lo que yo pretendo es que se valla completando hacia abajo dicha base de datos. Espero haber sido claro con la explicación del problema. Saludos a todos, Mauricio Gestion de insumos.rar

Hola a todos, necesito de su valiosa ayuda, tengo una macro que corre dentro de Private Sub Worksheet_SelectionChange(ByVal Target As Range) la cual es la siguiente: If Target.Address = "$AQ$3" Then Call ABRE If Target.Address = "$AQ$4" Then Call ABRE If Target.Address = "$AQ$5" Then Call ABRE If Target.Address = "$AQ$6" Then Call ABRE If Target.Address = "$AQ$7" Then Call ABRE .... Al final el rango arriba descrito termina filtrado y lo que necesito es que analice si la fila AQ3 esta visible y si es asi ejecute la macro abre() y si no tiene la propiedad visible no ejecute la macro y en ambos casos haga el recorrido automatico osea bajarse a la siguiente fila. Gra…

Sumar fecha en un formulario Tengo un Form para crear facturas y en un text box tengo la fecha (sacada de un DTPicker), en otro Text Box coloco el numero de dias de plazo que le doy al cliente para pagar y quiero que en un tercer Text box que tengo otro DTPicker ya me salga la fecha en que el cliente me deberá pagar (en definiva que el DTPicker me muestre ya la fecha de pago).

Hola, tengo un problema, tengo un codigo para hacer que en una celda desaparezca las letras y solo queden los numeros. Pues bien, lo coloco en VBA y lo ejecuto, todo funciona bien hasta que cierro excel y al abrirlo me da error. El código no se guarda. Me podéis decir como hago para que el codigo sea funcional en todas las hojas de excel que abra. Gracias