Ayni veri girişi engelleme, kayittan sonra temizleme

[eleca]

Arkadaşlar oncelikler hepinize selamlar.

ben oldukca yeni bir ofice kullanicisiyim. iş yerimize bir paket hazirliyorum. muşteri kayıtlayacagimiz bolumunde biraz problemlerim var. kaydolan musterinin irtibat numarasi zaten kayitli ise bir hata vermesini istiyorum. ve kaydedince kayıt formunun doldurulacak kutularının temizlenmesini. ekteki dosyada kayit bolumleri mevcut. şimdiden teşekkürler emekleriniz icin.


(Paketin neredeyse her parcasinda siteden destek aldim. bu teşekkürü zaten borcluyum sizlere. )

 

[Mahir64]

Merhaba
2.Sorunuza ben cevap vereyim

Sub Düğme1_Tıklat()

Set s8 = Sheets("Sayfa2")
Set s7 = Sheets("Sayfa1")
Sat = s8.[b65536].End(3).Row + 1
s8.Cells(Sat, "a") = Sat - 1
s8.Cells(Sat, "b") = s7.[h9]
s8.Cells(Sat, "c") = s7.[h11]
s8.Cells(Sat, "d") = s7.[h13]
s8.Cells(Sat, "e") = s7.[h15]
s8.Cells(Sat, "f") = s7.[h17]
s8.Cells(Sat, "g") = s7.[j5]
MsgBox "İşlem tamam.", vbInformation, "DURUM"
'sil
Range("H9,H11,H13,H15,H17").Select
    Selection.ClearContents
    Range("H9").Select
End Sub

 

[eleca]

hemen test ettim, şıp diye çözüldü sorun. teşekkürler.
peki verilerde eşleşen telefon numarası hatasına bir firkriniz varmi ?

 

[ynmcan]

Syn.Eleca;
Ekteki dosyayı inceleyin.

 

[eleca]

İşte bukadar... Çok teşekkürler arkadaşlar.

 

[ynmcan]

Syn. Eleca;
Dosyaya bazı eklemeler yaptım.
Müşteri bilgierini eksik girmenizi engellemek için.
Belki işinize yarar.
Dosya ekte.

 

[Mahir64]

Merhaba
Kodu tamamladığım için paylaşmak istedim

Sub Düğme1_Tıklat()

Set s8 = Sheets("Sayfa2")
Set s7 = Sheets("Sayfa1")
Sat = s8.[b65536].End(3).Row + 1
Say = WorksheetFunction.CountIf(s8.Range("e:e"), s7.Range("h15"))
    If Say > 0 Then
    MsgBox "Bu kayıt daha önce girilmiştir !" & vbNewLine & _
    "Lütfen girdiğiniz bilgileri kontrol ediniz.", vbCritical, "Mükerrer Kayıt"
    Exit Sub
    End If

s8.Cells(Sat, "a") = Sat - 1
s8.Cells(Sat, "b") = s7.[h9]
s8.Cells(Sat, "c") = s7.[h11]
s8.Cells(Sat, "d") = s7.[h13]
s8.Cells(Sat, "e") = s7.[h15]
s8.Cells(Sat, "f") = s7.[h17]
s8.Cells(Sat, "g") = s7.[j5]

MsgBox "İşlem tamam.", vbInformation, "DURUM"
'sil
Range("H9,H11,H13,H15,H17").Select
    Selection.ClearContents
    Range("H9").Select
End Sub

 

[eleca]

cok tesekkürler arkadaşlar. şimdi daha iyi oldu.

 

[Mahir64]

cok tesekkürler arkadaşlar. şimdi daha iyi oldu.

Kolay gelsin.

Sizin yerinizde olsam UserForm'a yönelirdim.