excel açılmıyor

[eren61]

hiç bir excel dosyasını açamıyorum çalıştıra excel yazınca açılıyor kaydetiyorum ama yine açılmıyor. sitenizden bazı makro kodları kopyala yapıştır yapmıştım acaba onunla alakalımı

 

[leumruk]

Selamlar,
Sistem geri yükleme yapın; eğer düzelirse kodlardan değil demektir.
Düzelmezse, kopyaladığınız kodu buraya ekleyin, o kodla alakası var mı bakalım.

 

[eren61]

deep freeze vardı bilgisayarı resetledim. şu an normal ama niçin yaptı merak ediyorum. makrolu excel dosyalarını nasıl açmak lazım onunla alakalımı

 

[leumruk]

Makroyla ilgisi olduğunu zannetmiyorum. Bu konuda bir şey söyleyebilmek için, bahsettiğiniz kodları görmek lazım. Belki şu olabilir: Çalıştırdığınız excel dosyası makro kodundan dolayı ekranda görünmüyor; fakat çalışmaya devam ediyor olabilir. içerisinde de çalışırken başka bir excel dosyasının açılmasını engelleyen bir kod varsa dosyalarınız açılmamış olabilir. Deep freeze, olmasa bile resetlediğinizde düzelmesi gerekir.
Kesin bir sonuca varmak için, kodu görmek lazım.

 

[eren61]

diğerleri silindi aşağıdaki kayıtlıydı. zannetiyorum oydu. ama bu siteden indirmiştim. bir de güvenlik düzeyini nerde tutsam uyarı alıyorum direk açılmıyor. makrolarda çok acemi olduğumdan beğendiğim bir makroyumu kaytederken neye dikkat etmeliyim. kopyala yapıştır yaparken kod sayfasında 2-3 satır sanıyorum başlık ve son olan satırlar oluyor onları silip demi yapıştır yapmalıyım. bu gibi konuları detaylı nasıl öğrenirim. ilginize çok teşekkürler


Sub tabloyuduzenle1()
For a = 1 To 3 Step 2
For b = Cells(65536, a).End(3).Row To 3 Step -1
If Cells(b, a) + 2 <> b Then
'For c = 1 To Cells(b, a) - b - 1
Range(Cells(b, a), Cells(b, a + 1)).Insert Shift:=xlDown
Cells(b, a) = Cells(b, a) - 1
'Next
End If
Next
Next

End Sub
Sub tabloyuduzenle()
mak = WorksheetFunction.Max([a:a], [c:c])
For a = 1 To mak
topla1 = WorksheetFunction.SumIf([a:a], a, [b:b])
topla2 = WorksheetFunction.SumIf([c:c], a, [d:d])
If topla1 > 0 Or topla2 > 0 Then
c = c + 1
Cells(c + 2, "h") = a
Cells(c + 2, "j") = a
Cells(c + 2, "I") = topla1
Cells(c + 2, "k") = topla2
End If
Next
End Sub

 

[eren61]

sayın leumruk vba.exe diye bir dosyadan olabilirmi açılması çok uzun sürüyor

 

[leumruk]

Selamlar,
Yazdığınız kodlarda excel dosyanızın açılışını engelleyecek bir satır göremedim.
Makro seviyesini Orta düzeyde tutarsanız, eğer dosyanızda makro varsa, her açılışta "Makroları etkinleştirmek isteyip istemediğinizi soracaktır." Hayırı tıklarsanız kodlar çalışmayacaktır.
Güvenlik seviyesini "Düşük" olarak ayarlarsanız, hiçbir sorgu ekranı gelmeden, kodlar aktif olacaktır.
Kod öğrenmeye gelince; basit bir cevabı var: Sürekli soracaksınız...
Saygılar...

 

[leumruk]

sayın leumruk vba.exe diye bir dosyadan olabilirmi açılması çok uzun sürüyor

Eğer ondansa, yine aynı sıkıntıya sebep olması gerekir.