Dante Amor

H o l a: No mencionaste en cuál columna del nuevo libro se tiene que pegar, la macro lo va a pegar en la columna "A" Cambia en la macro A1 y A18 por la letra de la columna que desees. Te anexo la macro: Sub CopiarFilas() 'Por.Dante Amor...

Pon la siguiente macro en los eventos de la hoja "Visitas" Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Address(False, False) = "C14" Then [F6] = 0 [F7] = [C14] End If End Sub Sigue las Instrucciones para poner la...

Si es 0, entonces debería ser así: Sub prueba() Application.ScreenUpdating = False For Each celda In Range("C9:C729") If celda.Value = 0 Then celda.EntireRow.Hidden = True Else celda.EntireRow.Hidden = False End If Next End Sub Si el proceso es...

¿Tienes habilitas las macros? ¿Estás pegando más de un dato? La macro tiene esta instrucción: If Target. Count > 1 Then Exit Sub, es decir, que si pegas más de un dato la macro no se ejecuta, es para evitar un desbordamiento de memoria.

H o l a: Para desarrollar la macro podrías poner las referencias de tus datos: 1. Nombre de hoja destino 2. Columna destino 3. A partir de cuál fila se van a pegar los datos 4. Cuáles hojas se van a copiar, todas o solamente algunas 5. Qué columna o...

H o l a Nathalia: Ya tengo tu correo, voy a revisar el archivo y en cuanto tenga una respuesta te la envío. S a l u d o s

H o l a: Utiliza la siguiente fórmula =SI(SUMA(CONTAR.SI(A1:A2;{"*ca?a*";"*p?la*"}))>0;VERDADERO;FALSO)

H o l a: Para realizar esas sumas es más práctico utilizar una Tabla Dinámica, te anexo un vídeo para que veas cómo hacerlo con tus datos. https://youtu.be/tXf75fwsjw4 ' S a l u d o s . D a n t e A m o r Si es lo que necesitas. Recuerda valorar la...

H o l a: Te anexo la macro para que la pongas en un botón: Sub EliminarFilas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If UCase(h1.Cells(i, "D")) = "ABIERTO" Then Set r =...

H o l a: Te anexo la macro, revisa que la columna A de "Cartera" tenga el mismo formato de fecha que las celdas C2 y C3 de la hoja1 Sub ContarFechas() 'Por.Dante Amor Set h1 = Sheets("cartera") Set h2 = Sheets("Hoja1") For i = h2.[C2] To h2.[C3] Set...