MÜKERRER KAYIT

[arifcell]

SAYIN ARKADASLAR

B SUTUNUMDA BARKOD KODLARI BULUNMAKTADIR.
BUNLARIN BIR DEFA GIRILMESI GEREKIYOR.
FORUMDA ARAMA YAPMAMA RAGMEN http://www.excel.web.tr/viewtopic.php?t=5727 LINKTE SAYIN akyazi_61
YAPTIGI COK GUZEL BIR ORNEK VAR.BU ORNEGE GORE
KAYIT GIRINCE CALISIYOR AMA BI SORUN VAR.BASKA DOSYADAN KAYITLARI KOPYALADIGINIZ DA KOSULLU BICIMLENDIRME AKTIF OLMUYOR. BENIM ISTEDIGIM OYLE BI MAKRO OLMALI KI AYNI KAYIT VARSA AYNI OLAN DIGER KAYITLAR KIRMIZI YAZIYA DONSUN.


SIMDIDEN TEÞEKKUR EDERIM ARKADAÞLAR

 

[mehmett]

Sn arifcell

Koşullu biçimlendirme yapılan bir hücreye veri kopyalarken o hücredeki koşullu biçimlendirmenin devam etmesini istiyorsanız, kopyaladığınız veriyi sadece "değer olarak" yapıştırmalısınız.

 

[arifcell]

mukerrer kayıt

SAYIN MEHMET BEY ILGINIZE TESEKKUR EDERIM
YANLIZ BUNU MAKRO ILE KONTROL ETME IMKANIM YOK MUDUR ACABA

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına yazarak deneyin.

[vb:1:3e0e9445a7]Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 0 Then [b:b].Interior.ColorIndex = xlNone
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
adr = "b1:b" & Target.Row - 1
If WorksheetFunction.CountIf(Range(adr), Target) > 0 Then
sat = WorksheetFunction.Match(Target, [b:b], 0)
Range("b" & sat).Interior.ColorIndex = 3
End If
End Sub
[/vb:1:3e0e9445a7]

 

[arifcell]

MUKERRER KAYIT KONTROL

SAYIN ARKADASLAR SORUNUMUN CEVABINI BULDUM. ILERIDE ARKADASLARIMIN ISINE YARAYACAGINI DUSUNDUGUMDEN ASAGIDA YAZIYORUM
HERKESE IYI CALISMALAR




Sub KONTROL()
Sheets("VERI").Select
say = Range("a1").CurrentRegion.Rows.Count
Cells(2, 2).Select
For i = 1 To say
For z = i + 1 To say - 1
If Cells(i, 2).Value = Cells(z, 2).Value Then
Cells(z, 2).Font.ColorIndex = 3

End If
Next z
say = say - 1
Next i
End Sub