miguelc14

toldeman respondió: Prueba esta macro: Sub repetir() Dim ul, x As Long x = 0 ul = Hoja1.Range("G" & Rows.Count).End(xlUp).Row For Each celda In Hoja1.Range("G1:G" & ul) x = x + 1 If celda = "Ahorros" Then Hoja2.Range("B" & x) = 32 Next End Sub En cuanto a la otra...

Elsa Matilde respondió: Si te fijas en la sección del Case = Hoja2, notarás que tenés 2 líneas de selección: ActiveCell. Offset(0, 1). Select 'esta te posiciona en la misma fila, 1 col a derecha ActiveCell. Offset(4, 0). Select 'esta te posiciona 4 filas más abajo, en la...