Macros y programación VBA

Hola de nuevo, seguimos con formateos. En la macro que adjunto al añadir un numero a la columna "E" de mi tabla "Tabla" a través del evento "Worksheet_Change" de la hoja me lo transforma en formato hora es decir, si pongo 0.5 el formato devuelto es 00:30:00. Lo que me gustaría saber si el código es del todo correcto o se puede mejorar ¿? Saludos. Horas.xlsm

buenos días quisiera su ayuda para poder realizar un formato condicional utilizando VBA tengo una lista de códigos en la columna P y una tabla de registros donde quisiera que los registros tuvieran una fuente azul si el código aparece en la lista gracias por su ayuda FORMATO PARA CODIGOS.xlsx

Buenas tardes. Tengo una hoja que ordena unos números del 0 al 9, desde la columna A hacia las siguientes, B , C. etc. Es un juego donde un número predefinido en la LINEA 1, indica que el número anterior IGUAL, ya debe desaparecer de la lista, de la posición de la columna anterior. Hice una macro que modifica los formatos según el número de la celda, produciendo el efecto que se puede mirar en el ejemplo que adjunto del archivo ARCOIRIS.XLSM. Necesito ayuda para modificar tres cuestiones muy difíciles para mí. 1.- Que la macro trabaje únicamente con los números de la línea 1, y no sea necesario que estén ubicados en la columna A, (ver ubicación en el archivo). 2.- Al fin…

Buen dia a todos Quizas sea una tontera, pero no logro dar con lo que hago mal.... en el siguiente formato Format((Hoja2.Cells(estaen, col).Value + funcionarios(i, j)) / 60, "#,##0.0") me imprime un valor numerico, pero se visualiza en la celda como texto......que hago mal...???? el valor de funcionarios() es numerico gracias de antemano

Hola pido de su ayuda ya que me estoy atorando con la separación de miles y decimales en una macro. estoy haciendo un programa para administrar una carnicería, el cual el ejemplo que traigo para que me ayuden es el siguiente. "quiero aclarar que no tengo conocimientos exagerados en programación de VBA, y siempre combinó formulación de Excel y Macros." mi petición de ayuda es la siguiente: tengo un listado de productos y un formulario para poder actualizar los precios de los producto. cuando ingreso algún dato numérico con algún punto decimal y doy click en el botón calcular me devuelve datos asi: dato correcto: $38.20 y el dato…

Muy buenos días para todos Espero puedan ayudarme con un inconveniente Es bien simple, tengo un botón en excel con el que abro un UserForm, en donde tengo un ComboBox Dicho ComboBox carga su lista desde un rango de celdas en otro archivo llamado Productos Esos productos tienen un código... de 7 cifras, y ahí es donde tengo el problema algunos de esos productos comienzan con 0 y el ComboBox me los anula el código que tengo es el siguiente: Private Sub Producto_DropButtonClick() Producto.List = Workbooks("Productos.xls").Sheets("Datos").Range("A2:A3408").Value End Sub [/CODE] "Producto" es el nómbre de mi ComboBox Espero me puedan ayudar. Desde ya muchas g…

Buen día y con el gusto de saludarle nuevamente expertos recurro a ustedes para solicitar su valiosa colaboración en el mejor de los sentidos ya que tengo un textbox al que le quiero poner un formato de hora HH:MM para que al momento de escribir obligue al usuario final a poner ese formato de tiempo exactamente, he intentado hacerlo pero en mi programación veo muchos errores, por ejemplo cuando le doy con las teclas direccionales para seleccionar y me posiciono en el espacio 3 y le doy una letra este la acepta; bueno de antemano el textbox no debe aceptar letras, unicamente números y en el espacio 3 el signo de dos puntos (:) pero como lo digo al hacer eso lamentablemente…

Hola amigos hay alquien que me colabore lo que quiero es que al momento de hacer inventario nesecito incluir las fechas de vencimiento que tiene cada prodcuto pero no e podido solucionar el problema que tiene mi planilla gracias planilla de invenatrio.rar

Buenas tardes a todos Tengo un formulario de se actualiza desde una base de datos de excel, uno de los datos que sube es un valor en pesos. El detalle es que me lo actualiza el label en formato numero, aguien sabe como hago para que el label me de el valor en pesos. Ya intente asi pero no me da: Label37 = FormatCurrency(0) Aguien que me ayude por fa Edwin Alexander Galeano.

en el forms que hice tengo un texbox que se llama txtlockers y carga datos en la planilla excel en la columna 5 pero me lo carga como si fuera texto y quiero que sea pesos. No me deja subir el archivo porque me dice que es muy grande que alguien me ayude, muchisimas gracias Juan

Buenos días, tengo una formula que quería hacer que fuera una macro ya que tengo muchos registros y al aplicarla quedan 0 o N/A. =SI(B2=Hoja2!A2;Hoja2!B2) Gracias.

Estimados, tengo una fórmula y me gustaría pasarla a macro para aplicarla cada vez que lo deseo a distintos libros, pero estoy super nublado, su ayuda es agradecido desde ya {=SI(Y((MIN(SI($A$2:$A$4235=A2;$I$2:$I$4235))<>MAX(SI($A$2:$A$4235=A2;$I$2:$I$4235)));I2=MIN(SI($A$2:$A$4235=A2;$I$2:$I$4235)));I2;"")}[/PHP] Saludos!

hola amigos tengo la siguiente pregunta que a lo mejor ala mayoría de ustedes ya les ha pasado. tengo una formula matricial mayor a 255 caracteres al utilizar la formula manualmente y presionar las teclas control+shift+enter funciona sin problemas, al grabar la macro y ejecutarla me da un mensaje de error 1004. como puedo hacer para poner esta formula dentro de la macro y que esta la ejecute? copie este ejemplo pero no me ha funcionado para probar y hacer cambios pero no me ha funcionado Sub Macro2() Dim celda As Range ForEach celda In Range("B2:B12") celda.Select SendKeys "{F2}+{ENTER}", True Next celda EndSub[/CODE] mi formula es así de larga, favor su a…

Buen dia amigos del foro amigos para que si me pueden colaborar en la siguiente formula de busqueda por nombre y codigo de empleados, lo que pretendo es que cuando realizo la busqueda por el codigo me salga el nombre del empleado y que se registre la entrada y salida y que automaticamente se registre en la planilla matriz y asi sucesivamente con las demas hojas de cada nombre de empleados Amigos gracias por su colaboracion ejemplo.rar

Hola a todos y feliz año nuevo. con la siguiente cuestión, En al archivo adjunto trato de explicar, ya que el asunto es medio complicado De antemano muchas gracias. formula_dinamica.xls

Hola amig@s: Estoy trabajando con una tabla para hacer mi libro bancario, esta funcionando bien, solo que en la columan I tengo la formula = I30 , pero cuando ingreso una nueva fila en la tabla la formula no baja a la siguiente celda como puedo hacer para que la formula baje? gracias por su tiempo. Saludos Jesús Bancos.rar

Buenas tardes chic@s; Tengo una macro que pone diferentes fórmulas en varias hojas diferentes y para poder ponerlas tengo que antes seleccionar la hoja donde quiero que se ponga. Hay alguna forma de poner la fórmula en la hoja que necesite sin antes seleccionar/activar dicha hoja??. Las fórmulas las pongo de la siguiente forma: Worksheets("Hoja2").Range("A2:A30").FormulaR1C1= "aquí la fórmula" Pd: ahora mismo no tengo aquí el Excel, estoy escribiendo desde el móvil, si es necesario mañana le adjunto. Muchísimas gracias.

Buenos días de nuevo. Siguiendo con el formulario de la orden de trabajo, se me presenta otro tema que he buscado en el foro y he visto algunos parecidos, pero tampoco he conseguido adaptarlo a mi caso. Me explico; necesito calcular las horas transcurridas entre dos fechas y horas distintas. y que vuelque el valor en un textbox. Subo un fichero con un pequeño ejemplo de lo que necesito. Un saludo y muchas gracias de antemano. Prueba calculo horas transcurridas.rar

Amigos de Excel. Por favor una ayuda. Hay una hoja de Excel como "Libro Diario de Contabilidad" 3 Columnas......... INGRESOS -- EGRESOS -- SALDO Formula: =F2+D3-E3 Hasta la fila 200 Quiero pasar esa formula a VBA con ese rango que cubra hasta la fila 200. Y que cuando se ingresen datos y haga la operación, y la siguiente celda no reciba ni Ingresos ni Egresos, quede entonces vacía. porque formular todo el rango y que rellene todo el rango con el mismo resultado de la ultima operación, no es agradable Gracias anticipadas.

Buenos días, espero se encuentren bien de salud compañeros, Favor me podrían ayuda con lo siguientes como se podría hacer cuando tengo una tabla dinámica que amedida que se aumente las columnas fechas con data un formula que se coloco al final busque o analice siempre la ultima fila y columna de la fecha. Coloco un ejemplo

Formula muy larga. VBA me da error. Hola, no me deja adjuntar el archivo, ¿cómo puedo poner mediante VBA en BU10 (marcada en amarillo) la siguiente fórmula? =SI(O($C10="066";$C10="067";$C10="069";IZQUIERDA($C10;2)="66");SI(ESERROR(COINCIDIR(BU$9;'HISTOGRAMA-ITG'!$15:$15;0));0;SI(ESNUMERO(((SUMAPRODUCTO(('HISTOGRAMA-ITG'!$A$16:$A$99=CONSULTAV(IZQUIERDA($B10;5);'[PRUEBA_MACROFABI_Rev4-16R.xlsm]DATOS_BASICOS'!$A:$B;2;0))*('HISTOGRAMA-ITG'!$B$16:$B$99="CONS")*('HISTOGRAMA-ITG'!C$16:C$99)))/100)-((SUMAPRODUCTO(('HISTOGRAMA-ITG'!$A$16:$A$99=CONSULTAV(IZQUIERDA($B10;5);'[PRUEBA_MACROFABI_Rev4-16R.xlsm]DATOS_BASICOS'!$A:$B;2;0))*('HISTOGRAMA-ITG'!$B$16:$B$99="CONS")*('HISTOGRAM…

Bueno días señores del foro...tengo una consulta.. tengo esta formula =SI(Y(H15<41;H15<>38);G15;0); la columna "H", es donde ingreso unos códigos a través de macro, pero no me admite, cuando sobre escribo a través del teclado, ahi recién se genera lo que dice la formula..alguien puede decirme cual es el motivo? ActiveCell.Offset(0, 1).Select ActiveCell = ComboBox2 Con estas líneas es que arrojo en la columna "H" los datos..les dejo el Link https://onedrive.live.com/?id=E55EF42198BD63DF!3096&cid=E55EF42198BD63DF

Señores del Foro disculpen la molestia, pero tengo la siguiente situacion y requiero de Uds para solucionarla: Necesito una formula en excel o una macro que cuando yo digite en un cuadro de control de fomulario, el codigo del cliente, el codigo de la mercancias vendidas y la cantidad, me vaya acumulando las cantida por cliente, al frente del mismos y en la respectiva columna del articulo vendido. Adjunto Archivo de mjuestra. Cordial Saludo ARCHIVO PARA ENVIAR.xls

tengo una pregunta de como automatizar la funcion de buscar objetivo con fomrula o alguna forma mas comoda pero sin botones tengo esto epro no funciona aver si alguein me ayuda Option Explicit Private Sub Worksheet_Calculate() automatizar End Sub Private Sub automatizar() Static tb As Boolean Dim i As Long With hoja 1 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Round(.Cells(i, 3).Value, 6) <> 0 And Not tb Then tb= True .Cells(i, 2).Value = 0 .Cells(i, 3).GoalSeek Cells(i, 4).Value, ChangingCell:=.Cells(i, 2) tb = False End If next i End With End Sub

Hola intento general este resultado. Según la imagen la diferencia de tiempo es 02:16:26 . HH:mm:ss. El problema es que no sé como generar ese resultado sin separar las horas de la fecha. Aquí los problemas, no puedo separar o dividir las horas en una columna y las fechas en otra columna. También la fórmula debería expresar si la diferencia es en días.. cuántos días son más horas y minutos... Alguien sabe como expresarlo de esa forma?