Solicitud de macro que realice una acción usando la instrucción If si se cumple una codición
Me gustaría que me pudieras ayudar creando una macro que haga lo siguiente:
Sub Condicional()
Set h1 = Sheets("hoja1")
Set h2 = Sheets("hoja2")
u = h1.Range("B" & Rows.Count).End(xlUp).Row
'Aqui necesito una condición IF de la siguiente manera: Que rivise si U
'Es igual a 36 Or 60 Or 86 Or 100, Si es asi entonces que se ubique en la
'Celda A(U+2) osea dos filas mas abajo de U y allí ejecutar la siguiente instrucción:
h2.Rows(2 & ":" & 4).Copy
h1.Range("A" & d - 1).PasteSpecial Paste:=xlAll
h1.Range("A" & d - 1).PasteSpecial Paste:=xlPasteColumnWidths
End sub ()
1 Respuesta
Respuesta de Dante Amor
1
Prueba así:
Sub Condicional()
'Por.Dante Amor
Set h1 = Sheets("hoja1")
Set h2 = Sheets("hoja2")
u = h1.Range("B" & Rows.Count).End(xlUp).Row
'Aqui necesito una condición IF de la siguiente manera: Que rivise si U
'Es igual a 36 Or 60 Or 86 Or 100, Si es asi entonces que se ubique en la
'Celda A(U+2) osea dos filas mas abajo de U y allí ejecutar la siguiente instrucción:
Select Case u
Case 36, 60, 86, 100
u = u + 2
h2.Rows(2 & ":" & 4).Copy
h1.Range("A" & u).PasteSpecial Paste:=xlAll
h1.Range("A" & u).PasteSpecial Paste:=xlPasteColumnWidths
End Select
End Subs a l u d o s
