2 Bilgisayarda - If -or

[Yakut]

slm

GetVolumeInformationA "C:\", vbNullString, 0, SeriNo, 0, 0, vbNullString, 0

If SeriNo <> xxxxxxx Or yyyyyy Then ThisWorkbook.Close False

bu kodla tek bilgisayarda calisiyor.bunu diyelim iki farkli bilgisayarda nasil calistirabilirim.

kodlar, kodbankasindan alinti


saygilar

 

[dEdE]

Merhaba,
xxxxxxx ve yyyyyy değerlerini değiştirmeniz gerekiyor. Hangi bilgisayarda çalışacak ise o bilgisayarın serino değerini yazmalısınız.

 

[Yakut]

sayin dede ,

tamam onu biliyorum, xxxxx yyyy bir örnek serino idi. benim burada demek istedigim
iki serino olarak nasil yazilacak , or olarak yazmistim, fakat kod calismadi, burada iki farkli bilgisayarlarda calismasi lazim.

saygilar

 

[leumruk]

Sub Auto_Open()
GetVolumeInformationA "C:\", vbNullString, 0, SeriNo, 0, 0, vbNullString, 0
If SeriNo = xxxxxxx Or SeriNo =  yyyyyy Then
MsgBox "Hoşgeldiniz."
Exit Sub
Else: 
ThisWorkbook.Close False
End If
End Sub

Satırı bu şekilde dener misiniz?

 

[Yakut]

sayin leumruk,

" If SeriNo <> xxxxxxx Or SeriNo <> yyyyyy Then ThisWorkbook.Close False "

xxxx olan yerde benim bilgisayarimin SeriNo , yyyy ise baska bilgisayarin SeriNo

kitap acildiginda hemen kapatiliyor. 1. sart yerine geldigi halde.....

 

[leumruk]

Syn. Yakut,
Eklediğim kod şeklini denediniz mi?

 

[Yakut]

evet hocam,

kod normalde calisiyor. xxxx olan benim Bilgisayar Serino digeri ise baska bilgisayarin Serino
1.sart yerine gelse bile kitap kapaniyor.cünkü diger olan yyyyyy bilgisayarin Serinosu kapattiriyor gibi geliyor ...bana..

 

[leumruk]

evet hocam,

kod normalde calisiyor. xxxx olan benim Bilgisayar Serino digeri ise baska bilgisayarin Serino
1.sart yerine gelse bile kitap kapaniyor.cünkü diger olan yyyyyy bilgisayarin Serinosu kapattiriyor gibi geliyor ...bana..

Sanırım kodu kendi kodlarınıza uyarlarken bir noktayı atladınız. Bendeki satırda "<>" eşit değildir yerine "=" kullanılıyor. Bu ayrıntıya dikkat edin.
Çünkü "<>" bu şekilde yazarsanız, herhangi biri eşit değilse bilgisayarı kapatır.

 

[Yakut]

sayin leumruk

4.mesajinizi , 5.mesajimimda belirttigim gibi bana tam olarak yansimadi,bilmiyorum ne teknik hata mi oldu ....neyse...

hocam cok tesekkürler. kodlar mükemmel yerine oturdu.
ayrica dede yede tesekkürler.

saygilar

 

[leumruk]

Rica ederim. Açıklama yazarken, karar değiştirip direk kodu yazmıştım; sanırım değiştirmeden önce kodu aldınız, kopukluk ondan kaynaklanmış olmalı.
Saygılar.