Dante Amor

Te anexo la macro actualizada Sub Macro3() 'Act.Por.Dante Amor ' Macro3 Macro ' ' Acceso directo: CTRL+h ' 'Dim abc As Worksheet, iComentarios As Integer For Each hoja In ActiveWorkbook.Worksheets For Each comentario In hoja.Comments texto =...

H o l a : Pon la siguiente macro el botón. Sub Buscar() 'Por.Dante Amor n = 0 For i = 1 To Range("R" & Rows.Count).End(xlUp).Row If Cells(i, "R") = "VISITAR CLIENTE HOY" Then cad = cad & Cells(i, "G") & " " & Cells(i, "D") & vbCr n = n + 1 End If...

Pon la siguiente macro en los eventos de Thisworkbook Private Sub Workbook_Open() 'Por.Dante Amor For Each h In Sheets If UCase(Left(h.Name, 3)) = "LIM" Then h.ScrollArea = "$A$1:$H$70" End If Next End Sub Instrucciones para poner la macro en los...

Te anexo la macro, tienes que poner en el Array los nombres de las columnas en el orden en que quieres que aparezcan de la columna A a la E. Los nombres deberán estar en la fila 1. Sub Macro2() 'Por.Dante Amor ' Application.ScreenUpdating = False...

H o l a : Son varias actividades que se deben considerar. Sigue las indicaciones. 1. Para que se muestren todos los resultados según la letra o letras ingresadas, deberás poner un combobox de CotrolActiveX, ya que en un textbox no puedes desplegar...

H o l a : Si la fórmula BuscarV no encuentra el valor, entonces en la celda te pone el error #N/A Cuando intentas cargar el error en el listbox, te envía el error "No se puede configurar la propiedad List". Puedes solucionarlo de las siguientes...

H o l a : Te pongo algunos ejemplos de formato: Sub Macro1() 'Por.Dante Amor Set celda = Sheets("Hoja3").Range("A1") 'negrita celda.Font.Bold = True 'color de letra celda.Font.ColorIndex = 6 'Texto subrayado celda.Font.Underline =...

Pon la siguiente macro en un botón. Sub detener() On Error Resume Next Application.OnTime Now + TimeSerial(0, 0, 1), "'" & ThisWorkbook.Name & "'!StartBlink", , False End Sub Cuando las celdas estén parpadeando, presiona el botón "detener" y el...

H o l a : no es necesaria una macro. Selecciona del menú: Diseño de página. Imprimir Títulos. Encabezado y pie de página. Personalizar pie de página. En la tres secciones izquierda, central y derecha, pones la línea:...

Así: u = h2.Range("D" & Rows.Count).End(xlUp).Row h2.Cells(u + 1, "D") = "Total" h2.Cells(u + 1, "E") = WorksheetFunction.Sum(h2.Range("E10:E" & u)) sal u dos