[Yardım]  Devam Kontrol cetveli

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Devam Kontrol cetveli

İleti#1)  vuranoglu » 17 Ekm 2020 20:47

İyi akşamlar.
Dosyamızda tarih değiştiğinde şablon sayfasında ve diğer sayfalarda tarih (ay/yıl ) değiştiğinde tüm sayfalardaki bilgilerinde değişmesi gerekiyor.. Ama neredeki hatadan dolayı çalışmıyor?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 64
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Devam Kontrol cetveli

İleti#2)  Miraç CAN » 18 Ekm 2020 11:05

Keşke şifreyi kaldırıp ekleseydiniz.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 752
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Cevap: Devam Kontrol cetveli

İleti#3)  feraz » 18 Ekm 2020 11:44

Miraç CAN yazdı:Keşke şifreyi kaldırıp ekleseydiniz.

:)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Devam Kontrol cetveli

İleti#4)  feraz » 18 Ekm 2020 12:58

Hesapla kodunu alttaki gibi değiştiriniz.
arr = Array("ocak", "þubat", "mart", "nisan", "mayýs", "haziran", "temmuz", "aðustos", "eylül", "ekim", "kasým", "aralýk")
yukarıdaki harfleriTr karakterden dolayı değiştirmeniz gerekebilir.Mesela Ş,ğ ,i gibi...

Kod: Tümünü seç
Private Sub hesapla()
Dim M As Date, arr, bul As Byte
Dim i As Long, J As Long
Dim yillar As String, aylar As String

sat1 = 11 'yazmaya baþlýyacaðý ilk satýr
sut1 = 1 'yazmaya baþlýyacaðý ilk sutun
sat2 = 41 'yazmaya baþlýyacaðý son satýr
sut2 = "I" 'yazmaya baþlýyacaðý son sutun

Range(Cells(sat1, sut1), Cells(sat2, sut2)).ClearContents
Range(Cells(sat1, sut1), Cells(sat2, sut2)).Interior.ColorIndex = xlNone

aylar = Range(aylar1).Value
yillar = Range(yillar1).Value

  arr = Array("ocak", "þubat", "mart", "nisan", "mayýs", "haziran", "temmuz", "aðustos", "eylül", "ekim", "kasým", "aralýk")
   For i = LBound(arr) To UBound(arr)
        If arr(i) = LCase(aylar) Then
            bul = i + 1
            Exit For
        End If
    Next
If bul = 0 Then GoTo hata
Ayin_Son_Gunu = DateSerial(yillar, bul + 1, 1) - 1
Ayin_Ilk_Gunu = DateSerial(yillar, bul, 1)

i = sat1
sut = sut1

For J = 1 To Day(Ayin_Son_Gunu)

    If J = 41 Then
        sut = sut + 6
        i = sat1
    End If

  M = CDate(J & "." & bul & "." & yillar)
        Hicri_takvim1 (M)
    Cells(i + J - 1, sut).Value = J
    'Cells(i + J - 1, "J") = Cells(i + J - 1, "F") - Cells(i + J - 1, "C")
   
    If Format(M, "DDDD") = "Pazar" Or Format(M, "DDDD") = "Cumartesi" Then
        Cells(i + J - 1, sut).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 1).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 2).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 3).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 4).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 5).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 6).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 7).Interior.ColorIndex = 19
       
        Cells(i + J - 1, sut + 8).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 8).Value = Format(M, "DDDD")
        'Range(Cells(i + J - 1, sut + 7), Cells(i + J, sut + 7)).Interior.ColorIndex = 19
    End If
   
    If deg1 <> "" Or deg2 <> "" Then
        Cells(i + J - 1, sut).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 1).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 2).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 3).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 4).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 5).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 6).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 7).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 8).Interior.ColorIndex = 19
        Cells(i + J - 1, sut + 8).Value = "Bayram/Yýlbaþý"
        'Cells(i + J - 1, sut + 8).Value = "Bayram"
        Range(Cells(i + J - 1, sut + 7), Cells(i + J, sut + 7)).Interior.ColorIndex = 19
End If
Next
Erase arr
Exit Sub
hata:
MsgBox "Hatali tarih girildi", vbCritical, "Hata"
Erase arr
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Devam Kontrol cetveli

İleti#5)  vuranoglu » 18 Ekm 2020 13:47

Sayın feraz
İlginize teşekkür ederim.
Ancak kodlar çalıştırıldığında; çalıştır/yazdır/sil butonuna basıldığında tüm sayfaların üzerindeki ay/yıl değişmiyor.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 64
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Devam Kontrol cetveli

İleti#6)  feraz » 18 Ekm 2020 14:08

Rica ederim.
Tam olarak adım adım anlatırsanız iyi olacak mesela hangi sayfadaki hangi kod çalışacak gibi.
Ben sadece ay adı ve yıl değiştirme kodunu daha doğrusu sayfanınchange kodundaki hesapla kodunu ayarladım.
O kodda sanırım tatilleri yazıyor.
Dediğim gibi adım adım anlatmanız lazım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Devam Kontrol cetveli

İleti#7)  feraz » 18 Ekm 2020 15:06

PERSONEL BİLGİLERİ sayfasındaki H2 ve H3 değişince diğer sayfalardaki H6 ve I6 hücreleride otomatik değişecekse kolay o işbitince eklerim dosyayı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Devam Kontrol cetveli

İleti#8)  feraz » 18 Ekm 2020 15:31

Dosyaı deneyiniz.PERSONEL BİLGİLERİ sayfasındaki Private Sub Worksheet_Change(ByVal Target As Range) koda alttakileri ekledim.

Kod: Tümünü seç
Dim syf As Worksheet, arr(1)
    If Not Intersect(Target, [H2:H3]) Is Nothing Then
        For Each syf In ThisWorkbook.Worksheets
            If syf.Name <> "PERSONEL BİLGİLERİ" Then
                arr(0) = Range("H3").Value
                arr(1) = Range("H2").Value
                syf.Range("H6:i6").Value = arr
                Erase arr
            End If
        Next
    End If

  MsgBox "Bitti", vbInformation, "Bilgi"
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Devam Kontrol cetveli

İleti#9)  feraz » 18 Ekm 2020 15:35

Resim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Devam Kontrol cetveli

İleti#10)  vuranoglu » 18 Ekm 2020 18:29

Sayın Feraz

İlginize teşekkür ederim. Görüldüğü kadarıyla düzgün çalışıyor.Tüm personeli eklediğimde de çalıştırayım sonucu bildiririm.Tekrar teşekkürler.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 64
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Devam Kontrol cetveli

İleti#11)  vuranoglu » 18 Ekm 2020 18:51

Sayın Feraz

Takvim kısmında bayramlarda hatalı geliyor
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 64
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Devam Kontrol cetveli

İleti#12)  feraz » 18 Ekm 2020 19:00

Hesapla kodunu eski kodlarınızla değiştirin sadece.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Devam Kontrol cetveli

İleti#13)  feraz » 18 Ekm 2020 19:02

feraz yazdı:Hesapla kodunu eski kodlarınızla değiştirin sadece.


Rica ederim.

Bende hata verdiği için o şekilde yapmıştım.
Kısaca ilk dosyanızda Personel bilgileti sayfadaki change kıdunu son verdiğim kod ile değiştirin.Kıd dosya içinde.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Devam Kontrol cetveli

İleti#14)  feraz » 18 Ekm 2020 21:54

Dosyayı yinede ekleyeyim istediğiniz gibi.
PERSONEL BİLGİLERİ sayfasındaki H2:A3 aralığındaki veriler PERSONEL BİLGİLERİ sayfası haricindeki sayfaların H6:I6 aralığına aktarılır.
Yani sadece bu kımı yaptım ve sizin dosyanız daha öncede dediğim gibi resimdeki hatayı veriyor.

Resim

Değiştirdiğim kodlarda altta.Yani sarıya boyadığım yerleri ekledim sadece.

Resim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Devam Kontrol cetveli

İleti#15)  feraz » 18 Ekm 2020 22:04

Resimdeki hatanın sebebi belkide benim bilgisayar dilinin yabancı olmasından kaynaklanabilir.Mesela Tr olarak Mayıs seçildiyse benim bilgisayar Mai olarak algılıyorsa olabilir.

Aslında her sayfa için kod yazmak yerine class ile kısaltılabilinirdi kodlar.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Devam Kontrol cetveli

İleti#16)  vuranoglu » 18 Ekm 2020 22:48

Sayın Feraz

Hatalı gelen bayram tarihleri sizin kodlardan değil.Orada kullanılan bayram verileri yıllık olarak değişmesi gerekiyor.Bayram günlerini de düzeltebilir miyiz?
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 64
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Devam Kontrol cetveli

İleti#17)  feraz » 18 Ekm 2020 23:21

Müsait olunca bakarım üstad.
Bayram günlerini zaten koda yazmışsınız diye biliyorum.
Banada sizin kodlar hatalı hesaplıyor diye düşünmüştüm açıkçası.
Kesin çözüm için şöyle yapabiliriz.Mesela mayıs ayı yada başka bir ay için ve yıl için sayfada tatil günleri nasıl çıkacak onu ya resim olarak ekleyin yada dosya olarak ekleyin ona göre yapalım.
Normalde bazı dosyalarda görmüştüm bu tatil günleri için ayrı bir sayfa ekliyorlardı denk geldiklerim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Devam Kontrol cetveli

İleti#18)  vuranoglu » 20 Ekm 2020 20:47

Sayın Feraz;
İyi akşamlar.
2020 yılı için Bayram günlerini gösterir tablolar ektedir.
Olması gereken günler kırmızı ile belirtilmiş olup takvimin diğer yıllarda da düzgün çalışması için desteğinizi bekliyorum.
Yılbaşı,23 Nisan 1 Mayıs ,19 Mayıs, 15 Temmuz ,30 Ağustos ,28 Ekim,29 Ekim şu anda düzgün, yeni çalışmada bunları da ele almalıyız.
Şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 64
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Devam Kontrol cetveli

İleti#19)  feraz » 20 Ekm 2020 23:24

İyi akşamlar.
Biraz bişeyler yaptım.
Heralde Kurban Bayramı için yanlış oluyordu bir gün kayma yapmıştı.
I sütununa sadece haftasonlarını eklettim ve yılbaşını.
Renklendirmeler tam olmamış galiba biçimlendirmeden dolayı.

F sütununa Milli bayramların adlarını yazdırdım tabii uzun olduğu için gıcık duruyor.
Sadece genel olarak Milli Bayram gibi yazdırılırsa diye koda ekleyip pasip yatım.
G sütununada Dini Bayramların adını getirttim önceki olayın aynısı uzunluk olarak.

Kodların bazısını başka modüle aldım kısa olması için.
Eğer sonuçlar doğru olursa dahada kısaltılabilir her sayfada Hesepla kodu eklemek yerine.

Mayıs ayı için sonuç resimde
Bu arada öncedende yazdığım gibi sizin kodda hata almıştım benim Pc dil ile alakalıymış.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Devam Kontrol cetveli

İleti#20)  feraz » 21 Ekm 2020 13:08

Vakit bulmuşken kodlarınızı ayarladım.
Artık sayfaların Change yerlerine yada başka bir yerine eklemeye gerek yok.

modTarih adındaki modüle aldım.

Ayrıca ilgili sayfaların koşullu biçimlendirmelerini kaldırdım zaten gereksizmiş inceleyince renklendirmede çalışıyor.

PERSONEL BİLGİLERİ sayfalarındaki ilgili tarihler değişince kod devreye girer.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, feraz ve 1 misafir

Bumerang - Yazarkafe