- Katılım
- 6 Eylül 2007
- Mesajlar
- 657
- Excel Vers. ve Dili
- excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Merhaba üstatlar; bir konuda inanılmaz bir sıkıntım var yeni bir excel dosyam var girişinde şifre soran diğer en az 5 dosyada çalışan ancak bu dosyama eklediğimde devamlı aşağıdaki hatayı veren bir sorunum var. Diğer çalışan dosyalardaki birebir formülü kopyalıyorum sadece UserForm numarası değişiyor ancak bu dosyada hata veriyor. Hata veren ve sarı renge dönem kısım " deger = MyValue " bölümü
Dim MyValue
Randomize
MyValue = Int((12365555.2548 * Rnd) + 1)
deger = MyValue
For i = 1980 To Val(Format(Now, "yyyy"))
k = k + 12
ver = k + i
Next
deg1 = deger
deg2 = Val(deger / 19 * 5,67) + 13 + ver
Dim MyValue
Randomize
MyValue = Int((12365555.2548 * Rnd) + 1)
deger = MyValue
For i = 1980 To Val(Format(Now, "yyyy"))
k = k + 12
ver = k + i
Next
deg1 = deger
deg2 = Val(deger / 19 * 5,67) + 13 + ver