Dante Amor

H o l a: Te anexo la función Function extraerconencidencia(texto As Range, comparartexto As Range) 'Por.Dante Amor wmin = Len(texto.Value) + 1 wtext = "" For Each c In comparartexto x = InStr(1, texto.Value, c.Value) If x < wmin And x > 0 Then wmin =...

H o l a: Te anexo la macro para la primera parte: "copiar cada una de las filas y pegarla en una hoja nueva la cantidad de veces que indica la celda en la columna F" Sub CopiarFilas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") 'Hoja origen con datos...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 200 Then Exit Sub If Not Intersect(Target, Range("B:B")) Is Nothing Then For Each c In Target If c.Value...

H o l a: Con gusto te actualizo tu macro. Explícame lo que tienes: ¿Tienes un libro con 2 hojas?¿O tienes 2 libros? Envíame tu archivo y me explicas con ejemplos, ¿colores y comentarios cómo se debe pasar la información de dónde a dónde? Mi correo...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Columns("C")) Is Nothing Then With Range(Target,...

H o l a: Tengo varias dudas. ¿Quieres qué la macro funcione en automático cuando pones la fecha en la celda de la columna Z?Supongo que quieres copiar las celdas de las columnas B, D, F, I, J, K:N, T, V, W, ¿Z pero de la fila que en la columna Z se...

¿Pero qué es CausaEnt? ¿Solamente es una variable? Si lo que quieres es copiar lo que tienes en la celda B2 en otro lado puede ser así: Sub CopiaCelda() Cells(2, "B").Copy Sheets("Hoja3").Range("C4") End Sub Cambia "Hoja3" por la hoja destino, cambia...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor Application.ScreenUpdating = False If Not Intersect(Target, Columns("M:M")) Is Nothing Then u = Range("M" &...

Intenta con lo siguiente: Sub Actualizar() ActiveSheet. PivotTables("TablaDinámica1"). PivotCache. Refresh DoEvents Application. Wait Now + TimeValue("00:00:05") DoEvents ActiveWorkbook. RefreshAll End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar...

Pon la siguiente macro en los eventos de ThisWorkbook. Cambia en la macro "abc" por el password que desees que tengan las hojas. Private Sub Workbook_NewSheet(ByVal Sh As Object) 'Por.Dante Amor For Each h In Sheets If h.Name <> Sh.Name Then...