James Bond

James Bond

Si de mis mayores gustos, mis disgustos han nacido, gustos al cielo le pido aunque me cuesten disgustos
 325K puntos  Monterrey, México @eusebiosuarez desde - visto
Preguntar

Respuestas

Respuesta en y en 2 temas más a

¿Cómo omitir el error 91 en una búsqueda dentro de una macro?

Prueba esta macro primero busca y elimina los E CV de la columna A y luego elimina las nueve filas superiores, una vez que acaba se posiciona el la celda a1 Sub copiar() Range("a:a").Replace What:=" E CV", Replacement:="" On Error Resume Next...
Respuesta en y en 1 temas más a

Fecha final en Textbox dependiendo de otro

la linea TxtFecVenc = DateAdd("m", TxtFecVenc.Text, fecha), te ahorra un buen de codigo al programar lo que te fallo fue el evento para estos casos no usas un evento change sino un evento afterupdate que te permite capturar toda la fecha antes de...

Tengo un problema, ejemplificóMi operación es: A3/A1*1000

Pues el único problema que veo en tu fórmula es que divides a3/a1 y al mutiplicar por 100 da como resultado 602426.087
Respuesta en a

Macro Excel Guardar Registros Matriz

Más fácil aun, esta simple instrucción lee las filas con datos de la columna A y en automático las manda a una matriz que sin importar si quitas o añades datos o si tienes 1 o un millón de datos esta ajustara la matriz a dichos datos Sub...
Respuesta en y en 2 temas más a

Macro de excel para buscar vinculando 2 combobox y mostrando un listbox

A tu petición le falta un ejemplo de como esta estructurada tu información, así que supongo que necesitas una macro parecida a esta, primero carga en un combobox los nombres de las hojas que supongo cada una tiene el nombre de la sociedad, luego...
Respuesta en y en 2 temas más a

¿Cómo podría hacer para invertir el orden de 100 columnas en excel, siempre desde la C hasta la CX?

Usa esta macro solo cambia el c2 por la celda donde comienzan tus datos Sub cambiar_orden() Set datos = Range("c2").CurrentRegion With datos r = .Rows.Count: c = .Columns.Count .Columns(c + 3).CurrentRegion.ClearContents Set datos2 = .Columns(c +...

A partir de una lista desplegable, mostrar una hoja oculta

Esta es la instrucción que ocupas, solo cambia hoja1 por el nombre de tu hoja Private Sub ComboBox1_Change() Sheets("Hoja1").Visible = ComboBox1.Value = "SI" End Sub

Suma de rango de valores en un mes

Usa estas fórmulas =+SUMAR.SI.CONJUNTO(H1:H217,C1:C217,">=01/05/2018",C1:C217,"<=31/05/2018",H1:H217,"<5500") =+CONTAR.SI.CONJUNTO(C1:C217,">=01/05/2018",C1:C217,"<=31/05/2018",H1:H217,"<5500")

Crear macro que ordene datos repetidos alfabéticamente y luego inserte filas en blanco separando en grupos los datos repetidos

Prueba con esta macro Sub ORDENAR_E_INSERTAR_FILA() Set DATOS = Range("A1").CurrentRegion With DATOS C = .Columns.Count: R = .Rows.Count .Sort KEY1:=Range(.Columns(1).Address), ORDER1:=xlAscending .Columns(C + 3).CurrentRegion.ClearContents Set...
Respuesta en y en 1 temas más a

Ingresar datos a un textbox y que lo guarde como numero

Usa esto como ejemplo Private Sub TextBox1_AfterUpdate() NUMERO = IsNumeric(TextBox1.Text) = False If NUMERO Then MsgBox ("ESTE CAMPO SOLO ACEPTA NUMEROS"), vbCritical, "AVISO EXCEL" TextBox1.Text = vbNullString Else Range("A1") = Val(TextBox1.Text)...