Juan Soprano

Elsa Matilde respondió: Se me ocurre que podrías utilizar un filtro. Algo como en la imagen siguiente: El código utilizado lo coloqué en un módulo. Se ejecuta desde el menú Programador o utilizando un botón. Sub busqueda_Soprano() 'x Elsamatilde 'declaramos las hojas en uso...

Dante Amor respondió: V i s i t a: Cursos de Excel y Macros Prueba lo siguiente: Sub pasar_Valor() 'Por Dante Amor ' Dim cel_destino As Range, rng_origen As Range Dim ultima As String ' Set rng_origen = Sheets("hoja1").Range("B1:B10") 'rango origen Set cel_destino =...

Dante Amor respondió: Ajusta en el código B1:B10 por el rango de celdas que quieres pasar el valor a D4 de la hoja Principal. La macro empieza en B10 y recorre hacia arriba B9, luego B8, B7 hasta llegar a B1 y empieza otra vez en B1. La macro la debes ejecutar en la...

Dante Amor respondió: ¿Son 2 hojas diferentes? ¿Pasar el dato siempre a la celda D4?

Dante Amor respondió: [Hola Abraham Valencia, la situación en tu ejemplo, es que cualquier fórmula actualizada en la hoja, sin importar el rango, siempre va a entrar al If, ya que miRango siempre está dentro del Range("C2:C20") Set miRango = Range("C2:C20") If Not...

Dante Amor respondió: Te paso la macro actualizada: Sub Resumen_ejercicios() ' ' Resumen_ejercicios Macro ' Range("O2:O49").SpecialCells(xlCellTypeConstants).Copy Range("P2").PasteSpecial Paste:=xlPasteValues Range("$P$2:$P$49").RemoveDuplicates Columns:=1, Header:=xlNo...

Dante Amor respondió: Te paso la macro actualizada: Sub Pasar_ID() Dim uFila As Long, col As Long, uFila2 As Long Dim i As Long, k As Long Dim existe As Boolean Dim hoja As String Dim h As Worksheet ' 'busca "Verdadero" copia y pega Sheets("PlantillaJugadores").Select...

Dante Amor respondió: Te paso la macro: Sub ColocarFormula() With Range("A2:A99") .Formula = "=IF(B2<>"""",CONCATENATE(E2,A$1,F2),"""")" .Value = .Value 'si quieres la fórmula, quitas esta línea End With End Sub