¿Cómo pegar los datos de una celda si se encuentra un valor de otra?
Chicos soy nueva en el foro, me está gustando la automatización de las hojas en excel pero ando muy mal en codigos de VB, bueno mi problema es este, quiero crear una base que captura nuevos registros capturados, de esta manera
Copiar los valores de la celda a27, b27 y c27 y pegarlos debajo en la celda a38, b38 y c38, hasta y es fácil con un solo caso pero ya no sé como hacerle para que los mismos valores a27, b27 y c27 que ya cambiaron ahora se peguén en las celdas a39, b39, c39 y así sucesivamente, agradecería mucho su apoyo y si es que alguien tiene algún cursito básico de VB que me facilite para no enfadarlos tan seguido los amaré <3, en fin bonito día y
1 respuesta
Respuesta de James Bond
1
´Prueba con esta macro
Sub copiar()
Set origen = Range("a27").CurrentRegion
Set destino = Range("a38").CurrentRegion
With origen
valor = .Cells(1, 1): valor2 = .Cells(1, 2): valor3 = .Cells(1, 3)
End With
With destino
filas = .Rows.Count: col = .Columns.Count
cuenta = WorksheetFunction.CountIfs(.Columns(1), valor, .Columns(2), valor2, .Columns(3), valor3)
origen.Copy
If cuenta = 0 And col = 1 Then origen.Copy: .Rows(filas).PasteSpecial xlPasteAll
If cuenta = 0 And col > 1 Then origen.Copy: .Rows(filas + 1).PasteSpecial xlPasteAll
End With
End Sub
