Merhaba;
Aşağıda belirtilen kod aktif olan sayfaya işlem yapmakta bunu belirttiğim bir sayfaya işlem yapmasını istiyorum Örn."USERKISTE" konu hakkında yardımlarıızı rica ederim.
User Ekleme Komutu.
--------------------------------------
Private Sub buttadd_Click()
Dim bak As Range
Dim say As Integer
For Each bak In Range("a1:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If bak.Value = txtuser.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
say = WorksheetFunction.CountA(Range("a1:a65000"))
Cells(say + 1, 1).Value = txtuser.Value
Cells(say + 1, 2).Value = txtpass.Value
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
End Sub
User Silme Makrosu.
---------------------------------------------------------
Private Sub buttrem_Click()
Dim myName As Range, nameRow As Long, lastRow As Long
With Sheets("Users")
If cbouser.Value = "" Then
MsgBox "Kullanıcı adı seçmediniz.!", vbInformation, "HATA"
Exit Sub
Else
lastRow = .Range("A65536").End(xlUp).Row
Set myName = .Range("A2:A" & lastRow).Find(cbouser.Value)
If Not myName Is Nothing Then
If MsgBox("seçmiş olduğunuz kullanıcı adı olan " & cbouser.Value & " silinecektir.?", vbQuestion, "SİLİNEN KULLANICI " & _
cbouser.Value) = vbNo Then Exit Sub
nameRow = myName.Row
.Range("A" & nameRow).EntireRow.Delete
txtpass.Value = ""
End If
End If
End With
End Sub
Private Sub cbouser_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim myName As Range, nameRow As Long, lastRow As Long
With Sheets("Users")
lastRow = .Range("A65536").End(xlUp).Row
Set myName = .Range("A2:A" & lastRow).Find(cbouser.Value)
If Not myName Is Nothing Then
nameRow = myName.Row
txtpass.Value = .Cells(nameRow, 2).Value
cbouser.SetFocus
End If
End With
End Sub
Aşağıda belirtilen kod aktif olan sayfaya işlem yapmakta bunu belirttiğim bir sayfaya işlem yapmasını istiyorum Örn."USERKISTE" konu hakkında yardımlarıızı rica ederim.
User Ekleme Komutu.
--------------------------------------
Private Sub buttadd_Click()
Dim bak As Range
Dim say As Integer
For Each bak In Range("a1:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If bak.Value = txtuser.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
say = WorksheetFunction.CountA(Range("a1:a65000"))
Cells(say + 1, 1).Value = txtuser.Value
Cells(say + 1, 2).Value = txtpass.Value
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
End Sub
User Silme Makrosu.
---------------------------------------------------------
Private Sub buttrem_Click()
Dim myName As Range, nameRow As Long, lastRow As Long
With Sheets("Users")
If cbouser.Value = "" Then
MsgBox "Kullanıcı adı seçmediniz.!", vbInformation, "HATA"
Exit Sub
Else
lastRow = .Range("A65536").End(xlUp).Row
Set myName = .Range("A2:A" & lastRow).Find(cbouser.Value)
If Not myName Is Nothing Then
If MsgBox("seçmiş olduğunuz kullanıcı adı olan " & cbouser.Value & " silinecektir.?", vbQuestion, "SİLİNEN KULLANICI " & _
cbouser.Value) = vbNo Then Exit Sub
nameRow = myName.Row
.Range("A" & nameRow).EntireRow.Delete
txtpass.Value = ""
End If
End If
End With
End Sub
Private Sub cbouser_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim myName As Range, nameRow As Long, lastRow As Long
With Sheets("Users")
lastRow = .Range("A65536").End(xlUp).Row
Set myName = .Range("A2:A" & lastRow).Find(cbouser.Value)
If Not myName Is Nothing Then
nameRow = myName.Row
txtpass.Value = .Cells(nameRow, 2).Value
cbouser.SetFocus
End If
End With
End Sub
