Çözüldü Kullanıcı Adı İle Kayıt

[LİNDA]

Merhaba ekteki dosyamda userform3 de okul numarasını girerek enter veya aday bul tuşu ile öğrenci bilgilerini alabiliyorum.
Gerekli veri girişlerini yaparak kaydet tuşu ile kayıt yapabiliyorum.
Kayıtlı öğrenci bilgilerini ise okul numarası girdikten sonra ARA tuşu ile ekrana alarak yeni verileri girerek YENİLE tuşu ile güncellemiş oluyorum.
Yapmaya çalıştığım ise DATA sayfasına W ve X sütunlarına kayıt ve yenileme sütunları ekledim.
Kaydedilen veya güncellenen verilerin bu sütunlara kullanıcı adı ve zamanı ile birlikte kayıt işlemi yapmak mümkün müdür ?
Yardımcı olabilecek arkadaşlar varsa sevinirim.

 

[kanakan52]

Güncelleme için
Worksheets("DATA").Cells(değiştir_satır, 24) = Now

Kaydet için
Data.Cells(sonsatir, 23) = Now

bence yeterli..

 

[LİNDA]

Güncelleme için
Worksheets("DATA").Cells(değiştir_satır, 24) = Now

Kaydet için
Data.Cells(sonsatir, 23) = Now

bence yeterli..

Yardımınız için çok teşekkür ederim. Ben yanlış dosya yüklemişim çünkü kullanıcı girişi olan dosyayı şimdi yüklüyorum . Sizde mevcut dosyaya göre çözüm yaptınız. Sizin kodlarınızı ekledim .Tarih ve zamanı kaydediyor Minnettarım

"Kaydedilen veya güncellenen verilerin bu sütunlara kullanıcı adı ve zamanı ile birlikte kayıt işlemi yapmak mümkün müdür ?"
diye sormuştum. Kullanıcı adını da ekleyebilirsek çok süper olacak
Kullanıcı adı: LİNDA
ŞİFRE :12345

 

[kanakan52]

Yardımınız için çok teşekkür ederim. Ben yanlış dosya yüklemişim çünkü kullanıcı girişi olan dosyayı şimdi yüklüyorum . Sizde mevcut dosyaya göre çözüm yaptınız. Sizin kodlarınızı ekledim .Tarih ve zamanı kaydediyor Minnettarım

"Kaydedilen veya güncellenen verilerin bu sütunlara kullanıcı adı ve zamanı ile birlikte kayıt işlemi yapmak mümkün müdür ?"
diye sormuştum. Kullanıcı adını da ekleyebilirsek çok süper olacak
Kullanıcı adı: LİNDA
ŞİFRE :12345

kullanıcı adı hangi alana gelecekse
alan=application.username olarak uygulayabilirsiniz.

 

[LİNDA]

kullanıcı adı hangi alana gelecekse
alan=application.username olarak uygulayabilirsiniz.

Kullanıcı adını kayıt tarihi ve güncelleme tarihi yazan Data sayfasındaki W ,X sütunundaki bölüme (linda 02.06.2022 29:32) şeklinde yazmaya çalıştım . Ama Kodları birleştiremedim.

 

[kanakan52]

alan= application.username &" "& NOW
olarak deneyin.

 

[LİNDA]

alan= application.username &" "& NOW
olarak deneyin.

Data.Cells(sonsatir, 23) = alan = Application.UserName & " " & Now
Bu şekilde yazdım ama kayıt sonunda hücrede YANLIŞ diye yazıyordu

 

[LİNDA]

alan= application.username &" "& NOW
olarak deneyin.

Şu şekilde denedim Data.Cells(sonsatir, 23) = Application.UserName & " " & Now Kullanıcı adı olarak userform1 giriş olarak kullanılan isim değilde office 2019 için kayıtlı kullanıcı adı çıkıyor.

 

[kanakan52]

Şu şekilde denedim Data.Cells(sonsatir, 23) = Application.UserName & " " & Now Kullanıcı adı olarak userform1 giriş olarak kullanılan isim değilde office 2019 için kayıtlı kullanıcı adı çıkıyor.

UserForm'a giriş için kullanılan ismi nerede saklıyorsunuz?

bir modülün en başına

public string kullanici olarak değişken atayın..

login ekranınız ve girşi tuşunuz var muttemelen. Giriş tuşunun en sonuna

kullanici=Textboxx ( Burada kullanıcı adınız hangi nesneye yazıyorsanız onu yazın)

Kayıt veya güncelleme tuşlarına da

alan=kullanici &" "&"now olarak yazın..

 

[LİNDA]

UserForm'a giriş için kullanılan ismi nerede saklıyorsunuz?

bir modülün en başına

public string kullanici olarak değişken atayın..

login ekranınız ve girşi tuşunuz var muttemelen. Giriş tuşunun en sonuna

kullanici=Textboxx ( Burada kullanıcı adınız hangi nesneye yazıyorsanız onu yazın)

Kayıt veya güncelleme tuşlarına da

alan=kullanici &" "&"now olarak yazın..

Kullanıcı girişini userform1 ile yapıyorum ve kullanıcılar yetkili sayfasında tutuluyor. Userform1 kod bölüne şu kodları ekledim:
Public kullanici As String
Giriş tuşuna ise
kullanici = tkullanici

kaydet tuşuna ise
Data.Cells(sonsatir, 23) = tkullanici & " " & "now"
sonuç olarak DATA sayfası W sütununda "now" kelimesi çıkıyor sadece
Nerede eksik yada yanlış yapıyorum
Dosyamı ekliyorum
Kullanıcı adı: LİNDA
ŞİFRE :12345

 

[kanakan52]

Kontrol eder misiniz?

 

[LİNDA]

Kontrol eder misiniz?

Çok teşekkür ederim Sayın kanakan52 emeğinize sağlık hakkınızı helal edin. Tam yapmaya çalıştığım gibi oldu. İyi ki varsın excelçözüm

 

[kanakan52]

Çok teşekkür ederim Sayın kanakan52 emeğinize sağlık hakkınızı helal edin. Tam yapmaya çalıştığım gibi oldu. İyi ki varsın excelçözüm

Rica ederim. Sağlıcakla kalın.