Hola a todos,Llevo un buen rato con un pequeño error, y no veo la forma de subsanarlo.Tengo una tabla donde en la columna A hay distintos valores ( pero se pueden repetir ), lo que intento hacer es aplicar formatos a las celdas por cada grupo donde las celdas sean distintas.Son 2 colores , solo me interesa que visualmente se vean los que son iguales.Ejemplo:Columna A.01.01 Aplico Color 101.02 Aplico Color 201.03 Aplico Color 101.03 Aplico Color 101.03 Aplico Color 1Este es el código que estoy usando, pero cuando llega a los repetidos no consigo controlar que no cambie de color. Sub FormatosDescompuestos() Dim Wb As Workbook Dim ws As Worksheet Dim ColorFilaP, Color…

Hola amigos del foro, tengo una consulta, como puedo hacer para que mi celda se ponga de color cuando los datos que están en las otras hojas no coincidan o se cambien. Tengo un libro con una hoja data y 03 hojas más, debería buscar el numero de serie en las otras hojas si lo encuentra que verifique que el nombre es igual, si el nombre es diferente debe de cambiar el formato de la celda, así saber que se modifico el dato en las hojas. adjunta archivo, gracias por su ayuda FORMATO CONDICIONAL.xls

Hola a todos, queria hacer una consulta, se puede cambiar el color de fondo de un TextBox que está situado en el UserForm1 desde el UserForm2

Buenas tardes estoy aprendiendo esto de Macros y VB, estoy haciendo una aplicación que capture desde una macro e inserte los valores en una hoja de excel, la verdad es que ahí la llevo solo que cuando llego a un TextBox que debe llevar mucho texto y meto mas de 910 caracteres me marca error 1004 en tiempo de ejecución, error definido por la aplicación o el objeto. Buscando y buscando en Internet no he encontrado como hacerle para hacer funcionar esto, lo que me interesa es que 2 textbox puedan capturar un texto ilimitado sin marcar error o algo que los sustituya. el código es el siguiente (aclaro que lo he copiado y modificado de internet): Private Sub CommandButton1…

Buenos dias Tengo una hoja donde se realiza los calculos de la nomina para su pago, deseo que cuando se habra la hoja compare la fecha del salario minimo y si es diferente ( anterior) me salga el mensaje "por favor actualizar el salario minimo). Mejor dicho cada que cambie el salario minimo dme de ese mensaje. La fecha esta en B3. Anexo ejemplo Muchas gracias por su ayuda Nomina.xlsx

Hola de nuevo, estoy trabajando en una macro para copiar filas y luego ordenarlas (para hacer una análisis estadísticos sobre estas) tengo definido el rango y ya poseo la macro para copiar y filtrara las filas como las deseo. Ahora deseo que , con la misma macro, pueda copiar y ordenar al mismo tiempo. La macro que poseo es ésta: Sub CopyForm() Application.ScreenUpdating = False 'Limpiar datos anteriores Sheets("ANF1").Range("A2:DA46").Cells.ClearContents Sheets("ANF2").Range("A2:DA46").Cells.ClearContents 'Copiamos las claves desde !claves 'Para la Forma 1 Worksheets("claves").Range("B2:CW2").Copy Worksheets("ANF1").Range("E47:CZ47").PasteSpecial xlPasteValu…

Enviar Email masivo desde excel con Body distintos el problema que me sugiere es el siguiente. En fila F (Causa) a la hora de correr la macro esta siempre me da el resultado de la F2, ya que cada destinatario la causa es diferente, la macro va ligada con (asunto & Causa & con un mensaje de despedida). Gracias por adelantado. EnviarEmail.xlsm

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

Holas, quisisera saber como poder realizar una consulta segun este video a partir del 1:20, quisisera aplicar una macro asi, se supone q estoy en hoja1 y hago esa busqueda en otra hoja como la hoja2, y luego pegarlo tal como en el video, me pueden ayudar? no he encontrado algo asi en los foros. gracias dejo el enlace:

Tengo un comboBox con 2 Columnas y al pasar los datos a un ListBox, solo me pasa el dato de una de las columnas. Asignar una prenda y la cantidad de prendas. en el Formulario tengo lo siguiente Private Sub UserForm_Initialize() Dim L as Long With Hoja7 Me.ComboProd = Clear ' ComboProd es el nombre del Combo Do while . Cells(L,1) <>"" ComboProd.AddItem ComboProd.List(ComboProd.ListCount -1, 0) =.Cells(L, 1) ComboProd.List(ComboProd.ListCount -1, 1)=.Cells(L, 1) L = L + 1 Loop End With End Sub Se añaden los datos al ListBox a trav…

hola gente del foro,tengo un programa al cual le he modificado algunas cosas pero no se como proceder para que tome otros datos en lugar de los actuales;adjunto ejemplo donde se aclara bien el tema;muchas gracias PROGRAMA RUBEN 2.xls

Buenas tardes, voy a intentar explicarme porque llevo programando en Excel muy poquito y soy todavía un mero principiante. Ademas mi archivo es muy lioso y no he puesto demasiados comentarios en los códigos (adjunto dos archivos para que se entienda mejor). Tengo un archivo(consolidado) en el cual cuando pulsas un botón (el "más" verde) te copia y pega una hoja(1) tipo plantilla, donde pego los datos de unas tablas de excel. Cada vez que meto datos, con otro botón (calculadora), me va haciendo una serie de operaciones (medias, máximos y mínimos...) con ellos y guardo un listado de todas las entradas en la hoja 3. Todo eso me funciona perfectamente, aunque quizás en el…

Estimados buenas tardes, Estoy teniendo problemas con el menú contextual ingresando datos en formulario , eventualmente se abre y esto ocasiona problemas Hay alguna manera de desactivarlo en el formulario para que no aparezca? Adjunto imagen para que lo ubiquen Saludos Gracias

Que tal, soy nuevo en excel y en esta pagina, ojala puedan ayudarme. mi problema es esl siguiente: Necesito que en una celda C1 aparezca el texto "N/A" si en otras dos celdas (A1, B1) esta escrito el texto "SI". Si esto no se cumple que no aparezca nada en la celda C1 pero que me permita introducir texto... De antemano muchas gracias por su ayuda

Estimados amigos del foro, planteo un tema respecto autocompletar texto en un control de vba. El autocompletado lo tengo resuelto para un textbox o combobox tomando en cuenta los datos de la hoja de excel. Me gustaría poder cargar el combobox con los datos que están en el listbox y allí aplicarle el autocompletado. Lo que sucede es que en realidad yo lleno al listbox con los nombres de los archivos que están en una carpeta (es decir los datos no están en una hoja). Espero que esto se pueda realizar. Agradezco su generosa colaboración Subo el archivo de ejemplo Autocompletar from Listbox.rar

Hola a ver si me podeis ayudar... os cuento: en la hoja1 tengo que poner valores en las celdas (de la E14 a la E28) y quiero que en la hoja1 se me vayan acumulando los valores en las mismas celdas. ahora tengo esto: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$E$14" Then [Hoja1!E14] = [Hoja1!E14] + Target End Sub Pero no se como hacer para el resto de celdas. Gracias de antemano!!!

Estimados, primero que nada mucho gusto, soy nuevo en el foro y llevo un par de años trabajando en Excel y hace poco empecé con VBA. Entiendo la estructura de programación ya que manejo un par de lenguajes pero aun no me atrevo a decir que lo domino. Estoy trabajando en un archivo que tiene como finalidad entregar una cotización en base a una combinación de productos, una tabla que asigna un límite de crédito y cantidad de productos a contratar (según políticas comerciales de mi empresa) y una tercera sección que corresponde a un checklist de documentación a solicitar según el tipo de empresa cotizante. Estas 3 secciones conviven armoniosamente en una sola hoja principal,…

Buenas tardes, es la primera vez que escribo, tengo un problema con una macro, estoy realizando un formulario dividido en tres partes en donde cada linea contiene un layout de un proceso X, el layout se alimenta de la informacion de todos los usuarios a la base (30 aprox). Utilize una conección DAO para guardar los datos en Access y Seek ligado a un archivo XML para recuperar la información, es decir si existe el Index de la base te muestra la informacion ya captura, en caso contrario te permite agregar un nuevo registro. El problema que tengo es cuando los campos estan vacios me marca Error 13, no coinciden los datos. Quisiera saber como puedo solucionar este problema. …

Hola Gente!!! ¿como estan? Estoy en un proyecto y me freno un tema, el el listbox me aparece un dato pero no en forma de hora como esta la planilla. ¿Como puedo cambiar ese tema para que se vea en hh:mm? Desde ya gracias!! If UCase(Description) Like "*" & UCase(Me.TextBox1.Value) & "*" Then Me.LISTA.AddItem Me.LISTA.List(Y, 0) = Sheets("PLANILLA").Cells(File, 2).Value Me.LISTA.List(Y, 1) = Sheets("PLANILLA").Cells(File, 3).Value 'Hora hh:mm Me.LISTA.List(Y, 2) = Sheets("PLANILLA").Cells(File, 4).Value Me.LISTA.List(Y, 3) = Sheets("PLANILLA").Cells(File, 5).Value Me.LISTA.List(Y, 4) = Sheets("PLANILLA").Cells…

Buenos días; Tengo un Excel desde el cual busco información en otros Excel que nunca suelen tener el mismo nombre en la hoja. Para que la cosa sea rápida, no quisiera abrir el Excel, por eso lo de buscar la información con la fórmula de la macro. Mi problema viene en el nombre de la hoja, existe alguna forma de poder poner en la formula el nombre interno de la hoja??. Muchas gracias. Un saludo, Ejemplo.xlsm

Soy principiante en esto . El tema en cuestión es que tengo un libro. En la primera hoja tengo un botón que me copia Código: Sub Copiarypegar()'Seleccionamos todo el área contínua de datos, desde la celda donde estamos situadosRange("A24:O24").Select 'seleciona el rango especifico'ActiveCell.CurrentRegion.Select'CopiamosSelection.Copy'Pegamos en A24 de la hoja 2Sheets("Daily Report").SelectRange("A24").Select 'el control se hará sobre la columna A, a partir de la filaWhile ActiveCell.Value <> "" 'Busca la ultima filaActiveCell.Offset(1, 0).Select 'si la celda contiene datos, pasa a la fila siguienteWendActiveSheet.PasteSpecialApplication.CutCopyMode = FalseRange(…

Intento abrir un archivo CSV con una macro y quiero cambiar los paramentros de TextFileColumnDataTypes. hice una macro con la que a través de las caracteristicas de cada columna puedo incluir en una variable los parematros que necesito, pero al abrir la QueryTables.Add, no se como suplir el array. Los datos que incluye la variable son: MyVariable = "4,2,2,2,1,2,1,1" With ActiveSheet.QueryTables.Add(Connection:= _ ImpFile, Destination:=Range("$A$1")) ' .CommandType = 1 .Name = "salidas_merc" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True …

Hola equipo de "Ayuda Excel" tengo una duda de cómo bloquear una celda despues de aver digitado un valor Dejo especificacion en el Adjunto Gracias de antemano..! Libro1.rar

Buenos días Les escribo para ver si pueden ayudarme con una macro que estoy diseñando, en teoría es muy sencilla, pero no me funciona bien. El objetivo de la macro es que de la celda activa, en el ejemplo C7 tome el dato de la columna A7 y C5 y efectúe un filtro en la hoja de Pedidos y filtre con estas características, en el ejemplo debería filtrar el Aguacate de la semana 17, pero no logro que funcione bien. De antemano aprecio sus comentarios Archivo.xls

Buenos días amigo: Hace tiempo que ando tras la solucion de un problema que va relacionado con un EVENTO CALCULATE, lo que quiero hacer es dentro de un mismo evento trabajen por separado dos acciones. el codigo es el siguiente Private Sub Worksheet_Calculate() Static MiValor As Double If MiValor = 1 Then MiValor = [L8] If MiValor = [L8] Then Exit Sub MsgBox "Esta OP. ya fue leida anteriormente, intentelo nuevamente!" MiValor = [L8] [E9].Select Selection.End(xlDown).Select Selection.ClearContents 'Static MiValor2 As Double 'If MiValor2 = 1 Then MiValor2 = [L9] 'If MiValor2 = [L9] Then Exit Sub 'MsgBox "Esta OP. no pertenece a la zona q usted hace referencia, intente…