Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: makroda yardım  (Okunma sayısı 8994 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
makroda yardım
« : 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

Çevrimdışı cengizozkan

  • Excelce Onbaşı
  • **
  • İleti: 16
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Cengiz
Ynt: makroda yardım
« Yanıtla #1 : 22 Nisan 2010, 11:21:03 »
dosyayı göremiyorum tekrar yükleme yapabilirmisiniz ?

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: makroda yardım
« Yanıtla #2 : 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.]

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: makroda yardım
« Yanıtla #3 : 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.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: makroda yardım
« Yanıtla #4 : 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...
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: makroda yardım
« Yanıtla #5 : 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

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: makroda yardım
« Yanıtla #6 : 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.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: makroda yardım
« Yanıtla #7 : 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

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: makroda yardım
« Yanıtla #8 : 26 Nisan 2010, 11:59:09 »
Aslında dosyanızı ekleseniz sorunumuz daha kolay anlaşılıp, çözümlenmeye çalışılabilir.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)