Veri aktarma ve mükerrer kaydı önleme ilişkisinde problem

[Araştırıcı]

Değerli Forum Paylaşanları
Selam.

Ekteki dosyadan çift tıklama olayı ile "potansiyel işler" sayfasından Sp1 sayfasına satırlar boyunca aktarma yapılmaktadır. Ancak bu aktarmada mükerrer kayıtların uyarılması gerekmektedir. Bu amaçla Sp1 sayfasına "Doğrulama" yönteminden Özel (Costom) ile mükerrer önleme uygulaması yaptırılmak isteniyor.

Potansiyel işler sayfasının "H" sütunundaki seçenekli okla açılan kutudan çıkan değişkenler seçilmekte ve seçilen hücre çift tıklanarak veri SP1 sayfasına satır olarak aktarılmaktadır. Aktarmada aynı isimlerde yukarıda belirtilen "Doğrulama" yani Validation menüsündeki Costom (Özel) yöntemi ile mükerrer girişi önlenememiştir. Bu durumda ne yapmam gerekir?

Saygılarımla

 

[Ferhat Pazarçevirdi]

Kodunuzun bir kısmını revize ettim. Şöyle ki:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s1, s2, s3, s4 As Object
If Intersect(Target, [H:H]) Is Nothing Then Exit Sub
Cancel = True
[COLOR=red][B]      islendimi = Target.Offset(0, 1).Value
      If islendimi <> "" Then: MsgBox "Bu kayıt daha önce aktarılmış", vbCritical, "MÜKERRER KAYIT": Exit Sub[/B][/COLOR]
Set s1 = Sheets("potansiyel işler")
If Target.Value = "SP1" Then
Set s2 = Sheets("SP1")
sat = s2.[b65536].End(3).Row + 1
s2.Cells(sat, "b").Value = sat - 1
s2.Range(s2.Cells(sat, "b"), s2.Cells(sat, "W")).Value = s1.Range(s1.Cells(Target.Row, "b"), s1.Cells(Target.Row, "W")).Value
[COLOR=red][B]      Target.Offset(0, 1) = "x"
[/B][/COLOR]Set s2 = Nothing
........
........

Diğer sayfalara aktarım işi için de Target.Offset(0, 1) = "x" satırını kopyalayın.

 

[girdap]

Merhaba,

Kodları ilgili noktalara aktardım ancak bir değişiklik olmadı?

Saygılarımla

 

[Ferhat Pazarçevirdi]

Aynı satırı ikinci defa göndermeyi denediniz mi? veya şöyle sorayım : "Potansiyel işler" sayfasındaki I sütununda, çift tıklamadan sonra oluşan (x) çarpıları gördünüz mü?