1.223K puntos  Vive en Estado de México, México
@aprendemos desde - visto

Dante Amor

A mi también me gusta que seas Feliz !!!

Preguntas y respuestas en Microsoft Excel

Respuesta en Microsoft Excel a

Pregunta para dante para insertar comentarios

Hola: Tienes que modificar la macro comentario Sub Comentario() 'Por.DAM ActiveSheet.Unprotect If ActiveCell.Count = 1 Then If ActiveCell.Comment Is Nothing Then ActiveCell.AddComment SendKeys "+{F2}" Else SendKeys "+{F2}" End If End If...

Divir 274 registro de una columna en 10 columnas y las filas que sean necesarias

Hola: Te anexo la macro, cambia en la macro "hoja1" por el nombre de la hoja que tiene tus registros, cambia en la macro "hoja2" por el nombre de una hoja en donde quedarán los registros divididos. Sub dividir() 'Por.Dante Amor...

Pregunta para DAM, Ejecutar Macro en RED LAN

Hola: Tendría que probarlo todo, tengo que recrear el ambiente como lo tienes. No sé si las macros no se pueden ejecutar, por la forma en que tienes compartido el archivo. En fin tendría que probar con algo para poder decirte qué es lo que tienes que...
Respuesta en Microsoft Excel a

Pregunta para dante agregar botón anterior en año por año

Hola: Este es el código para el anterior Sub anterior() 'Por.Dante Amor Set d = ActiveCell If d.Column < 15 Then Exit Sub siguiente If Cells(1, d.Column).Offset(0, 1) <> "" Then Cells(1, d.Column).Offset(0, -2).Select col = ActiveCell.Column...
Respuesta en Microsoft Excel a

Crear Código para Formulario de Entradas en Excel 2003.(Va dirigida a Dante Amor)

Hola: Te anexo el código para las entradas, ya incluye la actualización al stock. Private Sub ComboBox1_Change() 'Por.Dante Amor If ComboBox1 = "" Then Label6 = "" Exit Sub End If Label6 = Hoja1.Cells(ComboBox1.ListIndex + 2, "A") End Sub Private Sub...
Respuesta en Microsoft Excel a

Para DAM una instrucción en VB para ejecutar o no una MACRO

Hola: Te anexo la macro Sub revisar() 'Por.Dante Amor celdas = Array("D6", "D7", "D8", "D9", "D10") For i = LBound(celdas) To UBound(celdas) If Range(celdas(i)) = "" Then cadena = cadena & celdas(i) & ", " falta = True End If Next If cadena <> ""...
Respuesta en Microsoft Outlook y en 1 temas más a

Macro para abrir outlook y enviar mail automático desde Excel dada alguna condición cumplida.

Hola: Para enviar el correo se requieren varios datos: - El destinatario - El asunto - El cuerpo del mensaje Y para determinar la comparación necesito que me expliques con varios ejemplos, cómo tienes la información qué celda se compara con cuál...
Respuesta en Microsoft Excel y en 3 temas más a

Divison de una tabla en por tablas de 10 registros homogéneos entre ellos

Hola: Ya entendí esta parte, tienes una lista con n registros, pero: 1. Cuántas tablas quieres? El número de tablas es variable?? 2. Cuántos registros quieres por tabla? El número de registros siempre es 10?? Me puedes comentar en ese orden....
Respuesta en Microsoft Excel a

Quiero conseguir que un marco me sirva para varias hojas y que varios marcos se activen con un botón

Hola: Me puedes explicar qué quieres copiar. Por ejemplo, en la macro1 Sub Macro1() ' ' Macro1 Macro ' Application.ScreenUpdating = False ' Range("B3:H3").Select Selection.Copy Sheets("Información general").Select Range("A2").Select Selection.Insert...

Pregunta para Dante Amor, ¿Eliminar duplicados, con condición?

Hola: Prueba con la siguiente macro Sub Macro1() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = ActiveSheet Set h2 = Sheets.Add h1.Select h1.Range("A1").Select Selection.AutoFilter u = h1.Range("A" &...