Ekders çizelgesi ile ilgili soru

[Yesilyurtlu]

Değerli uzman ve bilgi ehli ağabeylerim.
Ekli dosyada dilimin döndüğünce açıklamaya çalıştım. Ekli dosyada yer alan açıklamalar için Yardımlarınızı istirham ediyorum.
Teşekkür ederim.

 

[Mahir64]

Merhaba,

Kendi kullandığım bir çalışma ekliyorum, inceleyin.

 

[Yesilyurtlu]

Mahir bey 1. mesajdaki dosya ile de ilgilenebilir misiniz?
Sİzinkine baktım ellerinize sağlık. Güzel olmuş.Paylaştığınız için teşekkür ederim.

 

[YUSUF44]

D6 için aşağıdaki formülü yazıp hücre biçimini gg olarak ayarlayın:

=SAYIYAÇEVİR(15&"."&C1&"."&C2))

E6 için (sonra yandaki hücrelere kopyalayabilirsiniz):

=EĞER(D6="";"";EĞER(GÜN(D6+1)=15;"";D6+1))

D5'teki formül (sonra yandaki hücrelere kopyalayabilirsiniz). Formülü girdikten sonra hücre biçimini gggg olarak ayarlayınız.

=D6

aktarma işi beni aşıyor hemşerim

 

[Yesilyurtlu]

Sayın Yusuf44
verdiğiniz formülü uyguladım. Sadece aktarma işlemi kaldı. İnşallah aktarma konusunda da uzmanlarım yardımcı olurlarsa işlem tamam olur.
Yardımınız içinh teşekkür ederim

 

[YUSUF44]

Sayfa eklemeyi makro kaydederek yapabildim. Siz de yapabilirsiniz. Şöyle yaptım: Makro kaydet'e girdim ve kayıt başlayınca ilgili sayfa sekmesine sağ tıklayıp Taşı veya kopyala dedim, çıkan menüde doğrudan tamam'a bastım ve yeni sayfa oluştu. Burda da sadece değerler bulunsun diye sütun başlıklarının olduğu yerde tüm hücreleri seçen düğme var (A'nın solunda 1'in üstünde). ona basarak tümünü seçtim ve kopyala dedim. sonra özel yapıştırdan değerleri seçtim. Geriye sadece sayfa adını değiştirme kaldı.

 

[YUSUF44]

Sayfa adın değiştirme de oldu:

boş bir modüle aşağıdaki kodları kopyalayın:

Sub yedek()
'
' yedek Makro
'

'
    Range("A1").Select
    Sheets("Sayfa1").Select
    ActiveSheet.GroupBoxes.Add(479.25, 4.5, 63.75, 19.5).Select
    Dim asi
asi = Sheets.Count
Sheets("sayfa1").Copy After:=Sheets(Sheets.Count)
'Sheets(Sheets.Count).Select
ActiveSheet.Name = Range("c1") & " " & Range("c2")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D6").Select
    Application.CutCopyMode = False
    ActiveSheet.DrawingObjects.Delete
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    


End Sub

Daha sonra sayfaya bir düğme ekleyerek yedek makrosunu atayın. Bu kod sayfayı kopyalıyor, deeğrleri yapıştırıyor, sayfa adını nisan 2012 gibi ay ve yıl olarak (c1 ve c2'deki değerlere göre) değiştiriyor ve son olarak yeni oluşan sayfadaki düğmeleri silerek sayfayı koruyor.

 

[YUSUF44]

Bir noktayı unutmuşuz, sonraki ayın adı Q4 hücresine aşağıdaki formülle yazılabilir:

[B]=W6[/B]

Bu şekilde yapıp hücre biçimini gggg olarak ayarlamalısınız.

 

[Yesilyurtlu]

Değerli YUSUF44;
Büyük yardımlarınız oldu. Ayrıca teşekkür ederim.

Makroda eski kutucuğu kaldırıp düğme eklediğimde hata veriyor. Birde aktarılan sayfa otomotik koruma altına alınsa tamam olacak. Bakabilir misiniz

 

[YUSUF44]

ben çözümlerimi ilk verdiğiniz dosyaya göre yapmıştım. o dosyada sayfa adı sayfa1'di ve o düğmeler yoktu. Hatta hiç makro da yoktu. Şimdi kodları tekrar düzenledim. Yalnız sayfa adını sadece ay olarak herhangi bir hücreden doğrudan alamadığım için geçici olarak v3 hücresine bir formülle ay adını yazdırdıktan sonra değiştirebildim. Daha sonra makro v3 hücresini boşaltıyor. Bu nedenle dosya kullanımınızda v3 hücresinin boş ve bağımsız olmasına dikkat ediniz:

Sub yedek()
'
' yedek Makro
'

'
    Range("A1").Select
    Sheets("Usta Öğretici_Ücretli").Select
    ActiveSheet.GroupBoxes.Add(479.25, 4.5, 63.75, 19.5).Select
    Dim asi
asi = Sheets.Count
Sheets("Usta Öğretici_Ücretli").Copy After:=Sheets(Sheets.Count)
'Sheets(Sheets.Count).Select
Range("v3").Select
ActiveCell.FormulaR1C1 = "=TEXT(R[6]C[-16],""aaaa"")"
ActiveSheet.Name = Range("v3")
Range("v3") = ""
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D6").Select
    Application.CutCopyMode = False
    ActiveSheet.DrawingObjects.Delete
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    


End Sub

 

[Yesilyurtlu]

Yusuf44
yardımlarınız için vermiş olduğunuz kod ve formüller için sonsuz teşekkür ederim.
İşlem Tamamdır

 

[hkose61]

Yusuf44
yardımlarınız için vermiş olduğunuz kod ve formüller için sonsuz teşekkür ederim.
İşlem Tamamdır

hocam rica etsem proğramın bitmiş halini yükleyebilirmisiniz bizde okulumuzda faydalansak.teşekkürler.