Dante Amor

Dante Amor

Si me amas, siempre voy a estar en tu corazón; si me odias, siempre voy a estar en tu mente. Ódiame o ámame, ambas están a mi favor. Shakespeare
 3.501K puntos  Estado de México, México @aprendemos desde - visto
Preguntar

Actividad pública reciente

Ha respondido en y en 2 temas más

¿Multiplicar 2 valores ingresos en textbox diferentes y mostrar automáticamente el resultado en un tercer textbox?

Pon el siguiente código en tu formulario Private Sub TextBox1_Change() Call Multiplicar End Sub ' Private Sub TextBox2_Change() Call Multiplicar End Sub ' Sub Multiplicar() TextBox3 = "" t1 = Val(TextBox1.Value) t2 = Val(TextBox2.Value) TextBox3 = t1...
Ha respondido en y en 1 temas más

Quiero ordenar un rango de una hoja b2: D y ultimafila

Si vas a ordenar por la columna "B", entonces el dato el Textbox2 (nombre), siempre deberá tener algo, de ese forma aseguras que vas a agregar un dato en la columna B y podrás encontrar la siguiente fila vacía después del último registro. Con la...
Ha respondido en y en 1 temas más

Cómo sumar los valores de una columna que depende de la coincidencia de una valor dado?

[H o l a: Tengo algunas dudas. Qué columna quieres sumar, ¿la D o la E? Puedes poner un ejemplo de lo que tienes en la hoja "ENTRADA", procura poner un producto que tenga alguna diferencia en el nombre, después en la hoja balance pon el ejemplo de lo...
Ha respondido en y en 2 temas más

Como puedo hacer para que en Excel el programa me pregunte en que hoja me quiero situarme y en que celda y que quiero escribir

Te anexo la macro con algunas validaciones Sub Ejer02() Dim hoja As String, tex As String, celda As String celda = InputBox("En que celda desea situarse") tex = InputBox("Que desea escribir") hoja = InputBox("En que hoja desea situarse") ' If celda =...
Ha respondido en y en 2 temas más

MACRO para copiar un valor y filtrar otra hoja con ese valor

Te anexo la macro para lo siguiente: 1. Captura el dato en la hoja "actualización", celda C4 2. Ejecuta la macro. Si no hay dato, te envía un mensaje 3. La macro realiza los 2 filtros 4. Si hay información en la columna A, la copia y la pega en la...
Ha respondido en y en 2 temas más

Buscar Datos en una planilla excel y pegar en otra planilla cuando los valores coincidan

Te anexo la macro Sub Copiar_Valores() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Origen") Set h2 = Sheets("Destino") ' For i = 5 To h2.Range("A" & Rows.Count).End(xlUp).Row If h2.Cells(i, "A") <> "" Then Set b =...
Ha respondido en y en 2 temas más

Formulario VBA ComboBox "enlazado" a TextBox

Pon el siguiente código en tu Userform, te puse los ejemplos para los combos del 1 al 4 Private Sub Combo_Descripcion1_Change() Call Carga_Text(Combo_Descripcion1, Text_Codigo1) End Sub Private Sub Combo_Descripcion2_Change() Call...
Ha respondido en y en 2 temas más

Macro para proteger celdas con datos

Prueba lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) ' Dim N1 As String If Intersect(Target, Range("B1:CP150000")) Is Nothing Then Exit Sub End If ' If Target.Value <> "" Then Target.Select ActiveCell.Offset(0, 1).Select N1 =...
Ha respondido en

Abrir archivo PDF con commandboton en excel

Te anexo la macro Cambia en la macro inicio = "C:\" por la carpeta inicial donde están las carpetas Sub Abrir_Pdf() 'Por.Dante Amor inicio = "C:\" ruta = ActiveCell.Value arch = ActiveCell.Value If ruta = "" Then MsgBox "Celda vacía" Exit Sub End If...
Ha respondido en

Cómo poner un código y excel reconozca la descripción automáticamente.

Te explico el funcionamiento de la fórmula BuscarV Busca en la columna de la izquierda (columna "A") y te regresa un valor de la columna de la derecha (columna "B") En este caso, la búsqueda se realiza en la columna A y el rango abarca 2 columnas A y...
Ha respondido en y en 1 temas más

Mail lista distribución. Si cambio de sitio la columna insertar archivo me da error la referencia no es valida

Te anexo las macros actualizadas, incluso para versión excel 2010. La macro del módulo "Enviar_Correos" Sub Enviar_Correos() '--- ' Por.Dante Amor '--- '***Macro Para enviar correos col = Range("P1").Column For i = 2 To Range("B" &...
Ha respondido en y en 1 temas más

MACRO que busque datos y devuelva múltiples resultados

Sí, envíame tu archivo para ver las filas y las columnas en donde buscar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “xitus” y el título de esta pregunta.
Ha respondido en y en 2 temas más

Macro para copiar valores en rango dinámico según selector

1. ¿El selector es un combobox de control activeX? 2. ¿En la fila 19 tienes fechas o textos? 3. ¿Los valores están en una tabla? ¿O es un rango de datos? 4. ¿En las filas inferiores tienes totales? 5. También hay que copiar la columna de Total 2018...
Ha respondido en

Generar una macro que imprima en un archivo con todas las hojas seleccionadas o un archivo por hoja y que se genera un pdf

Te anexo la macro para guardar en un pdf todas las hojas seleccionadas. En esta parte de la macro está el nombre del archivo, cambia el nombre por el que desees. arch = "formato IVSS" La macro Private Sub CommandButton1_Click() Call Impresion(1) End...
Ha respondido en

Macro para transponer sin coincidencias

Te anexo la macro En la "Hoja1" pon tus datos, el resultado quedará en la "Hoja2" Si quieres otros nombres de hoja, cambia en la macro "Hoja1" y "Hoja2" por los nombres de tus hojas. Sub Transponer() 'Por.Dante Amor Application.ScreenUpdating = False...
Ha respondido en y en 2 temas más

Solo poder imprimir mediante la macro

Pon la siguiente macro en los eventos de Thisworkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Por.Dante Amor If boton = False Then MsgBox "NO SE PUEDE IMPRIMIR POR ESTE MEDIO UTILICE EL BOTÓN SEÑALADO", vbCritical, "ERROR" Cancel = True...

Experiencia

Más de 20 años en sistemas

Trabajo

  • Sistemas
    Analista , 2002 - actualidad

Educación

  • uvm
    lic en sistemas , 1988 - 1992