marleyne

Hola expertos buen día, Tengo un archivo en excel que tiene macros y necesito que una de esas macros, guarde el archivo de pdf que tenga abierto, en una ruta y con un nombre que yo especifique en excel y que además, me incluya en el nombre el número...

Hola expertos, tengo el siguiente código: Sub SOLICITUD() ASUNTO = "SOLICITUD: " & Cells(2, 2) & " " & Cells(2, 4) & " " & Cells(2, 5) CUERPO = "Favor de procesar:" & Chr(13) & Chr(13) & "Saludos." UserForm2.Show On Error GoTo FIN Set objOutlook =...

Hola buen día, Tengo una laptop en la cual debo realizar capturas de números, lo cual me provoca muchos errores ya que el teclado es difícil de manejar, en fin, para evitarlo creé un formulario muy sencillo y funciona bien hasta que presiono el botón...

Hola expertos buen día, Yo manejo muchos formatos en excel con macros y quiero implementar su uso por mis compañeros de trabajo, sin embargo, cuando algún usuario trata de ejecutar las macros dentro de los archivos que le mando, le sale el siguiente...

Hola expertos buen día, tengo el siguiente código: Private Sub UserForm_Initialize() ComboBox2.Value = Format(Date, "YYYY") End Sub Private Sub ComboBox1_Change() FILA = ActiveCell.Row Range("A" & FILA & "") = Format("01-" & Mid(ComboBox1, 1, 3) &...

¿Cómo hago para poner un valor por default en un combobox? Digamos que en mi combobox tengo los valores: azul, amarillo, verde, rojo, pero el valor que más usamos es el verde, por lo que al seleccionar el combo quiero que me ponga verde por default y...

Hola expertos!! Tengo el siguiente código: Range("C11").Select 'Do While ACTIVECELL <> 0 ACTIVECELL.Offset(1, 0).Select Dim R As Integer, G As Integer, B As Integer Dim N As String N = Hex(ACTIVECELL.Interior.COLOR) R = Val("&H" & Right(N, 2)) G =...

Hola expertos!! Tengo el siguiente código: Private Sub AUTO_CLOSE() For FILA = 10 To 1009 If Cells(FILA, 2).Value <> 0 And Cells(FILA, 3).Value <> 0 And Cells(FILA, 4).Value <> 0 And Cells(FILA, 13).Value = "" Then MsgBox "EL CAMPO EN LA CELDA N" &...

Tengo el siguiente código: Private Sub ORAZ() Sheets("Hoja 1").Select A = InputBox("INGRESA LA LETRA DE LA COLUMNA QUE QUIERES ORDENAR", "ORDENAR A/Z", , 500, 500) ActiveSheet.Unprotect "ábrete" ActiveWorkbook.Worksheets("Hoja...

Hola expertos! Tengo el siguiente código: Private Sub ORAZ() Sheets("Hoja 1").Select A = InputBox("INGRESA LA LETRA DE LA COLUMNA QUE QUIERES ORDENAR", "ORDENAR A/Z", , 500, 500) ActiveSheet.Unprotect "ábrete" ActiveWorkbook.Worksheets("Hoja...