[ÇÖZÜLDÜ] Hücreye Yaz Nasıl Yapılır ?

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
Merhaba arkadaşlar. Aşağıdaki kod mesaj box olarak ekrana gelmektedir. İşlemin hücreye yazılmasını sağlamak için (mesela A2 hücresine) nasıl bir değişiklik yapmak gerekir !!!


Sub auto_open()
Dim FSO, surucu As Object, seri As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
Set surucu = FSO.GetDrive("C:")
seri = surucu.serialnumber
[A1].Value = seri
Set surucu = Nothing
Set FSO = Nothing
If Date > [a3].Value Then
MsgBox "Serial Numarasini Kontrol Ediniz"
ElseIf [A1] <> [A2] Then ActiveWorkbook.Close
Else: ActiveWorkbook.Save
End If
End Sub
 

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
merhaba
msgboxdaki mesajın A2 ye yazılmasını mı istiyorsunuz, tam anlayamadım?

Sub auto_open()
Dim FSO, surucu As Object, seri As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
Set surucu = FSO.GetDrive("C:")
seri = surucu.serialnumber
[A1].Value = seri
Set surucu = Nothing
Set FSO = Nothing
If Date > [a3].Value Then
[A2] = "Serial Numarasini Kontrol Ediniz"
'MsgBox "Serial Numarasini Kontrol Ediniz"
ElseIf [A1] <> [A2] Then ActiveWorkbook.Close
Else: ActiveWorkbook.Save
End If
End Sub
 

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
Sayın uzmanamele çok teşekkürler. Her zamanki gibi çok centilmensiniz, hemen yardıma koştunuz. Aslında bu mesajı yazdıktan sonra bu konuyu çözdüm ve buna benzer başka bir soru oluştu. Bu konuda yardımcı olabilirseniz çok minnettar kalacağım.

Sub Serialnumber()
Dim FSO, surucu As Object, seri As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
Set surucu = FSO.GetDrive("C:")
seri = surucu.serialnumber
[A1].Value = seri
End Sub


Kodu ile Serila numarasını A1 hücresine yazdırabiliyoruz. Peki aynı basitlikte sadece bir bilgisayarda bulunabilecek başka nasıl bir bilgi bulabiliriz ?
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,488
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

VBA'n&#305;n yard&#305;m menusunden buldu&#287;um kodlardan bir tanesini buraya ekliyorum. Bir dosya hakk&#305;nda bilgi verir, deneyiniz.

abc.xls dosyas&#305;n&#305;n olu&#351;turuldu&#287;u, Son eri&#351;im ve Son De&#287;i&#351;iklik hakk&#305;nda bilgi verir.

Kod:
Sub ShowFileAccessInfo()
    Dim fs, d, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile([B][COLOR=red]"C:\abc.xls"[/COLOR][/B])
    s = f.Path & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified
    MsgBox s, 0, "File Access Info"
End Sub
 

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
Çok teşekkürler sayın Necdet Yeşertener. Katkılarınızla her geçen gün ufkumuz genişliyor. CPU numarası diye bir şey var mı ? Kolay bir yoldan bu bulunabilir mi ?
 

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
Çok çok teşekkür ederim sayın Ferhat Pazarçevirdi. Çok yararlı bir bölüm, sağolun var olun
 
Üst