şifreli veri giriş yapma

[dangerboys35]

Merhabalar

Button 2 butonuna bastığımda girdiğim veriyi istediğim alana kopyalamasını istiyorum.Fakat butona bastığımda parola soracak ve doğru parola girildiği takdirde bu işlemi yapmasını istiyorum.
VB kodlarını yazdım fakat.şifre yanlış girildiğinde yanlış şifre girildi tekrar giriniz uyarısını vermiyo.
Diğer bir sorum da kopyalama yapacağı alana daha önceden veri girildiyse uyarı vermesini istiyorum "Girdiğiniz bilgiler daha önce girilmiştir.üstüne yazmak istermisiniz."gibi bir uyarı vermesini istiyorum bunu nasıl yapabilirim.Yardımcı olursanız sevinirim.

Yardımlarınız için şimdiden teşekkürler...

 

[dangerboys35]

yardımcı olabilecek kimse yokmu..

 

[dangerboys35]

İlk sorunumu çözdüm.fakat kopyalanacak bilgilerin yapıştırlıdığı hücreler dolu ise uyarı versin istiyorum nasıl yapabilirim bunu


Sub kopya()
sifre = InputBox("Lütfen şifrenizi giriniz.")
If sifre <> "3341" Then
MsgBox "Yanlış şifre girdiniz. Kodlar çalışmayacak."
Else
Dim c As Range
Set c = Range("a2:a11").Find(Range("a19"), LookIn:=xlValues)
If Not c Is Nothing Then
Range("b19:d19").Copy Cells(c.Row, 2)
MsgBox "Şifre doğrulandı.Bilgileriniz kayıt edilmiştir."
End If
End If
End Sub

 

[meslan]

Merhaba
Şifre ile ilgili sorunuz tamam.
Kopyalama ile ilgili kısmı ya net değil ya da ben anlamadım.
Neyi nereden nereye koplayacağınızı net bir şekilde açıklarsanız.
Cevap alabileceğinizi düşünüyorum.

Sub kopya()
Static hata As Integer
hata = 0
1 sifre = InputBox("Kodların çalışması için şifre gerekiyor", _
"Yetkili Kişi", "Şifreyi Buraya Yazın.")
If sifre = Cancel Then Exit Sub
If sifre = "3341" Then
MsgBox "Şifre doğrulandı", vbInformation, "Şifre Doğru"
'Şifre doğu olduğu takdirde gerçekleşecek işlemler için kok.
Else
hata = hata + 1
If hata > 3 Then MsgBox hata & " kez hatalı Giriş yaptınız": Exit Sub
sor = MsgBox("Kaydetme işlemi devam edemiyor!" & Chr(10) & _
    "Şifreyi tekrar girmek istermisiniz...", vbYesNo, "pir")
   If sor = vbYes Then GoTo 1
End If
End Sub

 

[dangerboys35]

Aslında yapmak istediğim şu
2.sayfada bir tabloya veri gircem.Bu girdiğim verileri
1.sayfada o tarihi bulup ilgili satırlara yapıştırmasını istiyorum.
Fakat o tarihe daha önce veri girişi yapıldıysa uyarı vermesini istiyorum.

 

[dangerboys35]

doğru anlatabildimmi acaba.
Ben ilgili satıra kopyalama yapıştırma ile ilgili kodları tamamladım
Fakat aynı tarihe daha önce veri girişi yapılmaması için uyarı çıkmasını istiyorum

YArdımcı olurmusunuz..

 

[meslan]

Merhaba
Şu örneği bir incele
İstediğin böyle birşey mi?

 

[dangerboys35]

Merhaba,

Yapmak istediğim çalışma dosyası ektedir.

Teşekkürler

 

[meslan]

Merhaba

Sub kopya()
Static hata As Integer
hata = 0
1 sifre = InputBox("Kodların çalışması için şifre gerekiyor", _
"Yetkili Kişi", "Şifreyi Buraya Yazın.")
If sifre = Cancel Then Exit Sub
If sifre = "3341" Then
MsgBox "Şifre doğrulandı", vbInformation, "Şifre Doğru"
With Sheets("DATA")
    Set bul = .Range("AS:AS").Find(CDate(Sheets("Sheet1").[A7].Value), lookat:=xlValue)
    If Not bul Is Nothing Then
        knt = bul.Address
        Do
            MsgBox "Bu Kayıt Daha Önce girilmiş"
        
            Set bul = .Range("AS:AS").FindNext(bul)
        Loop While Not bul Is Nothing And bul.Address <> knt
        Else
          Sheets("Sheet1").Range("A7:AO7").Copy
          .Range("AS" & Sheets("DATA").[AS65536].End(3).Row + 1).PasteSpecial Paste:=xlPasteValues
  End If
End With

Else
hata = hata + 1
If hata > 3 Then MsgBox hata & " kez hatalı Giriş yaptınız": Exit Sub
sor = MsgBox("Kaydetme işlemi devam edemiyor!" & Chr(10) & _
    "Şifreyi tekrar girmek istermisiniz...", vbYesNo, Application.UserName)
   If sor = vbYes Then GoTo 1
End If
End Sub

 

[dangerboys35]

kusura bakmayın

bişey daha sorucam
kodu çalıştırdığımda bilgileri DATA sayfasında AS sütünuna sıra ile kayıt yapıyo
Bilgileri DATA sayfasında D sütunundaki tarihi bulup
o tarihe ait satırlara kayıt olmasını istiyorum.

bu mümkünmüdür.

teşekkürler
yardımlarınız için.

 

[meslan]

kusura bakmayın

bişey daha sorucam
kodu çalıştırdığımda bilgileri DATA sayfasında AS sütünuna sıra ile kayıt yapıyo
Bilgileri DATA sayfasında D sütunundaki tarihi bulup
o tarihe ait satırlara kayıt olmasını istiyorum.

bu mümkünmüdür.

teşekkürler
yardımlarınız için.

Sub kopya()
Static hata As Integer
hata = 0
1 sifre = InputBox("Kodların çalışması için şifre gerekiyor", _
"Yetkili Kişi", "Şifreyi Buraya Yazın.")
If sifre = Cancel Then Exit Sub
If sifre = "3341" Then
    MsgBox "Şifre doğrulandı", vbInformation, "Şifre Doğru"
    With Sheets("DATA")
        Set bul = .Range("D:D").Find(CDate(Sheets("Sheet1").[A7].Value), lookat:=xlValue)
        If Not bul Is Nothing Then
            If WorksheetFunction.CountA(.Range("E" & bul.Row & ":AQ" & bul.Row)) > 0 Then
                MsgBox "Bu Kayıt Daha Önce girilmiş"
            Else
                Sheets("Sheet1").Range("C7:AO7").Copy
            .Range("E" & bul.Row).PasteSpecial Paste:=xlPasteValues
        End If
    End If
    End With
Else
hata = hata + 1
If hata > 3 Then MsgBox hata & " kez hatalı Giriş yaptınız": Exit Sub
sor = MsgBox("Kaydetme işlemi devam edemiyor!" & Chr(10) & _
    "Şifreyi tekrar girmek istermisiniz...", vbYesNo, Application.UserName)
   If sor = vbYes Then GoTo 1
End If
End Sub

 

[dangerboys35]

Yardımlarınız için çok teşekkür ederim.
Her gün yeni bir şeyler öğreniyorum sayenizde.

Teşekkürler