Adriel Ortiz Mangia

Adriel Ortiz Mangia

La vida es hermosa
 252K puntos  Yurimaguas, Perú @temp01 desde - visto
Preguntar

Respuestas en Microsoft Excel

Respuesta en y en 2 temas más a

Como agregar el texto de una casilla a un texbox tempo01

Te envío el código Private Sub ComboBox1_Change() Select Case ComboBox1.ListIndex Case 0 CmdBotonpapel.Enabled = True '///////////////////////////////// TextBox3 = Sheets("CARTON").Range("C8") Case 1 CmdBotoncarton.Enabled = True...

Crear ventana de alerta (como windows) al abrir planilla de excel

Private Sub CommandButton1_Click() End End Sub Código para botón cerrar Private Sub Workbook_Open() UserForm1.Show End Sub Para mostrar el formulario al abrir el archivo. Me comentas saludos!!!
Respuesta en y en 1 temas más a

Mensaje al introducir valor en un campo de formulario si cumple cierta condicion

Textbox2.text = 15 if Textbox1.text > Textbox2.text then Msgbox" Es mayor a 15%" exit sub End if Me comentas saludos!!
Respuesta en y en 2 temas más a

Como agregar la información capturada a diferentes hojas de Excel con un botón personalizado para cada hoja para tempo01

Te facilito el código fuente. If TextBox1 = "" And TextBox2 = "" Then MsgBox "Ingrese los datos obligatorios", vbInformation, "Aviso" Exit Sub End If Set h1 = Sheets("CARTON") u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Cells(u1, "A") =...

Como puedo convertir una cadena de 6 números en excel a hora, minutos y segundos, ejemplo 172545 a 17:25:45.

=EXTRAE(A2,1,2)&":"&EXTRAE(A2,3,2)&":"&EXTRAE(A2,5,6) Valoras para finalizar saludos""
Respuesta en y en 2 temas más a

Como rellenar mediante una fórmula campos vacíos pero que si en la misma fila hay otro valor no tome el anterior sino el nuevo

Te anexo la respuesta de dante amor saludos! MACRO para rellenar o copiar datos en filas vacias
Respuesta en y en 1 temas más a

Como activar botones con diferentes utilizando un combobox

Private Sub ComboBox1_Change() Select Case ComboBox1.ListIndex Case 0 CmdBotonpapel.Enabled = True Case 1 CmdBotoncarton.Enabled = True Case 2 CmdBotonmadera.Enabled = True End Select End Sub Te facilito el codigo Valoras la respuesta para finalizar!
Respuesta en a

Macro para guardar excel a pdf y guardarlo en la misma ruta donde se encuentra el libro de excel

Sub Guardarpdf() 'Macro Actualizada Sheets("Hoja 01").Select ruta = ThisWorkbook.Path & "\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & _ "" & Range("M4").Value & (" - ") & Range("M5").Value & (" - ") & Range("M6").Value,...
Respuesta en a

Recibir un mensaje si Option estan False

Private Sub txtFiltro_Change() Call cbtFiltro_Click 'PROCEDE A EJECUTAR EL EVENTO End SubPrivate Sub UserForm_Initialize() OptionButton1.Value = True OptionButton2.Value = true End Sub Si te sirvió valora la respuesta para finalizar saludos!!!
Respuesta en y en 1 temas más a

Eliminar caracteres de una celda y consolidar en otra

Sub EliminarCaracter() For Each celda In Selection celda.Select celda = Replace(celda, "/", "") ActiveCell.Value = celda Next End Sub Esto es para eliminar carácter deseado. Cópialo a un módulo y ejecutalo Si te sirvió valora la respuesta para...