HATA

[ANTALYA 01]

Aşağıdaki kodu thisworkbokka yapıştırdığımda Run time eror 1004
Windows sınıfının Displayheading özelliği kurulamıyor diyor.

Debug yaptığımda ActiveWindow.DisplayHeading=False

Fakat Dosyada 15 ten fazla sayfa var nedeni o olabilir mi çünkü tek sayfada hata vermiyor.


Private Sub Workbook_Open()
Application.Visible = False
Application.ScreenUpdating = False
Call xlSheetVeryHidden_All_Sheets
sifre = InputBox("", _
"ŞİFRE", "Şifreyi Buraya Giriniz.")
If sifre = "123" Then
MsgBox "Şifre Doğrulandı", vbInformation, _
"Giriş Kabul Edildi"
Call xlSheetVisible_All_Sheets
Application.Visible = True
Sheets("Sayfa1").Select

Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Program Açılamadı", vbCritical, "Yanlış ŞİFRE"
Application.Quit
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False
Range("A1").Select
End Sub

Sub xlSheetVisible_All_Sheets()
On Error Resume Next
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Visible = xlSheetVisible
Next
End Sub
Sub xlSheetVeryHidden_All_Sheets()
On Error Resume Next
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Visible = xlSheetVeryHidden
Next
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Visible = xlSheetVeryHidden
Next
ActiveWorkbook.Save
End Sub

 

[Recep İpek]

Kodlarda anladığım kadarıyla tüm sayfalar gizlendiği için

ActiveWindow.DisplayHeading=False

satırı çalışmıyor.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False
Range("A1").Select
End Sub

kodunu silerek tekrar deneyin.

 

[zaxaza]

Merhaba arkadaşlar,kimya mühendisliği tasarım dersinde maliyet hesabında kullanılan Capcost isimli programda (excel arka planlı çalışan-vba ile) bi hata veriyo.

ActiveCell.Offset(iSelection, 7).Value = "=ROUND(" & _
(pumpform.tbBaseCost / Range("CEPCI")) & "*CEPCI, " & iTemp & ")"

böyle bi yeri sarı ile çiziyo ve hata burdan kaynaklanıyo sanırım.bu hatayı çözebilecek olanlar veya elinde bu programın çalışır halinden olan var mı acaba?teşekkürler.


ekte dosyayı gönderiyorum.bu sorunu çözebilecek olan kişi gerçekten çok büyük iyilik yapmış olacak.ilgilelenlere şimdiden teşekkürler.

yeni ekipman eklediğimizde ekipmanı excele aktarıyor. ancak fiyatları ve ikinci sayfada yazdırması gereken yerlere değerleri yazdırmıyor. lütfen anlayanlar bi bakıversin. tekrar teşekürler.

(not:bu soruyu bikaç gün önce diğer excel soruları kısmında da sormuştum.ancak esas yerinin burası olduğunu düşündüğümden buraya sorumu tekrar gönderiyorum.başlık kirliliği yaratmaması açısından uygun görülürse diğer başlık silinebilir.)saygılar.

 

[zaxaza]

herkese iyi geceler.bu soruma çözüm bulabilecek biri var mı acaba?Gerçi sayın leventm vakti olduğunda ilgilenecek problemle ama.Her hafta ödev verilecek bununla ilgili.bu haftaki ödevin teslimi de yarına.kodlama bilmediğim için çözemedim problemi.anlayanlar bakabilirse,kolaysa ilgilenen olursa çok sevinirim.önce sayın leventm ye sonra da ilgilenen herkese teşekkür ederim.saygılar.

 

[zaxaza]

ilgilenen herkese teşekkür ederim.denetim masassından bölge ve dil seçeneklerinden ingilizce(ABD) seçildiğinde sorunsuz çalışıyormuş.türkçe seçildiğinde sayılara "."; ingilizce seçildiğinde ise "," atadığından dolayı sorun çıkartıyormuş.onu ayarlayınca problem çözüldü.iyi çalışmalar.