Dante Amor

Dante Amor

Excelente!
 3.293K puntos  Estado de México, México @aprendemos desde - visto
Preguntar

Actividad pública reciente

Ha respondido en y en 2 temas más

Macro Excel: ¿Cómo generar un PDF solo de las celdas que contengan datos?

Prueba con lo siguiente. Sub GenerarPDF() nombre = Range("H3") & "-" & Range("D7").Value u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row Range("A1:H" & u).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, _...
Ha respondido en y en 1 temas más

Copiar diferentes rangos con macro

Actualmente copia el rango y lo pega en la celda B8 H2. Range("O42:O104"). Copy h1. Cells(8, "B") Si copia el rango "O42:O62", ¿dónde quieres que se pegue? El rango "O70:O80, dónde quieres que se pegue? Y el rango "O88:O104", ¿dónde quieres que se pegue?
Ha respondido en

Error de compilación: Se esperaba una matriz

El problema es la declaración de la variable VcS No te preocupes por declarar las variables, en VBA no es necesario declararlas. Si no la hubieras declarado, tu macro no tendría problemas. Deja el código así: Private Sub CommandButton1_Click()...
Ha respondido en

DIA.LAB me devuelve un día festivo. Porqué?

El + 3, lo debes poner dentro de la función día.lab, para que lo considere en el cálculo, si lo pones afuera, entonces te va a traer el día laboral y a ese día le suma 3, entonces debe ser así: =DIA.LAB(A1;B3+3;P3:P20) Con eso, si hoy es lunes 27 de...
Ha respondido en y en 1 temas más

MACRO poner una condición y este me recalcule

H o l a: Te anexo la macro actualizada Sub Macro5() '------ ' Por.Dante Amor '------ Range(Cells(3, "E"), Cells(Rows.Count, Columns.Count)).ClearContents For i = 3 To Range("B" & Rows.Count).End(xlUp).Row fecha = Cells(i, "B") horas = Cells(i, "C")...
Ha respondido en y en 1 temas más

Obtener numero de fila en listbox filtrado

Envíame tu archivo con el userform y me explicas con ejemplos, r ecuerda poner tu nombre de usuario en el asunto del reporte.
Ha respondido en y en 2 temas más

Duda sobre Target en excel VBA

Vamos una por una Target.addres(False, False) = "A1" target.address te regres "$A$1", pero si le pones (false, false) te regresa "A1" (False, true) te regresa "A$1" (True, false) te regresa "$A1" If Target.Row > 100 Then Exit Sub If Target.count > 1...
Ha respondido en y en 2 temas más

Como pegar en una celda la ruta y el nombre del archivo completo en excel con una macro

Te anexo la macro, cambia "D4" por la celda en la que quieres pegar la ruta completa y el nombre del archivo Sub Ruta_Archivo() 'Por.Dante Amor With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo" .Filters.Clear...
Ha respondido en y en 2 temas más

Macro para ocultar filas de un rango según condición

H o la : Te anexo la macro Sub Ocultar_Filas() '--- ' Por.Dante Amor '--- Application.ScreenUpdating = False Rows("2:74").EntireRow.Hidden = False For i = 2 To 74 If Cells(i, "AJ") = 0 Then Rows(i).EntireRow.Hidden = True End If Next End Sub 'S...
Ha respondido en y en 3 temas más

Macro que haga coincidir los valores de un rango con los de otro y copie una columna

H o l a: Te anexo la macro Sub Copiar_Celdas() '--- ' Por.Dante Amor '--- Set h1 = Sheets("Informe Mensual") Set h2 = Sheets("Equipos BESALCO") For Each celda In h1.Range("I14:I18") If celda.Value <> "" Then Set b =...
Ha respondido en y en 1 temas más

¿Creación de macro con if que pueda dar clic en una celda y me de el valor en otra?

¿Qué celda quieres seleccionar? Si esa celda tiene un dato, ¿lo quieres comparar con algo? ¿En cuál celda quieres poner un valor y qué valor quieres poner? Podrías explicarlo todo con un ejemplo o con imágenes. sal u dos
Ha respondido en y en 3 temas más

Error en código de búsqueda, no me refleja datos en el listbox

Empieza por utilizar una nomenclatura adecuada en tus variables Set h2 = Sheets("history") h2 está bien, empieza con h porque se refiere a una "h"oja Pero esto: Set h1 = PRUEBAS No se sabe, a qué te refieres con PRUEBAS, por la imagen se puede ver...
Ha respondido en y en 3 temas más

Imprimir datos de un formulario textbox, labels y listbox

No puedes imprimir directamente del listbox, tienes que pasar los datos a una hoja. Primero limpia la hoja y después pasa los datos del listbox a la hoja. Ya con los datos en la hoja, envías a imprimir la hoja. La hoja es la que debes configurar para...
Ha respondido en y en 3 temas más

Base de datos lenta, ¿Cómo podría optimizarla?

H o la: Los archivos se hacen lentos por lo siguiente: - Formatos concionales - Formatos de celdas (colores, bordes, etc) - Fórmulas en muchas celdas; fórmulas que están sin utilizar, a veces copian las fórmulas en cientos de filas esperando que...
Ha respondido en y en 2 temas más

Combobox que incluya todas las opciones que tengan las letras ingresadas EXCEL

Envíame tu último archivo, r ecuerda poner tu nombre de usuario en el asunto del correo.
Ha respondido en y en 1 temas más

Como sumar varios conceptos con vba

H o la: Suponiendo que en la hoja detalle tienes en la celda A2 el concepto "Producción", entonces en B2 pon la siguiente fórmula: =SUMAR.SI(base!C:C;detalle!A2;base!D:D) Si hacia abajo de A2 tienes más conceptos, entonces copia la fórmula hacia...

Experiencia

Más de 20 años en sistemas

Trabajo

  • Sistemas
    Analista , 2002 - actualidad

Educación

  • uvm
    lic en sistemas , 1988 - 1992