Dante Amor

Puedes hacerlo automático desde que vas capturando caracteres en el textbox, con el siguiente evento: Private Sub TextBox1_Change() 'Por.Dante Amor Label1.Caption = "" Set h = Sheets("Hoja1") Set r = h.Columns("A") Set b = r.Find(TextBox1,...

Me voy a tomar el atrevimiento de contestar, ya que hace un tiempo no contesta Luis. Te anexo la macro actualizada Sub nuevo() 'por luismondelo 'Act.Por.Dante Amor 'If Range("P1") <> "" Then Exit Sub ' For i = 3 To 100 actual = Cells(i,...

¿En la celda tienes el texto duplicado con asteriscos * o simplemente pusiste los asteriscos para ejemplificar cuál texto está duplicado? Si no tiene asteriscos, entonces habría que revisar palabra por palabra y eliminar todas las que estén...

En una textbox puedes almacenar cientos de caracteres. Entonces podrías tener un solo textbox para la descripción, podría quedar así: Private Sub CommandButton1_Click() Sheets("Hoja1").Select 'Selecciona la Hoja1 ActiveSheet.Unprotect 'Desprotege la...

Prueba con la siguiente macro. No sé exactamente a qué te refieres con "ciertas formulas condicionales"; estoy copiando toda las celdas pero revisa si es lo que requieres. Sub Filtar_Trasladar() ' ' Por Dante Amor ' Application.ScreenUpdating = False...

Revisa el siguiente ejemplo para limpiar las celdas y proteger la hoja Sub Limpieza() ' Por Dante Amor Set celdas = Range("A2, A5, B3, C4, D5, E6") ActiveSheet.Unprotect "abc" celdas.Locked = False celdas.Value = "" ActiveSheet.Protect "abc",...

Para copiar un archivo puedes utilizar lo siguiente: Sub Copiar_Plantilla() 'Por.Dante Amor ruta = ThisWorkbook.Path & "\" arch = "plantilla.xlsx" If Dir(ruta & arch) = "" Then MsgBox "El archivo plantila no existe" Exit Sub End If nuevo =...

Prueba lo siguiente Sub Colorear_sumar() For i = 5 To Range("A" & Rows.Count).End(xlUp).Row If IsDate(Cells(5, "A")) Then ' fecha1 = Format(Cells(i, "A"), "mm/yyyy") año = Year(Date) mes = Month(Date) + 1 ' 'fecha2 = Format(CDate(mes & "/" & año),...

Si puedes poner ejemplos de lo que tienes en tu hoja, marcando de algún color lo que quieres copiar. ¿O quieres copiar toda la columna? Entre más claros sean los ejemplos, será más práctico poder ayudarte. Utiliza imágenes en donde se vean las filas...

Podrías explicarlo con imágenes