EL_Rul0

excelente trabajo y funciona a la perfección, muchas gracias!

Wow, realmente agradezco mucho tu ayuda, eres genial!!!

Muchas gracias por tu ayuda, envío archivo para que sea más claro. Saludos!!! TRANSPONER.xlsx

Buen Día, Necesito un código VBA para transponer los siguientes datos: DE: INVOICE|812 DATE|29/06/12 DIVISION|010 INVOICE|813 DATE|30/06/12 DIVISION|050 A: INVOICE| DATE | DIVISION| 812 |29/06/12| 010 813 |30/06/12| 050 Agradezco infinitamente su ayuda.Saludos!!!

Buen día, 1.- Si las celdas de la columna U (status) dice "pagada" al intentar modificar celdas de la columna G (pagar) aparezca MsgBox "Esta Factura ya está Pagada" Estoy usando estos códigos pero no me queda: -Private Sub Worksheet_Change(ByVal Target As Range) -If Not Intersect(Target, Range("U5:U7000")) Is Nothing Then -Aqui es donde me falla el código con IF MsgBox "ESTA FACTURA YA ESTA PAGADA: " Agradezco mucho su ayuda!!! Saludos!!! Codigo vba.zip