Respuesta
en
Microsoft Excel
y en 3 temas más
a
Macro para imprimir número de páginas determinado de una hoja
Prueba con lo siguiente: Sub Imprimir_Hoja() fin = Sheets("FORMULARIO").Range("D7").Value Sheets("ETIQUETAS").PrintOut from:=1, to:=fin End Sub
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Excel - Botón vista previa en función de un formulario con la lista de hojas
Puedes descargar de aquí la nueva versión de la aplicación: https://www.gerencie.com/enviar-varias-hojas-de-un-libro-de-excel-a-imprimir-o-archivo.html Para ver la vista preliminar, realiza lo siguiente: - Cambia la propiedad ShowModal del Userform a...
Respuesta
en
Visual Basic
a
¿Por qué no se cargan los datos de excel a mi form?
Cuando te envía ese mensaje es porque un nombre de control no existe o porque la función no existe, pero la macro se detiene en el dato que no existe y te lo colorea de azul, por ejemplo: En tu caso cuál línea se colorea de azul. Para que la revises.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para enviar correos con archivos adjuntos diferentes
Qué versión de excel tienes, es por outllook, cuál es la macro.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar y pegar datos vba intercalando filas y columnas
Envíame un correo con tu archivo. En la hoja1 pones tus datos y en la hoja2 me pones el resultado esperado. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Nelia Garcia”
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Mejorar la función creada LIMPIA
Cambia esta línea Case Else: pat = "[^0-9]" Por esta Case Else: pat = "[^0-9|.]" Y además, Cambia esta línea Limpia = CLng(Limpia) Por esta: LIMPIA = LIMPIA O también puedes eliminar estas 3 líneas: If num_car_az = 1 Then LIMPIA = LIMPIA End If sal u dos
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar y pegar Datos de una celda en excel, intercalando con columnas en blanco vba
Te anexo la macro Sub copiar_celdas2() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u1 = h1.Range("A" & Rows.Count).End(xlUp).Row If u1 > 8 Then h1.Range("A9:A" & u1).Copy H2. Range("A9"). PasteSpecial xlValues h1.Range("B9:B" & u1). Copy h2....
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como hago una macro que tome siempre el valor de una celda "I9" y lo copie en otra hoja pero siempre debajo otro valor
Te anexo la macro Sub Copiar_Celda() u = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row + 1 Sheets("Hoja2").Range("A" & u).Value = Sheets("Hoja1").Range("I9").Value MsgBox "Valor agregado" End Sub
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Necesito modificar esto para que me agregue la palabra cero cuando esta en el lado izquierdo
Te anexo la función actualizada Function Num_texto(Numero) Dim Texto Dim Millones Dim Miles Dim Cientos Dim Decimales Dim Cadena Dim CadMillones Dim CadMiles Dim CadCientos Texto = Numero ' If Left(Texto, 1) = "0" Then existe = True End If ' Texto =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para copiar datos de distintos libros en uno solo
Te anexo la macro con los cambios Sub copia_hojas3() '------------------ 'by niko ' '------------------ Application.DisplayStatusBar = True ' 'Act Por Dante Amor fecha = InputBox("Ingresa la fecha dd/mm/aaaa:", "COPIAR SOLAMENTE ESTA FECHA") If fecha...