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
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