hatam nerde acaba

[CONANFORCE]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("A13,k471,a44:j45,a46:a55,a56:e70,f56:g62,h56:j70,f65:g70,a7171")) Is Nothing Then Exit Sub
a = InputBox("BU BÖLÜME GİRİŞ YAPMANIZ İÇİN ŞEFREYİ YAZINIZ.", "KENAN GÜNEŞ")
If a = "kenankasa" Then
Exit Sub
Else
Call SkipCell
End If
End Sub

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Sub HSB()
Application.ActivateMicrosoftApp Index:=0
End Sub
Private Sub CommandButton2_Click()
UserForm1.Show
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [c46:c55]) Is Nothing Then
Calendar1.Visible = False
Exit Sub
Else
Calendar1.Value = Date
Calendar1.Visible = True
End If
End Sub

Sayın hocalarım bir kasa raporu hazırlıyordum. yukarıdaki kodları excel formda araşırdım tek tek buldum uyguladım taki en baştaki kodu yapıştırana kadar. daha sonra kırmızı olan kodu hatalı olduğunu vurguladı excel sorun nerdedir acaba. bu kodların hepsi tek bir sayfada diğer sayfalarada aynı kodu çoğaltıcam.

 

[leumruk]

Merhaba,
Aynı işlevdeki sayfa kodu uygulamasını aynı sayfada uygulayamazsınız. Sizin anlayacağınız dille :

Private Sub Worksheet_SelectionChange

satırıyla başlayan iki farklı kodu aynı sayfada uygulayamazsınız. Ancak iki farklı kodu aynı prosedür içinde yazabilirsiniz. Eğer yazdığınız kodlarda başka bir hata yoksa aşağıdaki şekilde kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A13,k471,a44:j45,a46:a55,a56:e70,f56:g62,h56:j70,f65:g70,a7171")) Is Nothing Then
a = InputBox("BU BÖLÜME GİRİŞ YAPMANIZ İÇİN ŞEFREYİ YAZINIZ.", "KENAN GÜNEŞ")
If a = "kenankasa" Then
Exit Sub
Else
Call SkipCell
End If
End If

If Intersect(Target, [c46:c55]) Is Nothing Then
Calendar1.Visible = False
Exit Sub
Else
Calendar1.Value = Date
Calendar1.Visible = True
End If
End Sub

 

[CONANFORCE]

hocam tekrar aynı yerde hata verdi. yapmak istedğim,

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Sub HSB()
Application.ActivateMicrosoftApp Index:=0
End Sub

Private Sub CommandButton2_Click()
UserForm1.Show
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [c46:c55]) Is Nothing Then
Calendar1.Visible = False
Exit Sub
Else
Calendar1.Value = Date
Calendar1.Visible = True
End If
End Sub

bu koda

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("A13,k471,a44:j45,a46:a55,a56:e70,f56:g6 2,h56:j70,f65:g70,a7171")) Is Nothing Then Exit Sub
a = InputBox("BU BÖLÜME GİRİŞ YAPMANIZ İÇİN ŞEFREYİ YAZINIZ.", "KENAN GÜNEŞ")
If a = "kenankasa" Then
Exit Sub
Else
Call SkipCell
End If
End Sub

bu koduda ekleyerek koruması açık olan sayfalardaki bazı hücrelerdi kitlemek

 

[leumruk]

Aşağıdaki kodları sayfanızdan tamamen silip, onun yerine benim bir önceki mesajda verdiğim kodu yapıştıracaksınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [c46:c55]) Is Nothing Then
Calendar1.Visible = False
Exit Sub
Else
Calendar1.Value = Date
Calendar1.Visible = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("A13,k471,a44:j45,a46:a55,a56:e70,f56:g6 2,h56:j70,f65:g70,a7171")) Is Nothing Then Exit Sub
a = InputBox("BU BÖLÜME GİRİŞ YAPMANIZ İÇİN ŞEFREYİ YAZINIZ.", "KENAN GÜNEŞ")
If a = "kenankasa" Then
Exit Sub
Else
Call SkipCell
End If
End Sub

 

[CONANFORCE]

hocam dediğiniz gibi uygulamaya çalıştım kendimce yaptım sanırım fakat sizce yapamamış olabilirim şuan safayı olduğu gibi yapıştırıyorum sizin dediğinizi yaptıktan sonraki halini kırmızı yerde hata veriyor.

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Sub HSB()
Application.ActivateMicrosoftApp Index:=0
End Sub

Private Sub CommandButton2_Click()
UserForm1.Show
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A13,k471,a44:j45,a46:a55,a56:e70,f56:g62,h56:j70,f65:g70,a7171")) Is Nothing Then
a = InputBox("BU BÖLÜME GİRİŞ YAPMANIZ İÇİN ŞEFREYİ YAZINIZ.", "KENAN GÜNEŞ")
If a = "kenankasa" Then
Exit Sub
Else
Call SkipCell
End If
End If

If Intersect(Target, [c46:c55]) Is Nothing Then
Calendar1.Visible = False
Exit Sub
Else
Calendar1.Value = Date
Calendar1.Visible = True
End

If
End Sub

 

[leumruk]

Sayın. CONANFORCE,
Kodlar alıntıysa eksik bir şeyler bırakmış olabilirsiniz. Örneğin bu koda göre Module bölümünde SkipCell isimli makronuzun olması gerekli. Eğer bu yoksa kodlar hata verecektir. Daha kesin çözüm için dosyayı eklemelisiniz.

 

[CONANFORCE]

hocam dosyam ofis 2007 makro içeren excel formatında serverde kullunacağımızan.
özet anlatmak gerekirse bir kod daha yapıştıracağım daha sonra

Sub auto_open()
For i = 1 To Worksheets.Count
If Sheets(i).Range("I1") < Date Then Sheets(i).Visible = False
Next
End Sub

bu koduda yapıştıracağım sayfalardaki L1 hücresindeki tarih bu günden ufak ise saklasın diye.
denemelerimi ocak 1 de yapıyordum. daha sonra diğer sayfalara yapıştıracağım

 

[leumruk]

Maalesef, bende 2003 var. Dolayısıyla dosyanızı açamıyorum. Çoğu kullanıcıda da aynı durum söz konusu. Cevap verebilmemiz için dosyanızı 2003 formatında eklemeniz gerekli.

 

[CONANFORCE]

dosyayı farklı kaydetten kaydetim fakat ne kadar verimli bilemiyorum hocam

 

[leumruk]

Syn. CONANFORCE,
Önceki mesajımda da belirttiğim gibi, sorun şu satırdan kaynaklanıyor:

Call SkipCell

Kodla Skipcell adlı makronun çalışması için emir vermişsiniz; ama dosyanızda bu isimde bir makro yok. Bu makroyu bulup dosyanıza eklemelisiniz.
Sağlamasını yapmak için bu satırı silip deneyin, kodda bir sorun olmadığını göreceksiniz.

 

[halit3]

dosyayı farklı kaydetten kaydetim fakat ne kadar verimli bilemiyorum hocam

Call SkipCell

bunun yerine

If a <> "kenankasa" Then [A4].Select

bunu denermisiniz

 

[CONANFORCE]

ellerinize ve emeğinize sağlık hocam