HOLA A TODOS UNA PEQUEÑA CONSULTA

TENGO EL SIGUIENTE CODIGO:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then

Range("B" & Target.Row) = Date

Range("C" & Target.Row) = Format(Now, "hh:mm")

Range("A" & ActiveCell.Row,1) = Format(PED-####), End(xlUp).Offset(,-1)).DataSeries

End If

End Sub[/CODE]

[/color]

[color=#000000]LO QUE QUIERO HACER ES QUE GENERE AUTOMATICAMENTE UN NUMERO DE REGISTRO EN LA COLUMNA [color=#ff0000]"A"[/color] , FECHA [color=#ff0000]"B"[/color] y HORA[color=#ff0000] "C"[/color] AL INGRESAR DATOS EN LA COLUMNA [color=#ff0000]"D"[/color] [/color]

[color=#000000]EL NUMERO DE REGISTRO TIENE QUE SER EN ESTE FORMATO [/color][color=#ff0000][ PED-0001 ] [/color][color=#000000]NO LOGRO PROGRAMARLO[/color]

[color=#ff0000]"A" [ Nro Reg. ] "B" [Fecha ] "C" [ Hora ] "D" [ Dato a Ingresar ][/color]

"A" [ [color=#ff00ff]PED-0001[/color] ] "B" [ [color=#ff00ff]19/01/2014[/color] ] "C" [ [color=#ff00ff]12:38[/color] ] "D" [ Dato INGRESADO]

[color=#000000]LA FECHA Y LA HORA ESTA BIEN PERO NO ME VOTA EL NRO DE REG. QUE ESTOY HACIENDO MAL

GRACIAS POR SU AYUDA[/color]

Hola, recibiras mejor atencion leyendo y respetando las Normas AyudaExcel | Ayuda Excel

Punto 4: No está permitido escribir en mayúsculas, si deseas resaltar un texto utiliza negrita o color (Azul o Rojo) para realizarlo. No utilices tamaños de letra excesivos (Tamaño máximo permitido 3) No se admite redacción tipo SMS, extremas faltas de ortografía y ningún otro tipo de redacción demasiado informal o inadecuada.

sube tu archivo para poder ayudar

Aquí Subo El Archivo

Espero me ayuden pronto

AyudaConMacro.rar

ayudaaaaa