Dante Amor

Al parecer alguna biblioteca o módulo de excel se borró o se modificó. Si entras al Botón de Office. Opciones de excel. Complementos. En la parte inferior presiona el botón que dice "Ir...". En la siguiente ventana, desmarca todos los Complementos y...

¿En serio Eusebio?, es tan complicado para ti, pegar aquí en el foro tu macro siguiendo una simple regla.

Según tu ejemplo, el nombre corto debe quedarse. Prueba la siguiente macro. El resultado lo pone en la columna Z para que compares los resultados: Sub CambiarNombre() 'Por Dante Amor Dim a As Variant, b As Variant Dim i As Long, j As Long a =...

Puedes poner un formato condicional Utiliza esta fórmula: =Y(LARGO($A2)<7,LARGO($A2)>0) La macro: Sub PonerColor() Dim c As Range For Each c In Range("A1", Range("A" & Rows.Count).End(3)) If Len(c.Value) < 7 Then c.Interior.Color = vbYellow Next End Sub

Listo. Prueba con los 3 archivos abiertos. Sub CEMENTO() 'Por Dante Amor ' Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet Dim wb2 As Workbook, wb3 As Workbook Dim i As Long, fila As Long Dim col As String, llave As String Dim m As Variant,...

Probé tu macro y me funciona. Incluso te preparé un vídeo para que tú hagas el paso a paso y verifiques el proceso https://youtu.be/oDwmWi9pSG0 Tienes este detalle dice: WordApp.EndKey Unit:=6 Debe decir: WordApp.Selection.EndKey Unit:=6 Y borra esta...

Utiliza la función DERECHA Por ejemplo: =DERECHA(A1;1)

Pon el siguiente código en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) Dim sCliente As String, sCodigo As Variant, mensaje As String Dim pItem As PivotItem, n As Long ' Application.ScreenUpdating = False ' If Not...

Revisa el funcionamiento de la fórmula CONTAR. SI Ejemplo:

La idea es copiar los datos de has hojas crudo1, crudo2 y retenido del libro molienda de crudo al libro consultas calidad en la hoja molienda de crudo ¿Los datos de la hoja "CRUDO1" en dónde se ponen, en Molino1) ¿Los datos de la hoja "CRUDO2" en...