Öğretmen Ders Programı

[Turan61]

Merhaba arkadaşlar,
Öğretmen Ders programında kişiye atanan ders saati sayısını yatay olarak toplamak istiyorum.
Fakat buradaki birleştirilmiş hücrelerde var bu birleştirilmiş hücreleri birleştirilen hücre sayısı kadar saymasını istiyorum.

Örn: yatay olarak iki hücre birleştirilmiş ve dolu ise 2 saymasını diğer tek dolu hücreleri de normal saymasını istiyorum.

ikinci yardım edilmesi gereken konu ise

Örn: bir satırda geçen sınıfın kaç adet geçtiğini satırın sonuna toplamasını
eğer o sınıf birleştirilmiş ise birleştirilmiş hücre sayısı kadar saymasını istiyorum.

inşallah sıkıntımı anlatabilmişimdir.
konuda geçen excelin örneğini ekte gönderdim.
yardımlarınız için şimdiden teşekkür ederim.

 

[Turan61]

yada birleştirilmiş hücreleri çözümlediğimde çözümlenen hücrelerin içindeki verilerin de kısa yoldan aynı olma imkanı var mı?

Mesela: iki birleştirilmiş hücrede 5L sınıfı varsa hücreyi çözümlediğim zaman iki hücrenin de 5L olmasını istiyorum.

Bu işlemi tüm tablo için kısa yoldan nasıl yapabilirim...

 

[Ömer BARAN]

Merhaba.

Belki biraz dolambaçlı ama aşağıdaki şekilde sonuç alabilirsiniz.

-- Belgenizi açın ve sayfaya bir metin kutusu/şekil ekleyin.
-- Alt taraftan sayfa adına fareyla sağ tıklayın, KOD GRÜNTÜLEyi seçin,
açılan ekranın sağ tarafına aşağıdaki kodları yapıştırın ve pencereyi kapatın.
-- Eklediğiniz metin kutusuna/şekle fareyle sağ tıklayın ve MAKRO ATAyı seçin,
-- Açılan küçük menüden AYIRYAZ_BRN'yi seçin işlemi onaylayarak tamamlayın.
-- Sayfaya eklediğiniz metin kutusuna/şekle fareyle tıklayın.
.

[FONT="Arial Narrow"][COLOR="blue"][B]Sub AYIRYAZ_BRN()[/B][/COLOR]
Application.Calculation = xlCalculationManual
Range("A3").Activate
If ActiveCell.Row = 101 Then Exit Sub
10: On Error GoTo 20
    Application.FindFormat.MergeCells = True
    Cells.Find(What:="", After:=ActiveCell, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True).Activate
        Selection.UnMerge
    Cells(ActiveCell.Row, ActiveCell.Column + 1) = Cells(ActiveCell.Row, ActiveCell.Column)
If ActiveCell.Column > 70 Or ActiveCell.Row < 101 Then GoTo 10
20: [COLOR="Red"]For sat = 3 To 100
    Cells(sat, 73) = 70 - WorksheetFunction.CountBlank(Range("A" & sat & ":BR" & sat))
Next[/COLOR]
Application.DisplayAlerts = False
Range("A1:N1").Merge: Range("O1:AB1").Merge: Range("AC1:AP1").Merge
Range("AQ1:BD1").Merge: Range("BE1:BR1").Merge
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Cells(1, 1).Activate: MsgBox "BİTTİ"
[B][COLOR="Blue"]End Sub[/COLOR][/B][/FONT]

 

[sakman26]

selam,
eki inceleyiniz.
Birleştirilmiş hücreler makro yardımı ile düzenlendi, ama yine de bazı hatalar olabilir gözden geçirilmesinde yarar var. Çünkü bazı iki hücre birleştirmelerinde veri sol hücrede yazılı iken birleştirilmiş bazılarında ise sağ hücrede yazılı iken...Şu anda sınıfların yazıldığı alanda birleştirilmiş hücre kalmadı..
NOT : sizin dosyanızda Salı 5 - 6 ders 89.satır sadece 7 vardı... Onlar 7C yapıldı siz kontrol edin..

 

[Turan61]

A.S. sakman26
yapmış olduğunuz programın içeriği çok güzel olmuş fakat ders programında toplu öğretmen çarşaf listesi istediğimde bana excel olarak vermiyor. bende pdf olarak bilgisayara yazdırıyorum, daha sonra excel formatına çeviriyorum.
sizin şuan yapmış olduğunuz programı anlık kullanabilirim. (dönemlik)

benim için önemli olan ham olan birleştirilmiş hücreleri çözümlediğimde sizin şuan yapmış olduğunuz program haline getirebilmesidir.

görüyorum ki bu işte uzmansınız uğraşlarınız için teşekkür ediyorum.

 

[Ömer BARAN]

Merhaba.

Toplam alma kısmını yok etmek için önceki cevabımdaki kodda kırmızı olarak renklendirdiğim (önceki cevabıma tekrar bakın) kısmı silin.

 

[Turan61]

Merhaba.

Toplam alma kısmını yok etmek için önceki cevabımdaki kodda kırmızı olarak renklendirdiğim (önceki cevabıma tekrar bakın) kısmı silin.

tam istediğimiz gibi oldu

üstad teşekkürler

 

[Ömer BARAN]

tam istediğimiz gibi oldu
üstad teşekkürler

İyi günler dilerim.

Ayrıca belgeleriniz üzerinde çalışırken hücre birleştirmelerinden kaçınmanızı öneririm.