Biçimlendirme

[karahan61]

Merhaba arkadaşlar.

Ekteki dosyamda bir çalışmam var. çalışma sayfasında haftanın günlerinde belli rakamlar var. haftanın belli günlerini kapattığımda o günlere eşit alan rakamları almasını istiyorum.
Yardımlarınız için tşk
Çalışmam ders puantajında kullanılacaktır. Çeşitli nedenlarle tatiller, kişinin izinli olması vs

 

[Korhan Ayhan]

Selamlar,

"Belli günleri kapatmak" ifadesi ile ne kastediyor sunuz?

 

[karahan61]

hocam, pazartesi (6) ( günler ) tatil olsun veya belli gün gelmemiş olsun

 

[Korhan Ayhan]

Selamlar,

İnanın yazdıklarınızdan hiçbir sonuç çıkaramadım. Sayfada ne yaptığınızda ne olmasını istiyor sunuz?

 

[karahan61]

dosyayı yeniden ekledim

 

[karahan61]

Dosyayı yeniden ekledim

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Gri renklendirme yaptığınız sütunun gün ismi hücresinde çift tıklayın. Değerler otomatik olarak gelecektir.


Kullanılan kod; (Sayfanın kod bölümüne uygulayın.)

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim HÜCRE As Range, SATIR As Long
    
    If Intersect(Target, Rows(3)) Is Nothing Then Exit Sub
    
    Cancel = True
    
    SATIR = Range("A65536").End(3).Row
    
    For Each HÜCRE In Range(Cells(3, Target.Column), Cells(SATIR, Target.Column))
        If HÜCRE.Interior.ColorIndex = 15 Then
            Select Case Target
                Case Is = "Pzt": HÜCRE.Value = Range("B4")
                Case Is = "Sal": HÜCRE.Value = Range("C4")
                Case Is = "Çar": HÜCRE.Value = Range("D4")
                Case Is = "Per": HÜCRE.Value = Range("E4")
                Case Is = "Cum": HÜCRE.Value = Range("F4")
            End Select
        End If
    Next
End Sub

 

[karahan61]

teşekkürler

 

[Ömer]

Merhaba,

Hile ile yapılmış fakat rakamlarla sayısal işlem değil sadece görünüş olarak çalışacaksanız ekteki örnekte işinize yarayabilir.

.

 

[karahan61]

Makro başka dosyaya uyarlama

Merhabalar: Ders puantajı hazrlamak istedim arkadaşlar bazı konularda yardımı esirgemediler hepsine teşekkür.

1-Tam olarak anlatamasamda sayın Korhan AYHAN arkadaşım ekteki "ÖRNEK" dosyada yazdığı makroyla %90 yardımcı oldu aynı makroları "ÖRNEK-2" dosyaya uyarlanmasında yardımcı (olursa)nız sevinirim.
2-Bu konuda başka önerileri olan arkadaşların ilgilenmesi,
3-Kişi yazdığımda sıra numarası otomatik geliyor. (satırlar başka sayfalara bağlantılı olduğundan ) satır sildiğimde excel' in kendi satır numarasının sabit kalmasını istiyorum
Yardımlarınız için şimdiden teşekkürşler.