• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Öğretmen Ders Programı

T

Turan61

Altın Üye
Katılım
27 Kasım 2009
Mesajlar
41
Excel Vers. ve Dili
Microsoft Office Professional Plus 2019
Türkçe
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.
 

Ekli dosyalar

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...
 
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.
.
Kod: 
[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]
 
Son düzenleme:
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..
 
Son düzenleme:
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.
 
Son düzenleme:
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst