Respuesta
en
Microsoft Excel
y en 2 temas más
a
Cómo copio una hoja de excel en pdf y excel...
¿Quieres guardar una hoja o todo el libro? Qué nombre va llevar el nuevo archivo xls y qué nombre va a llevar el archivo pdf ¿Qué versión de excel tienes? E spero tus comentarios en ese orden.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para crear una copia de un libro activo, cerrar el original y dejar la copia abierta
Pon el siguiente código en el botón para crear una copia Sub Crear_Copia() 'Por.Dante Amor 'crea una copia Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" nombre = "copia.xlsm" ThisWorkbook.SaveAs ruta & nombre End Sub En tu mismo...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Generar código crédito en excel vba
Te anexo el código actualizado Set h2 = Sheets("CREDITO") ' u = h2.Range("A" & Rows.Count).End(xlUp).Row numeros = Split(h2.Cells(u, "A"), "-") Select Case UBound(numeros) Case -1: nuevocod = 1 & "-" & "00000000" Case 0: nuevocod = Val(numeros(0)) +...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para buscar y copiar si no se encuentra
Me perdí. Puedes poner imágenes de lo que tienes y de lo que esperas como resultado. O bien, un par de ejemplos con lo que tienes en las hojas; y después un ejemplo de lo que esperas después de ejecutar la macro.
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Declarar una lista haciendo referencia a una columna de una tabla ubicada en una hoja "X" dentro del mismo libro de trabajo.
Te anexo el código actualizado Private Sub TextBox1_Change() 'Act.Por.Dante Amor ListBox1.Clear If Me.TextBox1.Value = "" Or Me.TextBox1.Value = " " Then Me.Height = 93 Else Me.Height = 225 Set lista =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Una macro que al guardar me envíe ese mismo archivo por gmail
Te anexo cómo enviar un archivo por Gmail Macro para enviar hoja excel por gmail Pero antes deberás guardar tu libro como copia Macro para guardar archivo excel en dos carpetas diferente al mismo tiempo El archivo de la copia será el que adjuntes en...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Necesito repetir un macro a diferentes filas
Suponiendo que tus datos están así: Entonces ejecuta la siguiente macro. Sub recordatorio() 'Act.Por.Dante Amor fechaActual = Date Set h = Sheets("Obras") For i = 3 To h.Range("D" & Rows.Count).End(xlUp).Row fechaReferencia = h.Cells(i, "F") 'fecha...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Poner valor variable en Combo al abrir hoja Excel
Supongo que es un combo de Control ActiveX. Si es así. Tienes que indicar en qué hoja está el combo y poner el parámetro "Object.Value" : Sheets("datos").ListPeriodoSOLRED.Object.Value = Sheets("PanelPrincipal").Range("C2") . 'S aludos. Dante Amor....
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Pasar datos multiseleccionados de un listbox a una hoja Excel
Te anexo el código Private Sub CommandButton1_Click() 'Por.Dante Amor Set h = Sheets("FrasRenting") existe = False For i = 0 To ListBox1.ListIndex If ListBox1.Selected(i) Then existe = True u = h.Range("R" & Rows.Count).End(xlUp).Row + 1 h.Cells(u,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Contador automático con formato personal vba excel
Prueba lo siguiente Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Por.Dante Amor respuesta = MsgBox("¿Nuevo Paciente?", vbYesNo) If respuesta = vbYes Then folio = Range("Q1").Value If folio = "" Then a = Right(Format(Date, "yyyy"), 1) dia =...