Adriel Ortiz Mangia

[Hola Usa esto =SI(H8<0,"EXCEDENTE","SALDO") valora la respuesta para finalizar saludos!

[Hola Te paso la macro. Para finalizar hay 2 opciones Excelente o bueno saludos! Private Sub CommandButton1_Click() ' '***Por Adriel Ortiz Set h1 = Sheets("Hoja1") 'Nombre de la Hoja ' Set r = h1.Columns("A") 'Columna a buscar Set b =...

[Hola prueba esto Sub Guardacopia() 'Fuente.Dante Amor 'Act. Adriel Ortiz Application.ScreenUpdating = False Application.DisplayAlerts = False ' ruta = ActiveWorkbook.Path & "\" nombre = "reporte.xlsm" 'cambiar por el nombre del archivo...

[Hola Te puedo ayudar con la primera. Cual celda se va extraer de cada libro y de cual hoja.

[Hola Prueba así Private Sub Worksheet_Change(ByVal Target As Range) ' '**Act. Adriel Ortiz ' Dim N1 As String If Intersect(Target, Range("B1:CP150000")) Is Nothing Then Exit Sub Else Application.EnableEvents = False If Target.Value <> "" Then...

[Hola Te paso la macro para copiar los rangos de todas las hojas a otro libro con pegado especial. No me quedó la claro de la operación suma. Cambia el nombre y la ruta donde tienes tu libro para pegar los datos. Sub copiar_allsheets() ' '**Por...

[Hola revisa esto https://www.youtube.com/watch?v=vnXBGJNR3nk

[Hola Cambia esta línea Set Mirango = Application.InputBox("Seleccione un rango a exportar", Type:=8) por esto Set Mirango = "D11:D33"

[Hola Te paso un ejemplo. En el formulario1 tienes los TextBox10, TextBox11 y TextBox12 y los valores va al formulario2 TextBox1, TextBox2 y TextBox3. Pon esto en el evento activate del formulario2 Private Sub UserForm_Activate() TextBox1.Text =...

[hola Te paso un ejemplo, lo pones en evento click de tu botón Commandbutton1.backcolor =vbred Commandbutton1.backcolor =vbwhite