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...

Te paso la macro Sub COPIAR() ' 'VALORA LA RESPUESTA PARA FINALIZAR Set h1 = Sheets("Datos") Set h2 = Sheets("Resumen") ' h1.Range("A1:C1").Copy h2.Range("A1") h2.Range("A2:C" & Rows.Count).ClearContents ' u = h1.Range("A" & Rows.Count).End(xlUp).Row...

[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 Prueba con esto Valora la respuesta para finalizar Sub eliminar() ' Dim f As New Collection For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A") = "" Then f.Add i End If Next For i = f.Count To 1 Step -1 Rows(f(i)).Delete Next End Sub

[Hola Pon la macro y actualizarla

[Hola Te paso la macro 'valora la respuesta manito arriba para finalizar Private Sub CommandButton1_Click() ' 'VALORA LA RESPUESTA MANITO ARRIBA PARA FINALIZAR ' For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then For j = 0 To...

[Hola CommandButton1. Setfocus

[Hola Como está organizado tus datos y como cargas tus datos al listbox, muestra imágenes que muestre las filas y columnas

Macro Sub cerrar() Application.DisplayAlerts = False Application.Quit End Sub