Adriel Ortiz Mangia

[Hola Te paso la macro. Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copiar() ' '***Por Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' If h1.Range("B7") = "" Then MsgBox "Ingrese dato a buscar" h1.Range("B7").Select...

[Hola prueba esto fila = ActiveCell.Row ' If Label10 = ActiveCell.Value Then Cells(fila, 32) = ComboBox27 End If valora la respuesta para finalizar saludos!

[Hola Te paso la macro, cambia el nombre de la hoja yo puse Hoja1 Valora la respuesta para finalizar saludos! Sub ocultar_fila() ' '***Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") ' u = h1.Range("N" & Rows.Count).End(xlUp).Row For i = u To 7 Step -1 '...

[Hola Pon la macro para revisarlo y también la ruta para guardar

[Hola Te paso la macro con los ajustes como solicitas, lo tienes que poner en un Módulo. Por ejemplo en la celda A1 tienes 1150.30 y en la celda B1 escribes =numLetras(A1) y enter. Listo. Aquí el enlace: para las instrucciones como crear el modulo....

[Hola Prueba con esto. Valora la respuesta para finalizar saludos! Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act. Por Adriel ' If Not Intersect(Target, Range("B11:B25")) Is Nothing Then If Target.Count > 1 Then Exit Sub...

[Hola Pon la macro para actualizar y una imagen de tu hoja

[Hola Esto es para borrar el gráficos y datos, no me queda claro sobre el borrado de datos. Si es para borrar datos de toda la hoja usa esto Valora la respuesta para finalizar Excelente o bueno saludos! Sub Eliminar() ' '***Por Adriel Ortiz ' 'Para...

[Hola Envíame tu archivo [email protected] saludos!

[Hola Te paso la macro, ajusta los nombres de tus controles por el tuyo. En el Formulario1 para el Textbox1. Valora la respuesta para finalizar saludos! Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '...