Joaom Manuel

En celda formato de celda personalizada, he probado con yy resultado negativo, con aa negativo, en barra de fórmulas =yy(), negativo y algo más. Cuando personalizo con aa, me sale nada en la celda, voy a verificar, encuentro a\a\ y no fue esto que...

La grabadora me da esto ActiveCell.FormulaR1C1 = _ "=IF(R[-1]C[1]<0.5,12%,IF(R[-1]C[1]<=2000000,9%,IF(R[-1]C[1]>2000000,7%)))" y en la macro tengo esto en Private Sub Worksheet_Change(ByVal Target As Range) If Application.Sum([F14:F23]) > 0 Then...

=SI(J38="";12%;SI(J38<=2000000;9%;SI(J38>=2000001;7%;12%))) Funcionan 2 partes, la de 9% y 7% solo la 1ª parte SI(J38="";12%; no. Si coloco SI(J38=1;12%; ya funciona pero si esta vacia, "" NO Quiero que cuando la celda este vacía, se presente 12% en...

Esta fórmula =SI(I10>=12500;ABS((I10*0,01-250)-I10)) me funciona pero al no existir valor en I me dice en J FALSO. Quiero que nada me diga y quien nada ponga en J si nada existe en I. ¿Cómo hice? =SI(I10>=12500;ABS((I10*0,01-250)-I10);0) Le agregue...

Dam, ¿Cómo te ha ido el domingo? Espero que bien. En este evento Private Sub cboHojas_Change() quiero Deseleccionar la linea de la hoja anterior al ejecutar este evento. Sopone que tengo en cbohojas la hoja1 seleccionada y en esa hoja esta una linea...

Buena stardes amigo Dam En una macro (código) tengo estas líneas 'Seleccionaren hoja, linea, solo las columnas de datos, desde A hasta G valor = lista.ListIndex + 2 Set Menu = Range("A1").CurrentRegion Menu. Rows(valor).Select para que al click en...

Tengo un código que me cuenta líneas de un ListBox, del cual quise hacer lo propio para usar limpiando TextBox (con nuevo nombre) de varios formularios, el cual no me sale, (no doy pié con bola) Public Sub Limpiar(ByVal miform As Form) ‘Recorremos...

Una ves más a Dante Amor Gracias Dam, muy bueno tu anterior respuesta, como siempre Al buscar, comienzo por ingresar el 1º carácter, el 2º, 3º, 4º, etc. Muestra lo que quiero y como quiero, como están los demás 2 formularios. Retrocedo eliminando...

Pregunta para Dante. Hola Dante, recibe mis saludos En un libro del cual me haz ayudado bastante, está este código que es BASTANTE LENTO y mientras más líneas con datos tenga la hoja, más lento es. Además de eso, busca por cualquier parte Y PUNTO de...

Sub contador() For x = 0 To frmProd.lista.ListCount - 1 If frmProd.lista.List(x, 0) <> "" Then m = m + 1 End If Next frmProd.txtExistencia.Value = m End Sub La tengo en Modulo. Quiero asignarla por via Call contador a 2 formularios mas del mismo...