hücreye bilgi atma

[hurkanpisirici]

merhabalar, eklediğim dosyada ki kod dosyanın açıldığı pc nin harddisk nosunu RETE sayfasının a1 hücresine atıyor kodda oynama yaptım ama olmadı ben bunu Sayfa1 sayfasının a1 hücresine atmak istiyorum yardımlarınız için teşekkür ederim.

 

[Necdet]

Merhaba,
Sayfa1 olmak kaydı ile koda kırmızı yazılan bölümü ekleyiniz.

Sub SeriNumarasi()
Dim SerialNumber As Long
GetVolumeInformationA "C:\", vbNullString, 0, SerialNumber, _
0, 0, vbNullString, 0
[B][COLOR=red]Sheets("Sayfa1").[/COLOR][/B]Range("A1") = SerialNumber
End Sub

 

[hurkanpisirici]

çok teşekkür ederim benimde değiştirmeye çalıştığım buydu elinize sağlık kolay gelsin