Parar macro si valores iguales
Como detengo mi macro si dos celdas son igiales, en este caso las A2 y la A5.
Lo mismo necesito para detenr la macro si el valor de la A5 se encuentra en la columna A de la Hoja2
Esto es lo que tengo, genero una calve a partir de la hora, fecha y nombre del cliente más 3 dígitos al azar entre 1 y 999 más una letra.
Range("A5").Select ActiveCell.FormulaR1C1 = _ "=CONCATENATE(DAY(TODAY()),MONTH(TODAY()),HOUR(now()),MINUTE(now()),SECOND(now()),MID(RC[2],1,SEARCH("" "",RC[2],1)-1),RANDBETWEEN(1,100),CHAR(65+RAND()*26))" Range("A5").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False nbre = Application.UserName Sheets("Hoja1").Range("AH5").Value = nbre
Ya ando muy mal, no se como detenerla si el valor generado ya existe o la celda a2 y a5 son iguales.
Gracias!
Lo mismo necesito para detenr la macro si el valor de la A5 se encuentra en la columna A de la Hoja2
Esto es lo que tengo, genero una calve a partir de la hora, fecha y nombre del cliente más 3 dígitos al azar entre 1 y 999 más una letra.
Range("A5").Select ActiveCell.FormulaR1C1 = _ "=CONCATENATE(DAY(TODAY()),MONTH(TODAY()),HOUR(now()),MINUTE(now()),SECOND(now()),MID(RC[2],1,SEARCH("" "",RC[2],1)-1),RANDBETWEEN(1,100),CHAR(65+RAND()*26))" Range("A5").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False nbre = Application.UserName Sheets("Hoja1").Range("AH5").Value = nbre
Ya ando muy mal, no se como detenerla si el valor generado ya existe o la celda a2 y a5 son iguales.
Gracias!
1 respuesta
Respuesta de calvuch
1