Adriel Ortiz Mangia

Adriel Ortiz Mangia

Los hombres aprenden mientras enseñan.
 193K puntos  Yurimaguas, Perú @temp01 desde - visto
Preguntar

Actividad pública reciente

Voto positivo a la respuesta

Error de suma total en un textbox

respondió: . Cambia "el orden" de las cosas y simplifica del siguiente modo: ¿Te sirve la idea?... TextBox1 = Format(TextBox1, "Standard") TextBox2 = Format(TextBox2, "Standard") TextBox3 = Format(TextBox3, "Standard") TextBoxSubTotal = Format(0 + TextBox1 +...
Ha respondido en y en 2 temas más

Como puedo hacer que al borrar un dato en una hoja de excel se pase a otra hoja para poder tener un control de salidas ?

[Hola Muestra tus datos y ver como están organizados
Voto positivo a la respuesta

Adaptar barra de progreso a mi macro

respondió: En lugar de la barra de progreso, te propongo una más simple. En la barra de estado de excel (esquina inferior izquierda), va a aparecer un contador, indicando el número de fila procesada y el número de filas totales a procesar. De esa forma pueden...
Voto positivo a la respuesta

Modificación en macro para copiar

respondió: Prueba con la siguiente Sub CopiarCeldasAlumnos() Dim wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range Set wsOrigen = Worksheets("BD_Alumnos") Set wsDestino =...
Voto positivo a la respuesta

Macro para buscar doc docx y pasarlo a pdf

respondió: Te anexo la macro para convertir los doc a pdf. Solamente pon tus carpetas que tengan los documentos que quieras convertir en la columna A de tu hoja, como se muestra en la siguiente imagen: No te pongo la macro para leer carpetas y subcarpetas,...
Voto positivo a la respuesta

En una hoja de Excel si en la columna (r13:r45) el valor es >=2 no Imprima e indique un mensaje y si es < 2 que imprima hoja

respondió: Pon la siguiente macro en un módulo: Sub Imprimir() ' For i = 13 To 45 If cels(i, "R").Value >= 2 Then MsgBox "Impresión Cancelada. Existen valores >= 2", vbCritical Exit Sub End If Next ActiveSheet.PrintOut End Sub Sigue las Instrucciones para un...
Voto positivo a la respuesta

Buscar pareja repetida en excel

respondió: La fórmula para tu rango es la siguiente: =CONTAR.SI.CONJUNTO($A$1:$A$20;A1;$B$1:$B$20;B1) Observa en la imagen que un acento o algún espacio demás puede hacer la diferencia, no así las mayúsculas.
Voto positivo a la respuesta

Seleccionar en Combobox un producto y automáticamente se muestren seriales en un ListBox

respondió: Vamos por Pasos. PASO 1. Seleccionar un dato en el combobox1 - Pon una imagen donde muestres cómo están tus datos que se cargan en el combobox1 - Un ejemplo explicando: cuando seleccionas un dato en el combobox1, qué dato quieres que aparezca en el...
Voto positivo a la respuesta

Fórmula excel que me devuelva un dato de una tabla, dependiendo de la fecha de nacimiento

respondió: Pon tus datos en la hoja "categoría" de esta forma Ahora en tu hoja "inscripciones" en la columna B pon las fechas, como se muestra en la siguiente imagen: En la celda C2 pon la siguiente fórmula: =BUSCARV($B2;CATEGORÍAS!$A$2:$D$6;3;1) En la celda D2...
Voto positivo a la respuesta

Macro para poner texto con condición

respondió: Según tus ejemplos, considero lo siguiente: Los datos empiezan en la fila 1Los datos están separados por pipe "|"El artículo siempre está en el tercer dato Si es correcto lo anterior, ejecuta la siguiente macro: Sub Agregar_Texto() 'Por Dante Amor...
Voto positivo a la respuesta

Como registrar los datos faltantes en un tabla

respondió: Ejecuta la siguiente macro Sub Revisar_Faltantes() 'Por Dante Amor co1 = "A" 'columna con documentos pagados co2 = "B" 'columna para poner documentos faltantes ' u = Range(co1 & Rows.Count).End(xlUp).Row k = 2 Range(co2 & k & ":" & co2 &...
Voto positivo a la respuesta

VBA Excel - Problema con un código que al darle click registra la información de mi formulario en una tabla de forma desordenada

respondió: Prueba con esta macro Private Sub CommandButton1_Click() Set datos = Range("a4").CurrentRegion With datos r = .Rows.Count Set campos = .Rows(r + 1).Resize(1, 9) With campos .Cells(1, 1).Value = TextBox1.Value .Cells(1, 2).Value = TextBox6.Value...
Voto positivo a la respuesta

Macro para guardar archivo de Excel con nombre de celda

respondió: Te anexo la macro Sub Guarda_copia() 'Por Dante Amor Dim objWSHShell As Object Dim strSpecialFolderPath On Error GoTo ErrorHandler Set objWSHShell = CreateObject("WScript.Shell") escritorio = objWSHShell.SpecialFolders("Desktop") Set objWSHShell =...
Voto positivo a la respuesta

Me marca error 91 en tiempo de ejecución vba excel

respondió: Supongo que tienes el error en esta línea: indRowBase = cell.Row Eso es debido a que no encontró la palabra "name" en la columna "A" de la hoja "Principal". Podrías solucionarlo de esta forma: Cambia estas 2 líneas Set cell =...
Voto positivo a la respuesta

Guardar datos de un TextBox en dos hojas

respondió: Te presento otra forma de agregar registros Cambia todo tu código por el siguiente: Private Sub Guardar_Click() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' If txtCédula = "" Then MsgBox "Ingresa la cédula" txtCédula.SetFocus...
Voto positivo a la respuesta

¿Cómo cambio de celda al llegar a determinada cantidad de caracteres?

respondió: Leyendo esta consulta y su respuesta se me ocurrió darle una vuelta de tuerca más. Ya veo que está valorada y por lo tanto cerrada pero quizás aún te sirva o para los que la lean a futuro. El problema con el cuadro de texto tal como está programado,...

Trabajo

  • Monseñor Elías Olázar
    Asistente Administrativo , 2015 - actualidad