Adriel Ortiz Mangia

[Hola Te paso la macro Sub CopiarUnRango() 'Por.Dante Amor 'Act Adriel ortiz ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' ruta = "C:\carpeta\" ChDir ruta hoja = "Hoja1" ' hoja para extraer datos de cada libro archi =...

[Hola prueba así Private Sub TextBox1_Change() TextBox1 = Format(TextBox1, "###,###,###,00") End Sub revisa este link...

[Hola Prueba con esto Finaliza la respuesta valorando Sub quita_color() For Each r In Range("A1:Cy1000") r.Interior.ColorIndex = xlNone Next r End Sub

[Hola Pon la macro y actualizarla

[Hola CommandButton1. Setfocus

[Hola Te paso la macro Sub copiar() ' ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") col = "A" 'columna a copiar col2 = "B" 'columna a evaluar j = 2 For i = 2 To h1.Range(col & Rows.Count).End(xlUp).Row If h1.Cells(i, col2) <> "" Then...

[Hola Explica con otro ejemplo describiendo el resultado que necesitas

[Hola Crea una hoja BASE para copiar los datos de las hojas que necesitas Sub copiar() Application.ScreenUpdating = False For Each h In Sheets Set h1 = Sheets("BASE") If h.Name <> h1.Name Then u = 36 u1 = h1.Range("B" & Rows.Count).End(xlUp).Row + 1...

[Hola Crear Macro para guardar archivo con extensión CSV (asignando ciertas celdas)

[Hola Prueba esto Sub BUSCAR() busca = InputBox("Ingresa Dato a buscar") If busca = "" Then Exit Sub Set R = Range("A1:A50") Set b = R.Find(busca, LOOKAT:=xlWhole) If Not b Is Nothing Then MsgBox "Dato encontrado", vbInformation, "Aviso" b.Select End...