Bendiciones: Tengo un userform (formatomoneda) con dos textbox y un label, en el primer texbox se ingresa una cantidad que debe ser mostrada en el textbox2 y en el label1, en ambos casos son producto de un calculo, en el siguiente formato $ 1,245.56. Adjunto archivo, espero puedan ayudarme Formato a textbox.rar

A ver si alguien me puede ayudar¡¡ De entrada gracias a todos y perdón por mi ignorancia... soy bastante nueva en estos temas... Después de mucho buscar no sé cómo solucionar el siguiente problema... He creado una macro... y he conseguido que funcione¡¡¡ es la siguiente Sub test() Dim i As Long, j As Long, rw As Long Dim rng As Range, cel As Range Dim arrWords Dim xlCalc As XlCalculation arrWords = Array("number", "media", "genotype", "user", "experiment", "box", "age", "scale", "root") ' edit the array as required xlCalc = Application.Calculation Set rng = Range("c1:c2000") For rw = rng.Rows(rng.Rows.Count).Row To rng.Rows(1).Row Step -1 …

Hola a tod@s, creo que una buena explicación de lo que se quiere realizar es media respuesta, por lo que voy a intentar explicarme, tengo una carpeta con unos 8000 archivos (imágenes) con nombre numérico, por otro lado tengo unos listados en excel de diferentes marcas (Aprilia, BMW, etc.) y cada marca tiene en la columna A los nombres de los archivos que corresponden a las imágenes de estas marcas, necesitaría poder seleccionar los archivos de cada marca y copiarlos en carpetas independientes (Aprilia, BMW, etc..). Gracias por vuestra ayuda, si alguien tiene algún macro le agradecería enormemente que me lo explicara como ejecutarlo desde el principio paso a paso (soy un …

Hola les envio esta utileria para generar un layout de horas extras para efectos de subirlo a un sistema de nominas me da un resultado satisfactorio para 30 gentes aqui mi problema es como puedo compactar el procedimiento que tengo de los primeros cuatro pasos y hacerlo para mas gentes aclaro soy un mortal que le gusta optimizar sus procesos mediante, la aplicacion de los codigos que ustedes ponen en este foro me han ayudado en grande , comparto esto , pero tiene esa limitante de que no puedo generarlo para mas gente por que me da el error de que el procedimiento es demasiado largo saludos LAYOUTEXTRAS.zip

¿Como mostrar imagen en formulario? Hola. Deseo mostrar una imagen fija en un formulario, buscando encontre un codigo que no me funciona: Image1.Picture = LoadPicture("c:\imagen.jpg") Me da un error 481 que dice Imagen no valida, ¿estare haciendo algo mal? Saludos.

buenas tardes, quisiera saber si hay algun codigo para hacer un userform siempre visible, osea que este siempre sobre todo. gracias

tengo el siguiente problema quiero migrar una macro que tengo en 2003 a 2007, esta macro me busca un archivo pdf de acuerdo a los parametros que le paso, pero no encuentro la forma de hacerlo funcional en 2007 mi codigo es el siguiente la parte que esta en negrita es la que no me funciona en la version 2007 Sub Buscar_POs_PDF() A = 1 B = 1 Path_PDFs = UserForm1.TextBox2.Text & "\" FechaPDF = UserForm1.TextBox3.Value Campo_Fecha = Format(FechaPDF, "dd/mm/yyyy") Windows("Plantilla2.xls").Activate final = Cells(65536, "A").End(xlUp).Row Vector_Exclusion( = "" Vector_PDF(A) = "" Cells(2, 5).Select For i = 2 To final UserForm1.Label9.Caption = "PO: " & Ac…

Gente tengo una pregunta, estoy haciendo una planilla para mi negocio, la misma consiste en comparar los precios de listas nuevas contra las de las viejas, el tema es que tengo muchisimos articulos, entonces hice una macro donde compara todo y me ordena los precios que se modificaron, hasta ahi voy bien ahora mi consulta es la siguiente, despues de este codigo que es el de buscar Cells.Find(What:=Range("d1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate yo necesito que desde la celda que quedo activada me seleccione 4 celdas para la derecha y todo para abajo y l…

Buenas Tardes Tengo un problema con una macro que cree para ejecutar una consulta desde excel y que traiga los resultados en una celda en particular. Hace meses la vengo usando y funcionaba perfecto, pero desde la semana pasada me tira este error: RUN TIMER ERROR 1004 Application defined or objet defined error y se tilda la siguiente sentencia .Refresh BackgroundQuery:=False Llevo toda una semana investigando que puede ser y no encuentro nada. Agradezco su ayuda *******!!!! Dim varSQL ' OBTIENE EL NUMERO SIGUIENTE DE BASE varSQL = Sheets("ArmadoQuery").Range("c23") Sheets("Resultado").Select Range("F15").Select Selection.ClearContents…

si me pueden ayudar por favor tengo el siguiente problema al aplicar esta formula: SI(Y(AK1>AJ1;AK1=SALIDA!I1);SALIDA!$G$5;FALSO) SI(AK2<>FALSO;SALIDA!$B$5;FALSO) SI(AK3<>FALSO;SALIDA!$B$3;FALSO) SI(NOMXXI<>FALSO;SI.ERROR(BUSCARV(COLXXI;SALIDA!$A$8:$I$27;9;0);"");"") si me busca lo que kiero y todo pero nomxxi depende de otras celdas y todo se hecha a perder cuando en mi hoja cambio el valor de SALIDA!I1 todo se me vuelve y los valores que había buscado con buscarv se me borran y se pasan a la siguiente columna que tiene las mismas formulas hay alguna forma de que los busque ahi me lo deje aunque lo demaqs se vuelva falso Dirección de correo: …

Que tal, tengo la siguiente situación y no tengo idea de como resolverlo,la cuestión es esta, tengo 2 subrutinas y necesito que se aplique una u otra a partir de una desicion en este caso del usuario (ya sea moneda dolar ò moneda peso la macro insertara un valor), actualmente las tengo por separado pero no me es funcional. Igual y me complique yo solo en la forma que plante la solucion. opcion moneda.rar

Buenas tardes, estoy trabajando en un archivo que me extrae información de un archivo externo, bajado de sap, hasta ahi todo funciona bien. Pero le quise agregar una nueva hoja que extraiga información del reporte generado y dependiendo el dia de la semana, lo pegue en su respectivo espacio en la tercer hoja. El problema es que ya con el codigo, me marca un error de aplicacion u objeto mal definido y no se como arreglar ese error. No les pude adjuntar el archivo, pero mando el código, por si le pudieran encontrar algún error. El error me lo marca al llegar a la linea que resalté en negritas. Sub max() Dim miRango As Range Application.ScreenUpdating = False ActiveWor…

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

hola amigos tengo una gran duda:concern: y esperando me puedan ayudar a resolverlo porque lo que quiero hacer es poder hacer una macro que dentro de una hoja y una columna en especifico me busque: 1) la celda que esté coloreada 2) el contenido no numerico de la celda (es decir lo que sea numerico lo deje) una vez que haya encontrado ya sea una u otra o ambas condiciones (las anteriores) seleccione toda la fila...esto es en toda la hoja dejando seleccionado lo ya encontrado,,,dejandolo disponible :livid:como para poderlo copia,cortar,pintar mover etc. sera posible hacer eso?:abnormal: ok perdon es que soy nuevo en el foro asi como en vba, aunque la verdad esto si me e…

Control Calendario en excel 2010 64 bits Amigos, nuevamente recurro a ustedes. Tengo un archivo que he reducido para poder subirlo. En el hay un calendario asociado a un label. En excel 2010 32 bits funcionaba perfecto, sin embargo en excel 2010 64 bits no anda. Aparece "No se encontró el método o el dato miembro". Intente agregar el MSCal.ocx, pero igual no anda. Alguna solución?? Desde ya quedo agradecido por sus innumerables asistencias. Saludos desde Chile. Ejemplo Calendario.rar

Hola amigos de AyudaExcel, realice una aplicación en excel 2003 es un formulario multipage y se ejecuta desde un boton el la Hoja1 del libro de excel y todo funciona bien pero cuando la trato de ejecutar en el ordenador donde estara esta aplicación me marca el siguiente error "Micrisoft Office Excel ha detectado un problemay debe cerrarse...... esto ocurre en el siguiente momento... abro la aplicacion y se abre sin ningun problema y cuando doy click en el boton que inclui para que se ejecutara el programa vba de formulario se pone la pantalla an blanco y se despliega el mensaje de error le puse ver el contenido y despliega lo siguiente: "Firma del error AppName: excel.e…

Buen día, agradezco desde ya a las personas que me puedan asistir en esta macro ya que estoy incursionando recién (tarde, pero lo haremos :suspicion: ). La idea de la macro es para una planilla diaria que armo para darle a las cuadrillas bajo mi cargo las tareas del día (adjunto planilla .xls). Lo que tengo pensado armar, es lo siguiente: 1 - Todos los datos de la planilla son cargados manualmente, lo que deseo hacer "automático" por decirlo de alguna manera es que una vez ingresados los datos desde la columna B hasta la columna K, halla un botón que apriete y me pregunte la fecha que quiero colocar, llenando de esa manera la columna A. Simplemente eso, desde ya le ag…

Este tema aparece como pendiente, pero cuando vas a contestar, aparece como cerrado: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/formulario-sub-function-25739/ Esta sería la respuesta Private Sub UserForm_Activate() Me.Caption = "PROVEEDORES" CommandButton1.Caption = "Nuevo proveedor" [color=#ff0000][b] actualiza_y_carga '<========== Este procedimiento no existe[/b][/color] End Sub [/code]

hola amigos estoy pretendiendo:frog: hacer un especie de semaforo de actividades, es decir; que por ejemplo en determinada fecha se registró una actividad pero al transcurrir el tiempo:uncomfortableness: necesito que el sistema me de el indicador de "*******" (rojo), "prevenirse" (amarillo), "sin problema" (verde):cold:...esto lo quiero hacer obteniendo la informacion de las celdas de excel y que cuando abra el formulario de esa celda activa me muestre dicho semaforo...¿creen poderme ayudar almenos con las ideas?:concern: gracias y saludos conteodediasmesesyaños.xls

Hola, estoy haciendo una programita con excel siguiendo un tutorial pero necesito establecer rangos de una hoja la cual tiene varias columnas,al hacerlo el nombre de cada columna aparece separado por "comas", y necesito que aparezca separados por "\", no se si es por la version del excel, o que pasa...alguien sabra como lo puedo hacer..gracias

Buenos Dias, el dia de ayer me arreglaron el siguiente código ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Hoja1!R1C1:R" & Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row & "C28", _ Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:="Hoja2!R4C1", TableName:="Tabla Dinamica2", _ DefaultVersion:=xlPivotTableVersion14 y funciono perfecto, ahora quiero remplazarlo en en otra macro y remplace algunos campos : …

Hola amigos espero puedan ayudarme con esto, paso a contarles Tengo una Aplicación que me genera un número al cual guardo en un archivo .txt, luego tengo una hoja excel la cual me genera un Codigo PDF417, o sea le ingreso en una celda algun dato y presionando un boton GENERAR me codifica la información. Lo que quiero hacer es agregar un boton que sea LEER para que me lea desde el archivo .txt el número guardado y lo inserte en la celda desde la cual generaré el codigo PDF. Espero me hayan entendio y espero sus comentarios. Saludos.-

Hola buenas,soy nuevo en este foro aunque lo he visitado numerosas veces. en uno de su temas vi el siguiente codigo para desactivar las funciones de excel ExecuteExcel4Macro("show.toolbar(""ribbon"",false)") y yo lo coloque en private sub ThisWorkbook_open() el problema es que el resulñtado no me ha gustado , porque se abre minimizado dentro del propio excel ,y ahora no se como hacer para que el archivo se abra normalmente necesitaria ayuda y si pueden explicarmelo para principiante en vba lo agradecere ; gracias

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…

Hola, Me gustaría saber si es posible que con una formula escriba en diferentes celdas, es decir, en mi caso encontré una fórmula que me concatenaba resultados respecto a un rango (que también me valía), pero ahora querría modificarla para que me "extrajera" los resultados a partir de la celda donde pongo la formula. Pego aquí el código. Function MULTCONCAT(lista As Range) Dim ncell As Range Dim m_concat As String m_concat = "" i = 1 For Each ncell In lista If ncell <> "" Then If i = 1 Then m_concat = m_concat & ncell.Value i = i + 1 Else m_concat = m_concat & " or " & ncell.Value End If End If Next ncell m_concat = …