Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Visual Basic

Respuesta en y en 3 temas más a

Problema para terminar código en macro

Prueba lo siguiente: Sub copiar_celdas_diferentes_pegar_otro_libro() Dim archivo As String Dim fso As Object Dim wb2 As Workbook Dim sh1 As Worksheet, sh2 As Worksheet Dim f As Range ' Application.DisplayAlerts = False Application.ScreenUpdating =...
Respuesta en y en 2 temas más a

Buscar texto y seleccionar celda copiar pegar

Y pegarla en la celda H5 de otro libro (h2) ¿El otro libro está abierto? ¿Cómo se llama el otro libro? ¿Cómo se llama la hoja del otro libro?
Respuesta en y en 3 temas más a

Error al iniciar excel, error de compilación

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...
Respuesta en y en 2 temas más a

¿Se puede modificar los nombres en una tabla de excel, sin necesidad de hacerlo uno por uno?

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 =...
Respuesta en y en 2 temas más a

¿Se puede rellenar una fila con un color, de acuerdo a una condición?

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
Respuesta en y en 2 temas más a

Extraer datos de dos libros y datos no continuos

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,...
Respuesta en y en 1 temas más a

Quisiera alinear a la derecha el primer texto a pegar

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...
Respuesta en y en 1 temas más a

Macro automática filtrar tabla dinámica relacionada a una celda en excel

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...
Respuesta en y en 1 temas más a

Como hago el conteo para establecer 2 datos en una tabla

Revisa el funcionamiento de la fórmula CONTAR. SI Ejemplo:
Respuesta en y en 2 temas más a

Extraer datos de tres hojas de un mismo libro

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