Tarih sınırlama

[Necdet]

Merhaba,

Dosyanızı görmem gerek ama şu an acil işim çıktı, sonra bakarım.

 

[ormann]

Teşekkürler sayın hocam

 

[Necdet]

eee hata veren dosya nerede?

 

[ormann]

Hocam dosya ekte orman5. isimli dosyamda birinci satırdaki cumartesiler "x" ,pazarlar "p" olacak ,ikinci satırdaki pazarlar "x" cumartesiler "p" olacak

orman3 nolu dosyamda ise 15.07.2011 tarihini girdiğimde hata alıyorum.

 

[Necdet]

Evet haklısınız.

31 gün dolu olduğunda duracak yerde hata yapmışım. Kodda eklediğim yeri kırmızı ile işaretledim.

Sub Puantaj()
    Dim Sat As Long, _
        Sut As Integer, _
        Son As Long
    
    Son = Cells(Rows.Count, "B").End(3).Row - 1
    If Son < 18 Then Son = 18
    
    Application.ScreenUpdating = False
    Range("C18:AG" & Son).ClearContents
    For Sat = 18 To Son
        Sut = 3
        If Not Cells(Sat, "B") = "" Then
            Do
                If Weekday(Cells(17, Sut), 2) > 5 Then
                    Cells(Sat, Sut) = "P"
                Else
                    Cells(Sat, Sut) = "X"
                End If
                Sut = Sut + 1
            Loop While Not Cells(17, Sut) = "" [B][COLOR=red]And Sut < 34
[/COLOR][/B]        End If
    Next Sat
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamdır....", vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[ormann]

Sayın hocam olmuş ama cetvelde tüm hafta sonlarını "p" olarak belirliyo.Mümkünse ilk satırın cumartesi "x" ,pazar "p",ikinci satır cumartesi "p",pzar "x" şeklinde olabilir mi? devamıda aynı şekilde

 

[Necdet]

Sayın hocam olmuş ama cetvelde tüm hafta sonlarını "p" olarak belirliyo.Mümkünse ilk satırın cumartesi "x" ,pazar "p",ikinci satır cumartesi "p",pzar "x" şeklinde olabilir mi? devamıda aynı şekilde

Anlamama özgürlüğümü kullanmak istiyorum.

 

[ormann]

Sayın hocam ben ekli dosya üzerinde nasıl olacağını gösterdim.

 

[Necdet]

haydaaaaaaaaaaaaaaaaaaaaaaa

Bunun mantığı nedir ki?

 

[ormann]

Sayın Necdet hocam aşağıda yapılmış bir makro örneği var fakat tarihte sınırlama yapmıyo.


Sub makro1()
Dim SAY
SAY = 0
For sat = 18 To 25 'satır başlangıcı ve bitişi
SAY = SAY + 1
If SAY = 3 Then
SAY = 1
End If

For sut = 3 To 33 'sütun başlangıcı ve bitişi
GUN = Format(Cells(17, sut).Value, "dddd") 'gün okunuyor 17 tarih satırı
If Cells(sat, 2).Value <> "" Then

If SAY = 2 Then
If GUN = "Cumartesi" Then
Cells(sat, sut).Value = "P"
Else
Cells(sat, sut).Value = "X"
End If
ElseIf SAY = 1 Then
If GUN = "Pazar" Then
Cells(sat, sut).Value = "P"
Else
Cells(sat, sut).Value = "X"
End If
End If
End If
Next sut
Next sat
End Sub

 

[ormann]

Hocam bunun mantığı Orman Muhafaza Memurlarının biri pazar günü tatilini yapıyo yani "p" ikincisi cumartesi günü tatilini yapıyo oda cumartesi "p" şeklinde

 

[Necdet]

Sayın Ormann,

Ben işin mantığını öğrenmek istedim, kodu yazamam demedim
Merak işte.

İşin kod kısma ayrı.

 

[ormann]

Özür dilerim sayın hocam ben yanlış anladım

 

[ormann]

Merhaba,

Sub Puantaj()
    Dim Sat As Long, _
        Sut As Integer, _
        Son As Long
    
    Son = Cells(Rows.Count, "A").End(3).Row
    If Son < 18 Then Son = 18
    
    Application.ScreenUpdating = False
        Range("C18:AG" & Son).ClearContents
    For Sat = 18 To Son
        Sut = 3
        If Not Cells(Sat, "B") = "" Then
            Do
                [COLOR="Red"]If Weekday(Cells(17, Sut), 2) = 7 Then[/COLOR]
                    Cells(Sat, Sut) = "P"
                Else
                    Cells(Sat, Sut) = "X"
                End If
                Sut = Sut + 1
            Loop While Not Cells(17, Sut) = ""
        End If
    Next Sat
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamdır....", vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub

Sayın arkadaşlar yukarıdaki kırmızı renkli alandaki makro da b9 hücresine 15.07.2011 gibi bir tarih girdiğimde hata mesajı alıyorum.Hatanın nreden kaynaklandığını uğraşmama rağmen bir türlü çözemedim.Yardımcı olurmusunuz

 

[Necdet]

Merhaba,

25. mesajımda olayı açıklamıştım, döngüye girerken tek şart önermiştim oysa tüm sütun dolduğunda döngü durmuyordu.

Loop While Not Cells(17, Sut) = ""[B][COLOR=red] And Sut < 34[/COLOR][/B]

Tüm dosyalarda ve kodlardaki bu satırı bu şekilde değiştiriniz.
Olayı artık öğrenmiş olmalısınız

 

[ormann]

Sayın Necdet hocam makro konusunda çok acemiyim.Sizler sayesinde birşeyler öğrenmeye çalışıyorum.Haddimi aştım biliyorum.tablodaki verileri b18:ag29 satır aralığında nasıl sınırlandırabiliriz.

 

[Necdet]

Sayın Necdet hocam makro konusunda çok acemiyim.Sizler sayesinde birşeyler öğrenmeye çalışıyorum.Haddimi aştım biliyorum.tablodaki verileri b18:ag29 satır aralığında nasıl sınırlandırabiliriz.

35. mesajda çözümü vermiştim. Sadece kırmızı ile yazılanları ekleyeceksiniz, hepsi o.

 

[ormann]

hocam dediğinizi yaptım oldu fakat tablo dışına veri girdiğimde ordada işlem yapıyo.

 

[Necdet]

Merhaba,

Tablo dışındaki değerleri silin ve kodları yeniden çalıştırın. tablo dışına çıkmıyor o ilk yaptığımız kodlarda geçerliydi.

 

[ormann]

Tablo dışında hücre birleştirip eklemem gereken veriler var.