UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

cariberecord


Saludos, tengo este macro

Sub nuevos()

Dim ultimafila As Long
Dim Origen As Worksheet, Destino As Worksheet


Set Origen = Sheets("FORMATO")
Set Destino = Sheets("Hoja2")


ultimafila = Sheets("Hoja2").Range("B20000").End(xlUp).Row
ultimafila = ultimafila + 1

PERO POR ESTE LADO QUISIERA VERIFICAR SI LO QUE SE VA A INSERTAR EN LA CELDA K12 DE Origen YA EXISTE EN LA COLUMNA D DE Destino, PARA NO REPETIR LOS VALORES, si no esta repetido ps que inserte los siguientes datos, si no q muestre un mensaje de error y no ingrese los datos.

Destino.Range("B" & ultimafila) = Origen.Range("K10")
Destino.Range("D" & ultimafila) = Origen.Range("K12")
Destino.Range("E" & ultimafila) = Origen.Range("F8")
Destino.Range("F" & ultimafila) = Origen.Range("H8")
Destino.Range("G" & ultimafila) = Origen.Range("J8")
Destino.Range("H" & ultimafila) = Origen.Range("K16")
Destino.Range("I" & ultimafila) = Origen.Range("K14")
Destino.Range("J" & ultimafila) = Origen.Range("K18")


End Sub

pueden ayudarme por favor? Gracias.

tyno


Hola cariberecord, bien venido.

Te paso un archivo de ejemplo con la adaptacion de tu macro para que genere un aviso de que se esta intentando ingresar un dato duplicado. Saludos
Archivos
ejemplo.xls
No tienes los permisos para descargar los archivos.
(35 KB)

cariberecord


Excelente ayuda.. muchísimas gracias

bendiciones para vos cheers

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.