Formüllü hücrelerde mükerrerlik

[sellami2005]

Bir sütunda mükerrer kayıt yapmamaya çalışıyorum. Direk veri girince oluyor.Ancak bu sütun formüllü olunca beceremedim. Yardımcı olursanız sevinirim.

 

[uzmanamele]

merhaba

sayfanın kod bölümüne yazarak deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
Target.Offset(0, 2).Select
SendKeys "{F2}"
SendKeys "{ENTER}"
End Sub

 

[sellami2005]

Teşekkür ederim Sn. uzmanamele. kod çalışıyor. böyle de işimi görür.
Ancak birleştirilmiş hücreleri A sütununa aldım. Yani C, D, ve E sütunları A da birleşecek. Bir de formülde uyarıyor ve bilgi girişine izin veriyor. Ya izin vermesin, veya A sütunundaki o hücreyi boyasın.
İnşallah Fazla olmamışımdır.

 

[uzmanamele]

merhaba

kodları bu şekilde deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [e:e]) Is Nothing Then Exit Sub
Target.Offset(0, -4).Select
SendKeys "{F2}"
SendKeys "{ENTER}"
End Sub

A sütunu koşullu biçimlendirmede bu formülü deneyiniz

=EĞERSAY(A:A;A2)>1

not:
birleştirme formülünüzü değiştirmenizi öneririm.

=BİRLEŞTİR(C2&METNEÇEVİR(D2;"ggaayyyy")&E2)

 

[sellami2005]

Çok teşekkür ederim. Tam istediğim gibi.