Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: voleclub - 22 Nisan 2010, 11:18:50

Başlık: makroda yardım
Gönderen: voleclub - 22 Nisan 2010, 11:18:50

Selam
benim yaptığım küçük bir proğram var burdaki makro bir çalışıyor bir çalışmıyor,yada lüzümsüz yerde çalışıyor ve devamlı hata veriyor exceli kapatmak zorunda kalıyorum yaptıklarım tüm boşuna gidiyor.gönderdiğim dosyayı bir incelermisiniz . dosyada daha ayrıntılı olarak anlattım teşekkürler

Başlık: Ynt: makroda yardım
Gönderen: cengizozkan - 22 Nisan 2010, 11:21:03

dosyayı göremiyorum tekrar yükleme yapabilirmisiniz ?

Başlık: Ynt: makroda yardım
Gönderen: voleclub - 22 Nisan 2010, 11:23:23

galiba bu makroda bir problem var
Private Sub Worksheet_Change(ByVal Target As Range)
Dim adr2 As String
If Intersect(Target, [C5:Q10,C11:Q16,C17:Q22,C23:Q28,C29:Q34]) Is Nothing Then Exit Sub
On Error Resume Next
adr2 = Target.Address
If Target.Row <= 10 Then
    adr = Range("C5:Q10").Address
    ElseIf Target.Row <= 16 Then
    adr = Range("C11:Q16").Address
    ElseIf Target.Row <= 22 Then
    adr = Range("C17:Q22").Address
      ElseIf Target.Row <= 28 Then
    adr = Range("C23:Q28").Address
    ElseIf Target.Row <= 34 Then
    adr = Range("C29:Q34").Address
    End If
If WorksheetFunction.CountIf(Sheets("MSL HA").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL ME").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL Çİ").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL NE").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL ZE").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL BE").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL KA").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL1").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL2").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL3").Range(adr), Target.Value) > 2 Then
    Target.Select
    MsgBox Target.Value & " BU HAFTA 2 DERS SAATLİK LİMİTİNİ DOLDURMUŞTUR" & vbLf & "LÜTFEN BAŞKA HAFTAYA YAZINIZ", vbOKOnly + vbInformation, "E V R E N"
    Target.Value = ""
    Target.Select
End If
Application.EnableEvents = True
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: makroda yardım
Gönderen: voleclub - 22 Nisan 2010, 12:05:43

yine olduya bu nisan ayının ki idi ben şimdi msl ile başlayan sayfalardaki tablolarda isimleri silip mayıs ayının kini yazacağım ama toplu halde isim silince çok bekliyor. Bazende BU HAFTA 2 DERS SAATLİK LİMİTİNİ DOLDURMUŞTUR" "LÜTFEN BAŞKA HAFTAYA YAZINIZ", "E V R E N" yazısı çıkyor. çarpıya basıncada kapanmıyor.Görev yöneticisinden kaptıyorum oda tüm yaptıklarım siliniyor.

Başlık: Ynt: makroda yardım
Gönderen: Bülent Öztürk - 22 Nisan 2010, 12:10:43

Sayfa temizleme işlemi yapacaksanız, dosyayı açarken makroları devre dışı bırakın. Silme işleminizi yapın, dosyayı kaydedip kapatın ve tekrar makrolar etkin olarak açıp, işlemlerinize devam edin bakalım...

Başlık: Ynt: makroda yardım
Gönderen: voleclub - 22 Nisan 2010, 12:18:38

nasıl devre dışı bıracagım birde  BU HAFTA 2 DERS SAATLİK LİMİTİNİ DOLDURMUŞTUR" "LÜTFEN BAŞKA HAFTAYA YAZINIZ", "E V R E N" yazısı çıkıyor. ve kapatamıyorum geri bunu exceli kapatmak zorunda kalıyorum

Başlık: Ynt: makroda yardım
Gönderen: Bülent Öztürk - 22 Nisan 2010, 12:48:32

Araçlar | Makro | Güvenlik
menüsünden
Düzeyi Yüksek olarak ayarlayıp, dosyayı tekrar açın.

Başlık: Ynt: makroda yardım
Gönderen: voleclub - 26 Nisan 2010, 11:51:46

selam
aşagıdaki makroda bir hata varmı acaba bir veri giriyorum ve MsgBox Target.Value & " BU HAFTA 2 DERS SAATLİK LİMİTİNİ DOLDURMUŞTUR" & vbLf & "LÜTFEN BAŞKA HAFTAYA YAZINIZ", vbOKOnly + vbInformation, "E V R E N" yazısı çıkıyor tamama basıyorum ama yinede olmuyor teşekkürler

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adr2 As String
If Intersect(Target, [C5:Q10,C11:Q16,C17:Q22,C23:Q28,C29:Q34]) Is Nothing Then Exit Sub
On Error Resume Next
adr2 = Target.Address
If Target.Row <= 10 Then
    adr = Range("C5:Q10").Address
    ElseIf Target.Row <= 16 Then
    adr = Range("C11:Q16").Address
    ElseIf Target.Row <= 22 Then
    adr = Range("C17:Q22").Address
      ElseIf Target.Row <= 28 Then
    adr = Range("C23:Q28").Address
    ElseIf Target.Row <= 34 Then
    adr = Range("C29:Q34").Address
    End If
If WorksheetFunction.CountIf(Sheets("MSL HA").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL ME").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL Çİ").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL NE").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL ZE").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL BE").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL KA").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL1").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL2").Range(adr), Target.Value) + _
WorksheetFunction.CountIf(Sheets("MSL3").Range(adr), Target.Value) > 2 Then
    Target.Select
    MsgBox Target.Value & " BU HAFTA 2 DERS SAATLİK LİMİTİNİ DOLDURMUŞTUR" & vbLf & "LÜTFEN BAŞKA HAFTAYA YAZINIZ", vbOKOnly + vbInformation, "E V R E N"
    Target.Value = ""
    Target.Select
End If
Application.EnableEvents = True
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Başlık: Ynt: makroda yardım
Gönderen: Bülent Öztürk - 26 Nisan 2010, 11:59:09

Aslında dosyanızı ekleseniz sorunumuz daha kolay anlaşılıp, çözümlenmeye çalışılabilir.