Luis Mondelo

Pues imaginemos lo siguiente: la cuenta que buscamos está en la celda B2 y la buscamos en la base de datos de cuentas que está en el rango H1:H500. La fórmula que necesitas es esta: =IZQUIERDA(BUSCARV(b2;h1:h500;2;FALSO);31) Esta fórmula te da el...

Te mando mi solución, sigue mi ejemplo: Si dices que tienes un textbox con toda la ruta de un pdf quiere decir que dentro de un textbox tendrías algo así: (mi archivo se llama ejemplo.pdf) C:\Users\Luis\Documents\ejemplo.pdf Con esta macro de un...

Te mando mi solución. Mediante el evento worksheet_change de la hoja en cuestión se puede conseguir: Esta macro la tienes que copiar dentro del objeto hoja que estás tratando. El evento se disparará automáticamente siempre que introduzcas datos en la...

Para pasar números que están en un textbox a una celda tienes que hacerlo así: Ejemplo: range("a1").value = cdbl(textbox1) Recuerda finalizar la consulta

Te mando mi solución: Ejecuta esta macro y todo solucionado Al ejecutar esta macro te pedirá que marques el rango que quieres analizar y después hace el resto. Sub MacroColor() 'por luismondelo Set rango = Application.InputBox("seleccione el rango...

Te mando mi solución, sigue mi ejemplo: Me supongo que los datos empiezan desde A1 hacia abajo, siendo la fila 1 el encabezado. Ejecuta esta macro y todo resuelto: sub ejemplo() 'por luismondelo range("a65000").end(xlup).offset(1,0).value ="final"...

Te mando mi solución, sigue mi ejemplo: En A1 tenemos: 171200@Acabado de productos textiles@ En B1 escribe esta fórmula: =IZQUIERDA(A1;HALLAR("@";A1)-1) En C1 escribe esta fórmula:...

Te mando mi solución, esta es la macro que necesitas: Sub ejemplo1() 'por luismondelo Range("a1").Select For x = 1 To 4 ActiveCell.Value = Application.WorksheetFunction.RandBetween(1, 6) ActiveCell.Offset(0, 1).Select Next End Sub recuerda finalizar...

Te mando mi solución, ejecuta esta macro y todo listo: Sub ejemplo() 'por luismondelo Sheets("hoja1").Select Range("c1").Select Do While ActiveCell.Value <> "" If ActiveCell.Value = "ok" Then ActiveCell.EntireRow.Copy...

No se lo que abarcan tus datos pero pondré un ejemplo: Los datos van desde A1 hasta A50 y en la columna B igual En otra celda escribe esta fórmula: =sumar.si(a1:a50;"luz";b1:b50") Te sumará solo los conceptos de luz (la palabra luz de la fórmula...