Dante Amor

Dante Amor

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

Preguntas y respuestas en Microsoft Excel

Respuesta en a

Copiar celdas de una hoja a otra si son mayores a cero

H o l a : Te anexo la macro Cambia en la macro "sheet1" y "hoja1" por el nombre de tus hojas. Sub CopiarFilas() 'Por.Dante Amor Set h1 = Sheets("sheet1") 'hoja origen Set h2 = Sheets("Hoja1") 'hoja destino h2.Cells.ClearContents j = 1 For i = 1 To...

Necesito macro para ejecutar todos los domingos, solo la primera vez que se abra el libro

H o l a : Agrega el siguiente código en los eventos de ThisWorkbook Private Sub Workbook_Open() 'Por.Dante Amor dia = Weekday(Date) If Weekday(Date) = 1 Then If Sheets("temp").[A1] <> Date Then Call EXISTENCIA_Y_SUS_COSTOS...
Respuesta en y en 3 temas más a

Macro que inserte datos en orden según el código que tenga.

H o l a : Te anexo la macro. En tu hoja "cuentas", las cuentas deberán empezar en la fila 2 y en la fila 1 deberás tener el encabezado. Con tu formulario deberás agregar el nuevo registro al final de la lista, como se muestra en la imagen. Después de...

¿Puedo usar el mismo evento Worksheet_Change en una misma hoja?

Tienes que poner todo el código dentro del evento, por ejemplo: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("C3")) Is Nothing Then MsgBox "Se modificó la celda C3" 'instrucciones cuando se modifica la...
Respuesta en y en 1 temas más a

Anidar un find dentro de otro para cruzar 3 hojas

H o l a : Me puedes enviar tu archivo con las 3 hojas y un par de ejemplos, me explicas qué datos son los que se tienen que buscar, en dónde se deben buscar, y desde luego, qué datos quieres tomar como resultado de la búsqueda y en dónde los quieres...
Respuesta en y en 3 temas más a

Macro para avanzar después de leer código de barra

Revisa la configuración de tu "pistola", dependiendo de la marca y modelo de la pistola, se puede configurar para que después de leer un código de barras, automáticamente envié el Enter. De esa forma no es necesaria una macro. La configuración la...
Respuesta en y en 2 temas más a

Como insertar filas a través de un botón pero que la fila conserve el formato y los códigos.

Pon la siguiente macro en un botón. Cambia en la macro el 4 por número de fila a copiar. Sub CopiaFila() 'Por.Dante Amor Rows(4).Copy Rows(ActiveCell.Row).Insert Shift:=xlDown End Sub Primero, selecciona la celda en donde quieres insertar la fila con...
Respuesta en a

Como filtrar en un listbox solo ciertas filas según criterio

H o l a: Envíame en un correo nuevo el archivo con el userfor. Recuerda poner tu nombre en el asunto.
Respuesta en y en 1 temas más a

Seleccionar datos y separarlos por hojas en otro libro

H o l a: La siguiente macro considera la fila 1 como encabezado, y a partir de la fila 2 empiezan tus datos. Cambia en la macro "original" por el nombre de tu hoja que contiene los datos. Sub SepararDatos() 'Por.Dante Amor Application.ScreenUpdating...