Buenas tardes, Tengo un problema estoy tratando de sumar los valores decimales de un listbox pero solo considera los enteros por ejemplo si en el listbox tengo 25.48, 20.36, 30.58 al momento de sumar y enviarme el resultado a aun textbox me devuelve 75 osea la suma de 25,20,30 no toma en cuenta los decimales les dejo el codigo a ver si pueden ayudarme gracias. Dim i As IntegerDim total As Long total = 0 For i = 0 To lstimporte.ListCount - 1 total = total + Val(lstimporte.List(i)) Next i TextBox4.Text = total TextBox5.Text = Val(TextBox4) * 18 / 100 TextBox6.Text = Val(TextBox4) + Val(TextBox5)[/CODE] en el textbox4 es donde recibo la suma de los valores. ade…

Saludos tengo un gran problema y es que debo hacer que un Userform de un libro1 con un spreadsheet en este Userform me envie unas filas a otro libro(libro 2).. por ahora es solo esto. Tengo el spreadsheet ya montado pero aun no el codigo porque no se que poner. adjunto el libro uno con el formulario y el spreadsheet en él y el libro 2 el cual recibira los datos organizados que esten dentro del spreadsheet. advierto que se podrian necesitar librerias que permitan mostrar el spreadsheet en el userform, aun no lo se, ya que desde el equipo de la empresa lo puedo ver pero desde el de mi casa no(supongo que es por eso) gracias Desktop.zip

Hola amigos una aplicación hecha en Excel 2007, con 12 formularios, una interfaz con todas las hojas ocultas y extenso código después de estar funcionando 5 años en Excel 2007 si error. Al abrirla con Excel 2013 todo funciona bien y no da ningún error, pero al cerrar un formulario con el código al final SaveWorkbook para que guarde cambios , da un error en el evento MouseMove de una etiqueta (label) del interfaz. Una etiqueta que al aparecer al pasar el puntero del ratón encima y hacer click, se visualiza un Formulario. El error es: Error en tiempo de ejecución: Error definido por el objeto. Mi pregunta es por qué vuelca un error en un objeto que no tiene nada que ve…

Saludos, tengo este macro Sub nuevos() Dim ultimafila As Long Dim Origen As Worksheet, Destino As Worksheet Set Origen = Sheets("FORMATO") Set Destino = Sheets("Hoja2") ultimafila = Sheets("Hoja2").Range("B20000").End(xlUp).Row ultimafila = ultimafila + 1 PERO POR ESTE LADO QUISIERA VERIFICAR SI LO QUE SE VA A INSERTAR EN LA CELDA K12 DE Origen YA EXISTE EN LA COLUMNA D DE Destino, PARA NO REPETIR LOS VALORES, si no esta repetido ps que inserte los siguientes datos, si no q muestre un mensaje de error y no ingrese los datos. Destino.Range("B" & ultimafila) = Origen.Range("K10") Destino.Range("D" & ultimafila) = Origen.Range("K12") Destino.Range("E" &amp…

Llevo dando vueltas sobre esto un tiempo pero no doy con la tecla/codigo despúes de buscarlo. Lo que quiero conseguir es que tras hacer una búsqueda, en un listbox me liste los datos, en mi caso son todos de una fila de una hoja de Excel, sin embargo quiero que cada 5 columnas (partiendo de una determinada) se correspondan a una fila (con numeración por orden) en el listbox siempre que tengan datos estas celdas. En cuanto al encabezado de las columnas del listbox sería siempre el mismo. Adjunto archivo Sería la hoja "cambiotar" despúes de localizar un paciente. En concreto las columnas desde la A a la H estarían vinculadas a la hoja "basal". Un saludo listbox filas…

Saludos, intento simplemente crear un macro para copiar y pegar celdas de dos hojas diferentes desde la ultima celda vacia.. "es mi primer macro" Sub nuevos() Dim ultimafila As Long ultimafila = Sheets("Hoja2").Range("B20000").End(xlUp).Row ultimafila = ultimafila + 1 Sheets("FORMATO").Range("K13").Copy Sheets("Hoja2").Cells(ultimafila, 2).Select en esta linea presenta el error Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("FORMATO").Range("K15").Copy Sheets("Hoja2").Cells(ultimafila, 4).Select Selection.PasteSpecial Paste:=xlPa…

lo que quiero que me ayuden a hacer es que deacuerdo al archivo de que mando, del contenido de la celda A2 (hoja 1) me busque el contenido de la celda A2 (hoja 2) y el resultado lo ponga en la celda C2 (hoja 1) y lo mismo con la celda B2(hoja 1), eso digamos es facil con un simple =buscarv, pero al revisar el "titulo" donde dice TOTAL (si lo hago con el buscarv) solo me va a poner el primer argumento que busca esdecir me va a poner "5" pero si yo tengo "15" como puedo hacer yo para que me ponga el total de las dos celdas tanto el total de la celdas como el "numero" espero y me entiendan, pero es que no se como explicalo bien dejo el archivo de antemano muchas gracias eje…

Hola, a todos estoy tratando de crear un formulario algo simple en la cual ingreso datos en textbox, y lo visualice en un listbox a traves de un boton que dice agregar, y que todos los datos agregados en el listbox, lo guarde en una hoja a traves de otro boton que dice guardar. pero en el combobox que tengo y son dos se pueda agregar datos desde las celdas de la hoja2. tengo otro formulario que tiene 3 combobox, que busque por fecha, codigo, nombre, indempendiente de cada uno y lo muestre en el listbox cuando precione el boton buscar. de antemano muchas gracias. estare pendiente a los resultados guardar datos.zip

Hola. Nos ha surgido un problema. Un compañero de trabajo que ya no está, confeccionó una hoja de Excel para llevar un control del mantenimiento de vehículos. Dominaba bastante la ofimática y realizó la misma con varias macros. Yo he tenido que adaptarla, eliminando previamente las macros, de las cuales no tenía la clave, siguiendo algunos tutoriales, pero necesito ayuda para poder terminarla, si puede ser sin necesidad de macros, pues no las domino. Seguramente existe la manera. El problema que quiero solucionar es, que una vez rellenado el formulario con la fecha correspondiente (Hoja “Vehículos”), los datos se introduzcan en la Hoja “Esta1” y se queden ya grabados. E…

Oculte el libro tratando de cargar un formulario y ahora no lo puedo abrir... Se que hice una tonteria pero necesito ver el libro ayuda

Hola, Antes de nada saludar a todos los usuarios. Acabo de vincular varias tablas dinámicas a un mismo filtro de informe con el código que vi en este foro y funciona perfectamente, el problema viene al seleccionar varios elementos dentro del filtro, si marco la opción "seleccionar varios elementos" deja de funcionar. Me podríais ayudar con el código para poder hacer filtros de varios elementos, por ejemplo si tengo el campo trimestres que pueda seleccionar T1, T2 y T3. Este es mi código: Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) Dim TablaDinamica As PivotTable Const Filtro1 As String = "Trimestre" Appli…

Hola amigos en el fichero .xlsm adjunto podéis que creé en Excel 2007 una aplicación en Excel con una interfaz a base de etiquetas (label) ocultas y visibles para cuando hacer click en ellas visualizar los formularios del Proyecto. Para lograr pantalla completa, ya que la Cinta de Opciones no me ha gustado nunca, el método Fullscreen me ha ido muy bien, pues es una ocultación "no violenta", pues haciendo doble click arriba en la ventana aparace otra vez la cinta. El problema ha venido cuando se ha cambiado a Office 2013 y en Excel 2013 el código corre sin dificultad pero en FullScreen y DisplayFormulabar=false, no se puede escribir en las celdas en otro proyecto en el …

Estimadísimos amigos, este seria mi primer post, luego de meses de sacar soluciones, hoy me veo obligado a molestarlos...les cuento, estoy confeccionando un sistemita de controlde facturas y cotizaciones para el negocio de un amigo, pero al ejecutar una macro, en ocasiones me arroja el error de comando de seleccion multiple, el problema es que incluso al seleccionar solo 1 celda copiada en libro2 y pegarla en libro1 me arroja dicho error...no logro entender el por que de esto...les agradeceria si me pudiesen ayudar con esto. Aprovecho de subir los archivos por si los quieren ver, el problema esta en la Hoja Facturas del libro Formulario en el Boton Ver pagos Formulario…

Hola a todos soy nuevo en esto, así que espero comprendan en el caso de tener una equivocación en mi consulta. Tengo un libro de origen (estudio de mercado quito) donde al momento de hacer click en un botón (zona sur), primero quiero que me borre los datos que exista en la hoja "base" y luego me copie todos los datos de otro libro incluyendo fórmulas y gráficos estadísticos (base de estudio de mercado/sur) sin necesidad de que el mismo se encuentre abierto. La verdad es que soy nuevo en esto de las macros he intentado realizarlo con grabar macros y no he tenido éxito alguno. Espero me puedan ayudar, gracias. BASE ESTUDIO DE MERCADO QUITO 2.zip ESTUDIO DE MERCADO QUIT…

Hola, si me pueden ayudar para crear una macro que lea los valores de la segunda columna (B1:B"X") en Excel y separe en otra hoja los valores que encontró repetidos. Me piden un informe de cuáles son los valores que están repetidos en una BD muy extensa. Les agradecería su colaboración.

Buenas tardes : Esta es la cuestión a ver si la explico bien , como lo puedo hacer ???? 1.Archivo excel con tres columnas A:Referencia producto ( Siempre sera el mismo) B:Descripcion del producto C: Precio, Cada referencia del producto corresponde a un fabricante y el problema es que no me mandan la columna con el fabricante para poder hacer una tabla dinamica con el fabricante para hacer listas de precios en libros aparte por fabricante para presentar al cliente, son mas de 2.000 códigos , lo que quiero conseguir es : 1.Asignar a cada referencia su fabricante : por ejemplo 880000 = Fabricas Pérez ( puede haber 100 ref.de fábricas Pére z )y se muestran Fabricas Pérez …

Insertar filas segun el numero en las celdas SOLUCIONADO Buen día quisiera ver si me podrían apoyar con este tema Tengo un archivo en excel de 5000 Filas muy parecido al que adjunto solo que por razones de seguridad no adjunto el original, el punto es que quiero insertar 1 fila debajo de cada celda en la que me dice el total de cada proveedor mediante una macro, el numero de celdas a insertar lo agregue en la columna D con una formula, Espero me puedan apoyar ya que llevo varios dias buscando y no encuentro lo que necesito Gracias y Saludos!! Insertar filas.xls

Estimados! recurro nuevamente a ustedes, he estado averiguando y no he dado en el clavo, ya que la gran mayoria de usos de combobox son a traves de las propiedades del rango, y en mi caso no me sirve. en el adjunto subo un ejemplo de lo que quiero realizar, en donde básicamente en el formulario debo seleccionar un cliente y que en el segundo combobox(seleccione fecha) me muestre solo las fechas asociadas al cliente y en el textbox me muestre su resultado. y con el boton actualizar poder actualizar o cambiar este resultado. explico nuevamente. selecciono cliente1, combobox(seleccione fecha) me muestra la fecha de hoy y la de antes de ayer(en el caso de que tenga esos di…

Estoy intentando que una macro se active en una fecha determinada cada año pero no consigo completar le parte que resalto en rojo. Sub DESCATALOGAR() Call CONEXIONBBDD Dim sqlX As String Set rstX = New ADODB.Recordset Dim sqlY As String Set rstY = New ADODB.Recordset 'Dim curso As Date If Day(Date) = 9 And Month(Date) = 9 Then 'On Error Resume Next sqlX = "UPDATE LIBROS SET LIBROS.Descatalogado = True;" With rstX .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sqlX, cnn, , , adCmdText End With ' curso = Year(Date) & "/" & Right(Year(Date) + 1, 2) sqlY = "UPDA…

Buenas tengo el siguiente codigo: Private Sub CommandButton9_Click() Dim carac As String carac = ActiveSheet.Range("G5").Value ActiveSheet.Range("c14").Value = Len(carac) ActiveSheet.Range("c15").Value = Left(carac, 1) End Sub [/CODE] Con este codigo en la celda C14 obtengo el numero de caracteres de la celda G5 y el la celda C15 obtengo el primer caracter de la celda G5. Si en la celda G5 el valor es 845, tendre en la celda C14 el valor de 3 y en la celda C15 el valor 8, lo que quiero es con codigo que emplee el valor de la celda C15 (es decir el 8) y le añada tantos ceros como el valor de la celda C14 (es decir 3). Con este valor tendria un resulta…

Buenos dias Tengo un formulario con un boton y dos cuadros de texto que empleo para abrir un libro excel. El primer cuadro de texto es para indicar el nombre del archivo y el segundo cuadro de texto es para indicar la hoja del archivo que quiero abrir. Lo que busco es si el archivo no existe genera un error y con la instruccion de on error coloco un Msgbox diciendo que el archivo no existe y se detiene la instruccion. Ejemplo: Private Sub CommandButton8_Click() On Error GoTo error1 Dim nombrearchivo As String nombrearchivo = "\\SERVER\Users\Administrador.SERVER\Documents\PEPE\PEPE\Dpto. Comercial\Presupuestos\Ofertas\Excel\Ofertas " & TextBox2.Value &…

hola a todos, un poco chock con este problema, a ver: tengo un contador en el evento onchange de un textbox que cuenta del 1-13 caracteres digitados, pero quiero que si el usuario retrocede por un error, el contador disminuya el o los retroceso y al volver el usuario a escribir comience a incrementar nuevamente. osea como si el evento onchange contara todo menos el pulso de la tecla retroceso. La verdad quisiera decirle que tengo un ejemplo mejor que esta explicación pero no, no he encontrado nada en ningún foro que me ayude y espero que aquí si, gracias…

saludos como el titulo lo dice, deseo saber como establecer el encabezado de un listbox pero personalizando los nombre de cada columna diferente a los él extrae automaticamente al importar los datos o agregar un titulo a las columnas de un listbox usando codigo vba o si no quedo clara la pregunta: ¿Es posible configurar los encabezados en un listbox de varias columnas sin usar un rango de hoja de cálculo como la fuente.? gracias

buenas tardes si me podrian colaborar me dejaron una actividad en excel con macros y es que tengo que hacer 10 preguntas con una lista de respuestas para cada pregunta y me piden que con un boton llamado calificar tenga una macro que califique y da la nota y dar total de las preguntas que estubieran buenas y malas . le agradesco el que me pueda colaborar

Saludos intento acelerar una macro con screenupdating y calculation=xlmanual ya quese recomienda hacerlo pero no le he visto aceleracion notable al usar la ultima, ¿ cual es la funcion de esta sentencia realmente?, que es lo que hace y en que caso veria su utilidad? gracias