Adriel Ortiz Mangia

Dante Amor respondió: Realiza lo siguiente: Desprotege la hoja.Selecciona tu botón con el botón derecho del mouseEntra a las propiedadesEn la pestaña propiedades, desmarca la casilla "Bloqueado" Otra opción: Cuando protejas la hoja marca las casillas Modificar objetos y...

Dante Amor respondió: Te anexo una fórmula para Masculino =SUMAPRODUCTO(SUBTOTALES(103;DESREF(C9;FILA($C$10:$C$19)-FILA($C$9);;1))*($C$10:$C$19="M")) Cambia en la fórmula lo siguiente: M por F para contar Femenino C9 por la celda donde tienes el encabezado de Género $C$9...

Dante Amor respondió: Te confirmo, si no quieres el 0, entonces puedes poner =SI(I10>=12500;ABS((I10*0,01-250)-I10);"")

Dante Amor respondió: Te anexo la macro. Funciona de acuerdo a tu ejemplo. Antes de ejecutar la macro debes considerar lo siguiente: - Funciona para celdas que tienen 2 letras ejemplo: "VL" o una letra ejemplo: "V". No funciona para celdas que tengan más de 2 letras. -...

Dante Amor respondió: Pon el siguiente código en tu botón de buscar. En el textbox1 pon el número de cliente En textbox2 quedará el nombre En textbox3 quedará la fecha En textbox4 quedará el importe Private Sub CommandButton1_Click() 'Buscar 'Por.Dante Amor ' If TextBox1...

Dante Amor respondió: Te anexo la macro Sub Copiar_Valores() 'Por.Dante Amor ' Set h1 = Sheets("Hoja1") 'destino Set h2 = Sheets("Hoja2") 'datos ' h1.Cells.Clear ' j = 1 For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row h1.Range("A" & j & ":D" & j) =...

James Bond respondió: Prueba con esta macro, busca y elimina los registros que cumplan con el criterio que planteaste, cuando ya no hay ni uno te mostrara un mensaje. Sub buscayborra() Set datos = Range("a1").CurrentRegion With datos For i = 1 To .Rows.Count On Error...

James Bond respondió: Sin usar macros usa esta fórmula =EXTRAE(A1, HALLAR(" 66", A1, 1), 6) esto te dejara la tabla así, luego simplemente seleccionas los registros y ordenas

Dante Amor respondió: Envíame un correo nuevo, en el asunto del correo pon tu nombre de usuario: "Systemas" Me envías ejemplos de xml y en un excel me pones los datos que quieres de los xml

Dante Amor respondió: Prueba con lo siguiente, ajusta los nombres de tus controles. La idea es una macro que revise cada cierto tiempo la hora. Yo puse que se revise cada 30 minutos, pero lo puedes ajustar a cada 10 minutos o cada 50 minutos. Private Sub...

[Hola Te paso la respuesta del generoso Dante Sub Separar_Numeros() 'Por.Dante Amor ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear j = 2 For i = 1 To h1.Range("B" & Rows.Count).End(xlUp).Row datos = Split(h1.Cells(i, "B"), ";")...

Dante Amor respondió: Intenta lo siguiente. Entra a las opciones de excel, Avanzadas y activa la casilla "Establecer precisión de pantalla" . 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias . Avísame cualquier duda .

Dante Amor respondió: Tienes que tener información en la celda A26 Prueba con lo siguiente: Sub ArmarFila() If Sheets("Hoja2").Range("A26") = "" Then MsgBox "Falta dato en la celda A26" Exit Sub End If For i = 1 To 5 'Sentencia que permite ocultar la operación y flujo del...

Dante Amor respondió: Prueba con lo siguiente, cambia "Hoja2" por el nombre de tu hoja Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Act.Por.Dante Amor Set h = Sheets("Hoja2") Set rng = h.Range("A1:A20") h.Select For Each celda In rng If celda.Value <> "" Then If...

Dante Amor respondió: Claro que puedes agregar una imagen a la carpeta IMAGENES, pero tiene que tener extensión jpeg, ya que la segunda macro, solamente lee archivos con extensión jpeg. If Dir(ruta & Target & ".jpeg") <> "" Then Image1.Picture = LoadPicture(ruta & Target...