Adriel Ortiz Mangia

Mario Rodríguez 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 +...

[Hola Muestra tus datos y ver como están organizados

Dante Amor 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...

Dante Amor 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 =...

Dante Amor 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,...

Dante Amor 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...

Elsa Matilde 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.

Dante Amor 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...

Dante Amor 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...

Dante Amor 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...

Dante Amor 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 &...

James Bond 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...

Dante Amor 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 =...

Dante Amor 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 =...

Dante Amor 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...

Elsa Matilde 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,...