Mükerrer (Tekrar) Kayıt

[MetinErol]

Merhaba..
Ben bir çek izleme tablosu yaptım.. Bir hayli çek girişi mevcut ve bir sıkıntım var.. İşleyen arkadaş bazen işlenen çeki tekrar işliyor..Bunu nasıl önleyebilirim.. Çek numarası girildiği zaman bu çek ilenmiş gibi bir kontrol yapılabiliryormu.. Teşekkürler.. İyi çalışmalar..

 

[zafer]

Merhaba


Mükerrer Kayıt Uygulamaları,

 

[Necdet]

Lütfen Soru Sormadan Önce Arama Yapınız

http://www.excel.web.tr/forumdisplay.php?f=120

 

[MetinErol]

teşekkür ederim Saolun..

Teşekkür ederim.. Saolun.. Arama yapmak hiç aklıma gelmedi kusura bakmayın..İyi çalışmalar..

 

[MetinErol]

D hücresine bu uygulalamayı yapamadım..

d Hücresine bu uygulamayı yapamadım yardım ederseniz sevinirim..

Sayfadaki diğer VBA larıoda kopyalayıp gönderiyorum

Private Sub CommandButton1_Click()
ThisWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M4:M65536]) Is Nothing Then Exit Sub
satirlar = "A" & Target.Row & ":M" & Target.Row
Select Case Target
Case "ödendi": Range(satirlar).Interior.ColorIndex = 40
Case "ödenmedi": Range(satirlar).Interior.ColorIndex = 8
End Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For d = [d65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("d1:d" & d), Cells(d, "d")) > 1 Then Rows(d).Delete
Next
End Sub

 

[zafer]

Merhaba

Siz ne yapmak istiyorsunuz, Onu açıklayıp özet bir dosya ekleyebilirmisiniz.

 

[ozsah]

Zafer bey iyi akşamlar. bir tabloda örneğin: renk: pembe ürün kodu:10 değerlerinden pembe&10= pembe10 yani 10 numaralı ürünün pembe rengi bu durumda tekrar dan pembe10 yapılamamasını istiyorum bunu nasıl hallederiz. ??

 

[zafer]

Merhaba

A sütunundaki ve B sütunundaki hücrelere veri giriyorsunuz.Bunlar C sütunundaki hücrede birleştiriliyor.
C sütunundaki hücreyi seçtiğinizde eğer daha önce C sütunundaki hücrede aynı bilgi varsa size mesaj veriyor.

Formülle ve daha pratik olarak yapılabilirmi bilmiyorum.

Aşağıdaki kodları çalıştığınız sayfanın sekmesinin üzerinde iken sağ fare tuşuna dokunun orada kod görüntüleyi seçip gelen boş sayfaya yapıştırın.

deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SON = Cells(65536, 1).End(xlUp).Row
If Intersect(Target, Range("c1:c" & SON)) Is Nothing Then Exit Sub
For b = 1 To SON
Cells(b, 3) = Cells(b, 1) & Cells(b, 2)
If WorksheetFunction.CountIf(Range("C1:C" & b), Target) > 1 And Target <> "" Then
MsgBox ("AAAA")
End If
Next
End Sub