Dante Amor

Prueba con la siguiente macro Sub Macro1() 'Por.Dante Amor Cells.UnMerge u = Range("B" & Rows.Count).End(xlUp).Row Range("A2:A" & u).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" End Sub . 'S aludos. Dante Amor. Recuerda valorar la...

Realiza los pasos del siguiente enlace. Macro para combinar correspondencia según condiciones de una base de excel. Una vez que hayas logrado combinar la correspondencia entre excel y word pasamos a la parte del estado del cliente

Prueba con lo siguiente: Sub ejemplo() 'por luismondelo Application.DisplayAlerts = False Application.ScreenUpdating = False For Each hoja In ActiveWorkbook.Sheets If hoja.Name = "todas" Then hoja.Delete Next Sheets.Add before:=Sheets(1)...

Tengo algunos ejemplos para dividir información en libros, revisa los siguientes enlaces, tal vez encuentres lo que te hace falta: Dividir datos de una hoja en Excel en varios libros Macro para separar datos de una hoja de Excel en varios libros de...

Te anexo el código VBA para obtener el valor según un índice: Sub Seleccionar_Siguiente_Valor() 'Por.Dante Amor ' indice = 2 Set celda = Range("A1") Set ad = celda.SpecialCells(xlCellTypeAllValidation) If Not Intersect(celda, ad) Is Nothing Then Set...

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

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