Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Programación

Respuesta en y en 2 temas más a

Celda que identifique un texto en especifico y salga un imputbox

Si vas a manejar macros, en lugar de 2 inputbox, mejor presenta un formulario con 2 textbox, para que captures la información y ahí mismo se pueden poner las validaciones. Envíame tu archivo y me explicas qué validaciones quieres en cada inputbox, de...
Respuesta en y en 2 temas más a

MACRO buscar dato de una celda en otra archivo de excel y copiar un dato al costado de la celda seleccionada

No pusiste los libros, prueba poniendo la macro en los eventos de tu hoja del libro datos1, los 2 libros los deberás tener abiertos. Tampoco indicaste en qué columna está el proveedor. Private Sub Worksheet_SelectionChange(ByVal Target As Range)...
Respuesta en y en 2 temas más a

Macro para concatenar en excel

Prueba con esta: sub concatena() 'por.dante a for i = 2 to range("b" & rows.count).end(xlup).row cells(i, "f") = cells(i, "b") & cells(i, "c") next end sub Saludos. Dante amor. No olvides valorar la respuesta"
Respuesta en y en 3 temas más a

Crear nueva hoja a varios libros y que esta hoja tenga el formato y contenido de otra hoja?

Te anexo la macro con la actualización, cambia en la macro "Hoja1" por la hoja que quieras copiar. Sub CrearHoja() 'Por.Dante Amor Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") ruta = "C:\Users\clwhmeto\Desktop\METODOS 2015\Fichas incompletas\"...
Respuesta en y en 2 temas más a

MACRO o código para llamar una imagen

¿Pero quieres abrir la imagen cuando presiones un botón o una celda o en un formulario?
Respuesta en y en 2 temas más a

La macro brinca a una celda que no debe brincar...

Te anexo la macro con los cambios Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act.Por.Dante Amor If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub 'controla que se haya seleccionado 1 sola celda If Target.Count > 1 Then...
Respuesta en y en 2 temas más a

Función contar. Si. Conjunto en macro

Este es un ejemplo, contar en la columna A los que sean mayores o iguales a 100 y que en la columna B tengan la letra "a" El resultado son 3. Sub usoContarSiConjunto() MsgBox WorksheetFunction.CountIfs(Range("A1:A10"), ">=100", Range("B1:B10"), "a")...
Respuesta en y en 2 temas más a

Modificar nombre de una hoja en fórmula tomandolo de una celda

Quieres agregar un nombre en la hoja listado, ¿y automáticamente quieres que se copie la hoja formato en una hoja nueva? ¿La hoja nueva deberá tener por nombre el "nombre" que agregaste en la hoja listado? Si es así, hay que realizar una macro, luego...
Respuesta en y en 2 temas más a

Expandir mi rango de celdas para seleccionar?

Con la modificación que le hice a la macro, el filtro se hace hasta la última fila de la columna "B" que tengas con datos, si es la 1000, se hace hasta la 1000, si tienes 5000 se hace hasta la 5000. Private Sub Worksheet_Change(ByVal Target As Range)...
Respuesta en y en 1 temas más a

Mostrar datos de celdas en texbox según combobox

Te anexo la macro, para que sea más práctico cargar los datos de las celdas a los textbox, los textbox deben estar en orden de izquierda a derecha de arriba hacia abajo, y nombrados desde el textbo1 hasta el textbox12, es decir: Textbox1 textbox2...