Dante Amor

Dante Amor

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

Respuestas en Visual Basic

Respuesta en y en 1 temas más a

¿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
Respuesta en y en 3 temas más a

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...
Respuesta en y en 3 temas más a

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...
Respuesta en y en 3 temas más a

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...
Respuesta en y en 2 temas más a

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.
Respuesta en y en 1 temas más a

Macro para quitar el nombre del archivo de toda la ruta previamente escrita en una celda

Te anexo la macro Sub Quitar_Nombre() 'Por.Dante Amor For Each celda In Cells.SpecialCells(xlCellTypeConstants, 23) If LCase(Right(celda, 4)) = ".pdf" Then ruta = Left(celda, InStrRev(celda, "\")) celda.Value = ruta End If Next MsgBox "Fin" End Sub...
Respuesta en y en 2 temas más a

Como copiar el valor de dos celdas(ejm: A1,B2) al cambiar el valor de una en especifica (ejm C3).

La macro copia las celdas G16 y B5, solamente seleccionando la celda G3 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(False, False) = "G3" Then If Target.Count > 1 Or Target.Value = "" Then Exit Sub ' uc = Cells(2,...
Respuesta en y en 2 temas más a

Como crear un evento para que al guardar un archivo y exista ese nombre, me de una alerta de reemplazar.

Te anexo la macro para revisar si existe el archivo, si ya existe, te pregunta si quieres reemplazarlo. Sub SaveWithVariableFromCell() Dim SaveName As String SaveName = ActiveSheet.Range("L6").Text ruta = "C:\Users\pc-01\facturas\consecutivo\" If...
Respuesta en y en 1 temas más a

Buscar una cadena dentro una celda en excel y devolver un valor

Pon la siguiente fórmula en la celda B1 =SI.ERROR(SI(ENCONTRAR("x t -60 %",A1)>0,"SI", ""), "") copia o arrastra la fórmula hacia abajo. 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Respuesta en y en 2 temas más a

Macro para eliminar ciertas columnas de una tabla filtrada:

H o la: Según tus comentarios, primer realizar un filtro por fecha, entonces, en la siguiente macro cambia la letra "D" por la columna donde tienes esas fechas. También cambia el 1 por el número de fila donde tienes los encabezados En estas líneas...