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 ocultar un userform excel

[Hola La respuesta aquí saludos! Como ocultar userform en hoja nueva
Respuesta en y en 2 temas más a

Seleccionar 1 celda si y 6 celdas no

[Hola Te paso la macro Valora la respuesta marcando buena o Excelente saludos! Sub Select_rangos() ' 'Fuente Dante//'Act. Adriel Ortiz ' Set a = Cells(3, "A") For i = 3 To Range("A" & Rows.Count).End(xlUp).Row Step 6 Set a = Union(a, Cells(i, "A"))...
Respuesta en y en 2 temas más a

Como ocultar userform en hoja nueva

[Hola Pon la macro y ver que soluciones dar, no entendí como es que la formulario se abre mientras en estas trabajando en otra hoja. Si tu formulario está en ejecución y cuando te pasas a la hoja nueva y necesitas que se oculte el formulario Pon esto...
Respuesta en y en 2 temas más a

EXCEL Necesito invertir los datos de una tabla

[Hola Te paso la macro Valora la respuesta como excelente para finalizar Sub Organizar_datos() 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino ' h2.Rows("2:" & Rows.Count).Clear k = 4 h2.Cells(3,...
Respuesta en y en 1 temas más a

Al ejecutar un formulario con un botón aparezca en una región en especifico de la hoja de excel

[Hola revisa esto https://ayudaexcel.com/foro/topic/21121-definir-posicion-del-userform-al-iniciar/
Respuesta en y en 2 temas más a

Validación de campos se pierde con un pegar

[revisa esto https://jldexcelsp.blogspot.com/2009/12/evitar-borrar-validacion-de-datos-en.html
Respuesta en a

¿Cómo repetir formato condicional según valor de una celda?

[Hola Prueba con esta macro Valora para finalizar Private Sub Worksheet_Change(ByVal Target As Range) ' '//Por Adriel Ortiz ' If Target.Count > 1 Then Exit Sub If Target.Row <= 3 Then Exit Sub If Not Intersect(Target, Range("F:F")) Is Nothing Then...
Respuesta en y en 2 temas más a

Eliminar un registro de una base

[Hola Prueba con esto Valora la respuesta para finalizar saludos! Sub eliminar() col = "A" ' columna código codigo = "101" ' Set r = Columns(col) Set b = r.Find(codigo, lookat:=xlWhole) If Not b Is Nothing Then 'encuentra los datos y limpia la fila...
Respuesta en y en 2 temas más a

Macro para que pinte de un color si existen más de 3 fechas consecutivas

[Hola Pon una captura de la hoja y ver como está organizado tus datos
Respuesta en y en 2 temas más a

¿Mensaje de error si no existe el registro en la Base?

[Hola prueba así Private Sub CommandButton1_Click() ' col = "A" ' columna a buscar Set r = Columns(col) Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then 'encuentra los datos f = b.Row TextBox2 = Cells(f, "B") Else MsgBox "No existe...