Enrique Medina

Adriel Ortiz Mangia respondió: [Hola Prueba con esto Sub Buscar() Dim WS As Worksheet Dim rBingo As Range Borrar_Form nombrehoja = "buscar" For Each WS In ThisWorkbook.Worksheets If LCase(WS.Name) <> LCase(nombrehoja) Then If WS.Name Like "*" Then Set rBingo =...

James Bond respondió: Prueba con esta macro Sub copiar_datos() Dim ho As Worksheet, hd As Worksheet Set ho = Worksheets("summary") Set hd = Worksheets("hoja2") hd.Cells.Clear ho.Range("a3").CurrentRegion.Copy hd.Range("a2").PasteSpecial xlPasteValues...

Ander GS respondió: Adjunto enlace con archivo excel con el desarrollo de tu consulta para su revisión. Se planteo dos alternativas, por medio de tablas dinámicas y por medio de la función SUMAR. SI. CONJUNTO. Espero que te sirva de ayuda y este acorde a tu necesidad....

Dante Amor respondió: Te anexo la macro. Cambia en la macro por los nombres de tus hojas Set h1 = Sheets("Hoja6") 'origen Set h2 = Sheets("summary") 'destino Si el color del formato condicional es el amarillo, entonces esto es correcto RGB(255, 255, 0) La macro copia el...