Estimados ExcelFanaticos, Quisiera compartir con ustedes una Macro simple que hice para mi trabajo y pedirles ayuda con otra cosa similar al trabajo que hice. Lo que quiero hacer si ven el ejemplo, es el proceso de forma inversa, esto quiere decir desde una base de datos mediante una macro y una combobox seleccionar el nombre de un "Trabajador" y obtener una ficha de personal donde me simplifique la información y por ende me muestre solamente una ves los valores duplicados y los valores que requieren de repetición (Ej: Promoción, o Cambio de Zona) me los especifique con la fecha en que el suceso ocurrió (Ej: Juan Peres fue promovido el 20-03-2012; Cargo Antiguo "Chofer"…

Tengo un formulario el cual contiene un textbox y un ListBox. En el cual quiero que mediante una busqueda en un Textbox, se visualize en el ListBox la busqueda. 1.- Quiero que busque mediante ingresando un Sistema Origen(Ejemplo S500,S404...) que existen desde la Fila A5 y me visualize en el data Grid. 2.- Que el ListBox tenga 9 datos de la hoja de Excel CA-PRO-INS (Esta parte creo la entiendo pero ocupo la parte 1 para probar si esta bien, si se puede Gracias) Informacion Columna Sistema A, Proceso V, Bin B, Segmento E, Producto C, Instrumento D, Segmento N, AcountType O, DescripcionLarga H. Gracias de antemano Adjunto el archiv…

Hola de nuevo, Me preguntaba cómo podría hacer para que la aplicación ofimática se ejecutara única y exclusivamente dentro del mismo puesto de trabajo. De manera que si otro usuario copiara el fichero Excel e intentara ejecutarlo en otro equipo informático, le saltara un error al tratar de iniciar la aplicación ofimática. Lo único que se me ocurre es algo parecido a esto: Private Sub Workbook_Open() With Application If .UserName <> "Ayuda Excel" Then Msgbox "Uppsss... Está tratando de abrir la aplicación ofimática en otro puesto de trabajo." .Quit end if end with End Sub A alguno de vosotros se os ocurre …

Hola saludos. alguno que tenga alguna hoja excel con macros para hacer prorrateo. para tener una idea como se hace.

Buenos días a todos. Necesito convertir una celda donde tengo una fecha en una cadena de caracteres. El problema es no quiero que elimine los 0 a la izquierda. Por ejemplo 01/07/2022 debería convertirse a 20220701, sin embargo solo consigo que se convierta en 202271. Este es el código simpe que he puesto y que luego lo he de adaptar con bucles y demás. La fecha la tengo en la celda B1 y he de convertirla en la celda B2 Sub fecha_inicio() anyo = Year(Sheets("Repsol").Range("B1")) mes = Month(Sheets("Repsol").Range("B1")) dia = Day(Sheets("Repsol").Range("B1")) Sheets("Repsol").Range("B2") = anyo & mes & dia End Sub Gracias.

Buenas tardes quisiera saber si alguien me podria ayudar con una formula en VBA para acompletar en una hoja , datos de nombres que vengan de otra, anexo hoja en la cual quiero realizar esta operacion ( reporte de pagos empresas ) y otra en donde esta la formula tal y como quiero que quede (listadesplegableconautoajuste) Gracias y Saludos Formato Pagos Empresas.xls ListaDesplegableConAutoAjuste.xls

Buenas tardes, feliz año para todos Quería saber si es posible pudieran ayudarme en lo que estoy intentando hacer Tengo una planilla en donde quiero aplicar una macro en donde se borre el contenido de la fila si se cumple una condición En la columna CG11 esta el valor que debe cumplirse (cabe aclarar que desde la fila 11 en adelante quiero que se cumpla la macro, se puede poner un tope si hace falta) el valor es 70 Y desde la columna CH11 hasta EX11 los datos que quiero borrar Agradezco de vuestra atención Saludos

buenas tardes, tengo una macro que me abre hipervínculos en celdas seleccionadas Sub abrirenlaces() For Each celda In Selection If celda.Hyperlinks.Count > 0 Then celda.Hyperlinks(1).Follow NewWindow:=False Application.Wait (Now + TimeValue("00:00:01")) Next celda End Sub el problema que tengo es que, al tratar de abrir gran cantidad de enlaces, la macro solo abre un máximo de 10 y luego me da error, he probado de varias formas y distintas macros que he encontrado en la web, pero todas me dan el mismo problema muchas gracias por el apoyo y felices fiestas a todos!

Hola buenos días amigos del foro, Actualmente manejo una bitácora de actividades en mi trabajo que se maneja diariamente, pero me encargaron automatizarla un poco, entonces estoy creando una pequeña ventana para poder filtrar rápidamente los campos que son de uso diario, ahí es donde no sé como puedo crear una macro para poder agrupar los días en semana (Ej.: Semana 1: 1,2,3,... / Semana 2: 7,8,9,...) ya que por ahora solo se hace manualmente, también en la columna "Turno" como crear un combobox que seleccione varias opciones (como si fueran checkbox) la verdad entiendo algo de macros pero no soy experto, agradecería mucho cualquier ayuda o sugerencia para reestructurar …

hola muy buenas, antes que todos muchas gracias a todos ustedes quiero que me ayuden a interpretar la siguiente macro: Public Function clave(ByVal Serie As String) As Double Dim resultado As Double resultado = 0 For I = 1 To Len(Serie) resultado = resultado + Mid(Serie, I, 1) * Mid(Serie, I, 1) Next I resultado = (resultado * resultado) - (resultado * 2) + Len(Serie) clave = resultado End Function atte. oscar

El Código que adjunto no funciona Código suma no funciona.rar Código suma no funciona.rar

Buenas noches!Amig@s del foro espero se encuentren muy bien! quisiera solicitarles el apoyo con lo siguiente, tengo un problema con el siguiente código (adjunto) con este lo que se pretende es insertar la formula buscarv en las celdas de las columnas(A,B,C,D,F) en base al valor de la lectura de código de barras (TxtCodigodeBarras_) del formulario (fmrfact) y este valor es colocado a partir del rango G16 hacía abajo. El ingreso de lector del código de barras parece trabajar bien, pero al querer insertar las formulas para traer los datos de este código solamente lo hace con la fila 16, los valores de la búsqueda se obtienen de la hoja BD.Código vba: Sub convertir() On E…

Buenos días, Necesito una macro que me busque en toda la columna K el valor 0, y si las celdas de abajo estan vacias lo rellene con el mismo valor, o sea 0. Tengo esta macro que no funciona bien, porque me copia en todas las celdas el valor 0, sobreescribiendo en celdas que tienen otro valor distinto a cero y admás da un error. Sub prueba() Dim Celda As Range Dim Primeradir As String Set Celda = Range("K:K").Find(what:=Range(0).Value, _ After:=Range("K1"), _ Lookat:=xlWhole) If Not Celda Is Nothing Then Primer…

Buenos dias expertos: Solicitando su apoyo para poder resolver mi problema, el cual explico brevemente a continuacion Tengo una relacion de pagos y una relacion de facturas la cuastion es que cada factura se conforma de varios pagos y necesito identificarlos. Armando Montes subio un archivo para apoyar a otro usuario que funciona pero esta limitado a pocas lineas y yo requiero muchas mas, mucho agradecere la ayuda que me puedan prestar. Incluyo archivo con un ejemplo de los datos que tengo y el link del tema anterior Pendiente - Macro borra aleatoriamente segun varios criterios: selección columna, valores y sumatorio de otra co | Ayuda Excel Armando Montes comento que …

Hola Buenas tardes. Solicito nuevamente su orientacion y ayuda. Tengo un formulario (Formulario1) desde el cual puedo abrir el formulario2. Estoy usando esta macro en Formulario1: Formulario2.Show[/PHP] Estoy suando esta macro en el formulario 2: [PHP]Private Sub UserForm_Initialize() If FURMULARIO1.Visible = True Then Unload FROMULARIO1 End Sub[/PHP] Para que al abrir el formulario 2 se cierre el formulario 1, pero al hacerlo en viceversa me bota el error. Parcticamente lo que deseo hacer es, del formulario 1 abrir el formulario 2 y se cierre el formulario 1, y del formulario 2 poder abrir el formulario 1 y que se cierre el formulario 2. De antemano m…

Buenas he estado buscando la forma de hacer una consulta WED desde la pagina de SUNAT donde segui los pasos de la pagina de youtube de excelnegocios, bueno mi consulta es q si coloco: Set Nombres = IE.Document.getElementbyId("f5_cspm") Rpta = Nombres.InnerText donde si me sale la respuesta por que tiene un nombre Mi consulta es en la linea: <td width="30%" height="15px" class="bgn">La Boleta de Venta Electrónica B001-12414 ha sido informada a SUNAT</td> Como podria o que funcion podrian sujerirme para tener esa linea como respuesta. Me ayudarian bastante la verdad en darme luces para poder realizarlo. Les adj…

Hola Todos; Soy algo nuevo con el tema de los macros en VBA, estoy tratando de hacer uno que aplique el goal seek en cada una de las celdas en un rango determinado. Lo que he creado hasta el momento es lo siguiente: Sub GoalS() For Each cell In Range("c133:n133") If cell <> 0 Then cell.Select Selection.GoalSeek , Goal:=0, ChangingCell:=Selection.Offset(RowOffset:=-95).Select End If Next cell End Sub Pero me genera el siguiente error: Run-time error '1004: Application-defined or object-defined error Quisiera su ayuda para detectar el error. Muchas gracias

Buenas tardes!!! Estoy trabajando en un proyecto, casi esta finalizado pero me gustaría me ayudaran, LA MACRO SE UTILIZA PARA EL REGISTRO DE MALLAS (PRODUCTO) POR DÍA Y POR ÁREA PRODUCTIVA DE UNA EMPRESA DE FLORES. Al ingresar el primer registro todo perfecto, pero al ingresar el segundo registro la información se sobrescribe en las mismas celdas , necesito que se, almacene en las celdas continuas y conservar todos los registros. también les pido su ayuda para que vinculen la información a un concentrado final de todas las variedades, POR FECHA EL TOTAL DE FREEDOM PRODUCIDA 04/04/2014 Agradezco su atención mallas.zip

Hola a todos... Amigos tengo una inquietud que no logro solucionar y es por eso que estoy aca por primera vez para ver si alguien de ustedes me puede ayudar. El problema es el siguiente: Tengo una auditoria que realizar a diario, para esto me apoyo en una Macro que me organiza la informacion como la necesito, me arroja una serie de informacion por HOJAS y estas hojas estan divididas por zonas (Zona Norte, Oriente, Occidente, Sur y Centro), ahora es cuando esta el problema, me esta quitando mucho tiempo tener que filtrar cada hoja del libro por zona, crear un archivo nuevo, crear las hojas y pegar los datos de su zona correspondiente, y asi susesivamente con todas las z…

Hola muy buenas queria saber si se podria hacer lo siguiente, adjunto archivos; listaprecios.txt es archivo que bajo proveedor tal cual Lo paso a excell y se queda en listaprecios.xls Luego realizo unas modificaciones y se queda en nuevo hoja de calculo(2) En listaprecios.xls aparecen los articulos separados por las categorias a la que pertenecen cada uno, estos aparecen con ...... Yo se quitar esos ...... y dejarlo sin ellos pero necesito que las categorias aparezcan en un cuadro a lado de cada articulo en nuevo hoja de calculo 2 en vez de separado asi como aparece en listaprecios.xls He tenido que quitar articulos en realidad para que cupiese el .rar aqui. Se…

Buen dia espero me puedan ayudar mi problema es el siguente: tengo varios libros en un directorio y quisiera sumar la columna K con condiciones de la columan L y que asu vez por cada libro que sume lo ponga en una hoja que envio que se llama "Prueba" por ejemplo en la hoja viene el nombre de todos los libros quiero que la condicion sea lo que aparece de la celda B1 a M1 y que la suma del libro Abril_1951 aparesca en su fila y asi sucesivamente envio tambien la forma de como son los archivos ("Sep_2013") Prueba.zip

Buenas noches estoy trabajando en un proyecto de inventario para una frabica , la idea es caputurar la informacion con codigo de barras y se actualice el saldo, tambien tiene una captura manual , y una salida , el problema es el siguiente entradas de informacion entrada manual = userform2 entrada pistola laser = userform 30 (hoja inventario) salida userform 33 en este momento las entradas y las salidad (manual) las actualiza directamente en la hoja saldo (columna c) , formule para que me contara todo los registros que son captados con las pistola laser (codigo de barras ) estos datos los coloque en la hoja saldo columna (E) , el problama es que inicialemente lo …

Estimados, Adjunto archivo (sacado de este portal), pero lo que no logró es generar nºfactura automático, es decir, cuando lanzo el form, me pide ingresar nº factura, esto no puedo hacerlo sin necesidad de digitarlo, que me figure un nº correlativo por defecto, cada vez que ingreso los datos?. Quedo atento a toda ayuda. Gracias. registro FIN (1).part01.rar registro FIN (1).part02.rar

Buenas noches. Necesito ayuda con lo siguiente. Tengo una nómina en la que algunas personas pueden hacer 2 turnos en el día y en que además pueden tener recargos nocturnos, u horas extras diurnas y nocturnas. La jornada diurna sería desde las 6:00 am hasta las 10:00 pm. La jornada nocturna sería desde las 10:00 pm hasta las 6:00 am. Por ejemplo: Un empleado puede ingresar a laborar a las 2:00 am y terminar a las 2:00 pm El horario serían 9 horas contando con 1 hora de descanso, es decir, de 2:00 am hasta las 11:00 am. De 11:00 am hasta las 2:00 pm serian 3 horas extras diurnas. Además, de las 2:00 am hasta las 6:00 am tendrían 4 horas de recargo nocturno. Este m…

Hola buenas tardes a todos. Por ahí encontré un código que realiza búsqueda y regresa múltiples resultados, sin embargo, no logro identificar como sería para que me repita los datos de acuerdo a un rango de fechas, adjunto archivo en donde muestro de como actualmente me devuelve el resultado y como debe de quedar, Ojala alguien me puede orientar, de antemano gracias... Saludos, Diego Busqueda con multiples resultados.xlsm