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
-
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
-
dosyayı göremiyorum tekrar yükleme yapabilirmisiniz ?
-
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.]
-
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.
-
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...
-
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
-
Araçlar | Makro | Güvenlik
menüsünden
Düzeyi Yüksek olarak ayarlayıp, dosyayı tekrar açın.
-
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
-
Aslında dosyanızı ekleseniz sorunumuz daha kolay anlaşılıp, çözümlenmeye çalışılabilir.