Excel 'e bilgisayar verilerini çekme

Merhaba, aşağıda ki kodlar size yardımcı olacağını düşünüyorum.

Sub GetTheNameAPP()
   MsgBox "Application username is: " & Application.UserName
   Cells(4, 2) = Application.UserName
   Cells(3, 2) = Int(Rnd * 901 * 9 * 10)
End Sub

İyi günler.

Merhaba, aşağıda ki kodlar size yardımcı olacağını düşünüyorum.

Sub GetTheNameAPP()
   MsgBox "Application username is: " & Application.UserName
   Cells(4, 2) = Application.UserName
   Cells(3, 2) = Int(Rnd * 901 * 9 * 10)
End Sub

İyi günler.

Merhaba,

Öncelikle teşekkür ediyorum ilginiz için.

Bu kodları nereye yazmam gerekiyor ? 

Bu ortak alanda olacak ve hangi kullanıcı açtıysa o kullanıcının bilgilerini getirecek. Bir butona bastığında da olabilir. Sizin yazdığınız kodlar nasıl çalışacak biraz bilgi verirseniz çok sevinirim.

Yukarıda ki kodları Excel Sayfa Adı üstünde sağ tuş Kod Görüntüle kısmına yazmalısın.

Excel Form denetim araçlarından Buton eklenerek yazılan kod butona bağlanmalı,

Excel Makro VBA konusunda biraz bilgi sahibi olduğunuzda daha farklı geliştirmeler yapıla bilir. Youtube örnekleri var.

 Örnek ;

 

http://s5.dosya.tc/server/46ri5x/Kitap1.xls.html  

Yukarıda ki kodları Excel Sayfa Adı üstünde sağ tuş Kod Görüntüle kısmına yazmalısın.

Excel Form denetim araçlarından Buton eklenerek yazılan kod butona bağlanmalı,

Excel Makro VBA konusunda biraz bilgi sahibi olduğunuzda daha farklı geliştirmeler yapıla bilir. Youtube örnekleri var.

 Örnek ;

 

http://s5.dosya.tc/server/46ri5x/Kitap1.xls.html  

 

Teşekkürler. Biraz araştırmalarım sonucu aşağıdaki gibi bir kod buldum.

Private Sub CommandButton1_Click()
Static id As Integer
Range("a1").Value = Application.UserName
Range("a2").Value = Date
Range("a3").Value = Range("a3").Value + 1
End Sub

 

Bu kodlar ile istediğim alanlara verileri getiriyorum. Fakat bu excel File Server 'da ortak alanda olacağı için herkes exceli açıp bilgileri getir butonuna bastıktan ve diğer bilgileri doldurduktan sonra çıktısını alıp kaydedip çıkması gerekiyor yoksa ID bir önceki numaradan başlayacak ve bu sefer ID dediğimiz bölüm aynı numaraları alıp, çakışacak. Bunu nasıl çözebiliriz ?

Aslında bulduğunuz kod yaklaşık aynı Cells(3, 2) demek 3. Satırın 2. Kolunu bilgi vermek istedim.

 

Öneri biraz amatörce oldu ama bir öneri tarih saat evrak no üretme  ;

Range("a1").Value = Application.UserName
Range("a2").Value = Now
Range("a3").Value = Range("a2").Text
Range("a3").Replace What:=".", Replacement:=""
Range("a3").Replace What:=":", Replacement:=""
Range("a3").Replace What:=" ", Replacement:=""
Range("a3").Replace What:="/", Replacement:=""

End Sub

Exceli kullanmaya başladık. Şöyle bir sıkıntımız var. Excel açıldığında kullanıcı butona birden fazla kez basarsa örneğin 1 numara kullanılmış kullanıcı açtı butona bastı 2 geldi bu sırada excel otomatik olarak kaydetti kullanıcı bir kez daha bilgileri getir butonuna basarsa 3 gelecek ve 2 numara kullanılmadan atlanmış olacak. Bu durumda ne yapılabilir ? Excel her açıldığın sadece bir kez numara getirtilebilir mi ? veya başka ne gibi bir çözüm bulunabilir ?

Merhaba, bu yapıda numara atlamaması zor ihtimal.

Excel kontrol etme imkanlarınız kullanıcı tarafından zorlana bilir.

Kullanıcı açtı kapattı, işlem yapmadı vs.. durumlar değerlendirmek gerek.

excel web tr baya örnek var.

Worksheet_Activate() biraz araştırın excel açılırken makro çalışır hale getire bilirsiniz.

 

 

Merhaba, bu yapıda numara atlamaması zor ihtimal.

Excel kontrol etme imkanlarınız kullanıcı tarafından zorlana bilir.

Kullanıcı açtı kapattı, işlem yapmadı vs.. durumlar değerlendirmek gerek.

excel web tr baya örnek var.

Worksheet_Activate() biraz araştırın excel açılırken makro çalışır hale getire bilirsiniz.

 

 

Daha basit bir çözüm düşünüyorum aslında ben. Kullanıcılar zorlasın ama en azından bir kere açtıklarında arka arkaya tıklamasınlar. Mesela CommandButton'a bir kere tıklayınca buton pasif olsun şeklinde tanımladım ama açıldığında da aktif olması gerekiyor. Private Sub Workbook_Open() içerisine aktifliği tanımlayınca 'object required' hatası alıyorum.