• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Aylık takvime göre veri alma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Selamlar,
Dosyada mevcut olan her kayıt için haftalık gösterilen ders saatlerini combobox1 ve combobox2 ile seçilen tarihe göre hafta içlerine dağılımını yapabilir miyiz?
 

Ekli dosyalar

  • nasyar x.xlsm
    90.2 KB · Görüntüleme: 26

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,518
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Selâmlar @nasyarx,

Anladığım kadarıyla bu kodlar işinizi görecektir..
PHP:
Private Sub CommandButton1_Click()
    Dim ara As Range, satir%, n%, i&, kacinci%
    On Error Resume Next
    Set ara = Columns(3).Find(TextBox1.Value, , , 1)
    If Not ara Is Nothing Then
        satir = ara.Row
    End If
    For n = 1 To 5
        For i = 8 To 38
            kacinci = Weekday(Cells(9, i).Value, vbMonday)
            If kacinci = n Then
                Cells(satir, i) = Controls("gun" & n).Value
            End If
        Next i
    Next n
End Sub
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Sayın @Admin,
Öncellikle her soruya hızlı ve güzel cevaplar verdiğiniz için teşekkür ederim.
Sayfada her kayıt için ders dağılımı AX:BB arasında mevcut. Ders dağılımı yaparken tüm kayıtlar için aynı anda yapılabilir mi?
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,518
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Rica ederim Sn. @nasyarx, sizlere yardımcı olabilmek adına buradayız. (y)

Bu kodları kullanabilirsiniz..
PHP:
Private Sub CommandButton1_Click()
    Dim n%, i&, s%, kacinci%
    On Error Resume Next
    Range("H13:AL34").ClearContents
    For s = 13 To 33
        For n = 1 To 5
            For i = 8 To 38
                If Cells(9, i).Value <> "" Then
                    kacinci = Weekday(Cells(9, i).Value, vbMonday)
                    If kacinci = n Then
                        Cells(s, i) = Cells(s, n + 49).Value
                    End If
                End If
            Next i
        Next n
    Next s
End Sub
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Temizleme bu kod ile yapılmasa olur mu? Çünkü liste sayısı değişliklik gösterebilir? Onun yerine tüm kayıtlar için H: AL arasını temizlesin.
Range("H13:AL34").ClearContents
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,518
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Yanlış yazdınız sanırım.. H:AL arasını temizlemeniz doğru olmaz.
H13:AL? aralığını demek istediniz değil mi?
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Evet, Haklısınız. Her kayıt için geçerli olan hücreler. Liste farklılık gösterirse sorun olmasın diye.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,518
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
İlgili satırı bu şekilde düzenleyebilirsiniz.
PHP:
    son = Range("C65536").End(3).Row + 1
    Range("H13:AL" & son).ClearContents
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Teşekkürler.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt