Userform ve Nesneleri, Hücre Başvurusuyla Renklendirme


Excel Userformlarımızı ve üzerindeki nesneleri, çalışma sayfamızda kullandığımız şablon renklerine uygun bir şekilde düzenlemek isteyebiliriz. Userformumuzun renklerini, belirlediğimiz hücrelere doldurduğumuz renklerden alıyor olacak. Excel hücre rengi değişince otomatik olarak userformumuz ve üzerindeki nesneler de hızlı bir şekilde çalışma sayfamızla uyumlu renk paletiyle boyanacaktır... Alttaki Kodları Userformumuzun Initialize bölümüne yapıştırın ve formumuzun referans alacağı hücreleri renklerle doldurun. Alttaki Userform hücre başvurularını kendi sayfa ve hücrelerinize göre düzenlemeyi unutmayın... Esen Kalın... 
 Private Sub UserForm_Initialize()

Dim nesne As Control
For Each nesne In Me.Controls
If TypeName(nesne) = "TextBox" Then nesne.BackColor = Sheets("bilgiler").Range("l5").Interior.Color
If TypeName(nesne) = "Frame" Then nesne.BackColor = Sheets("bilgiler").Range("l4").Interior.Color
If TypeName(nesne) = "CommandButton" Then nesne.BackColor = Sheets("bilgiler").Range("l4").Interior.Color
Next
Me.BackColor = Sheets("bilgiler").Range("l4").Interior.Color

End Sub
DEVAMINI OKU

Hazineye ait İmar parselleri ve plan tadilatları




Milli Emlak Genel Müdürlüğü’nün 02.02.1984 tarih ve 123 sıra sayılı genel tebliği uyarınca, Askıya çıkarılmış Hazineye ait İmar parselleri ve plan tadilatlarının bulunmadığı ile ilgili tespit tutanağı.

Dosyanın Başlıca Yetenekleri


  •  Ayın İlk gününü girdikten sonra aylık dilimlere otamatik ayırır 
  • Ayın son gününü otomatik yazar Bir sonraki ay günleriyle birlikte otomatik yazılır ve listesinden seçeceğiniz tarihin bulunduğu hücreye çift tıklayarak otomatik olarak ilgili hücreye aktarılır ve böylece tutanak tarine eklenir. 
  • Bir iki tıklamayla her ay düzenlemek durumunda olduğumuz basit fakat işlevsel bir dosyadır.

Hazineye ait İmar parselleri ve plan tadilatları dosyasını indirmek için tıklayınız...
DEVAMINI OKU

Excel Hücreye Çift Tıklayınca Onay (Check) İşareti Koyma

Merhaba Excel Dostları. 

Excel Hücrelerine çift tıklayınca onay (check) işareti nasıl yazdırabiliriz?...
 
İleri seviye excel kullanıcıları bu tarz kısa yollara ihtiyaç duyar ve tablolarının etkileşim içerisinde daha dinamik olmasını isterler... :] 
 
Bu cümle içerisinde bir nümayiş var sanırım... 
 
Ben de bu tarz işlevsel kısa yollara ihtiyaç duyduğuma göre, ileri seviye excel kullanıcısı oluduğumu söyledim... 
 
Evet... 
 

İnsan bazen olduğundan ziyade olmak istediği konumlardan lakırdılar sarfedebiliyor... Ne diyelim? İnsanlık! :] 

 
Konuya dağıtmadan, belirli bir alıkta bulunan excel hücrelerine çift tıklayınca hücreye onay işareti yazdıracağız... 
 

Yapmamız Gerekenler; 

 
1- Kutuların içindeki yazı tipi Marlett  (alttaki kod otomatik seçim yaptırıyoruz... )

2- Klavye tuşu a 
 
3- ilgili sayfanın kod bölümüne alttaki kodu yazıyoruz ve hücre aralıklarını kendi uygulamamıza göre yeniden yazıyoruz... Hepsi Bu kadar sevgili excel dostlarım... Sağlıcakla kalınız...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub 'Count kelimesinin Türkçe karşılığı saymak demektir
 Application.EditDirectlyInCell = True 'Hücreye çift tıklayınca veri girmeyi serbest bırak
' Target hedef demektir. Sayfa olaylarında kullanılan bir değişkendir. Yerine istediğiniz kelimeyi yazabilirsiniz
    If Not Intersect(Target, Range("K19:P119")) Is Nothing Then 'Intersect(Aktif_Hücre, Hedef_Aralık)
    ' Intersect komutu  kesişme anlamına gelmektedir.
Application.EditDirectlyInCell = False 'Hücreye çift tıklayınca veri girmeyi iptal et
        Target.Font.Name = "Marlett"
        If Target = vbNullString Then 'Bir değişken veri içermiyorsa bu değişken Null değere sahiptir diyebiliriz.
            Target = "a" 'çift tıklayınca hücreye a harfinin marlett yazı tipi olarak karşılığı onay işaretidir
        Else
            Target = vbNullString 'Stringler (metinler)
          End If
    End If
End Sub

Dikkat!
Birden fazla sütuna başvuru yaparak onay işareti yazdırmak istiyorsanız üstteki kodlarda ilgili bölümde, alttaki gibi yeniden düzenleme yapabilirsiniz... 
    If Not Intersect(Target, Range("f6:f297, j6:j297, N6:N297")) Is Nothing Then 'Intersect(Aktif_Hücre, Hedef_Aralık)
Örnek Excel dosyasını indirmek için tıklayınız...
DEVAMINI OKU

Denetim-Teftiş Belgeleri

Denetim-Teftiş Belgeleri

Yine yeni bir konu hakkında belge oluşturalım istedik. Kurumlarımızın en fazla zorlandıkları işelerden bir tanesi denetim olsa gerek... Sonuç olarak son üç yılın hasadı sayılabilecek bir süreç.

Bu süreci en az kayıpla atlatarak en fazla verimi alabilmek adına eteğimizde ne varsa dökelim istedik. Bilmem gereksiz şeylerle mi uğraşıyorum. Ekmek paylaşıldıkça lezzetlidir...

Hülasası ilk paylaşımı kurum denetim formalarını paylaşarak yapmak istiyorum. (Eksiği veya fazlası varsa lütfen önerilerinizle katkıda bulunun) Faydalı olması dileğiyle...

20 Temmuz 201
  • 5442 Sayılı İl İdaresi Kanunu’nun 31. maddesinin Ç fıkrası hükmünce ilçede bulunan Kamu Kurum ve Kuruluşları her yıl Kaymakam tarafından denetlenmesi sağlanacaktır. denilmektedir.

  • Kurum Denetim Formu (excel formatında, makro içerir, bir çok özellik mevcuttur. örneğin ilgili hücreye çift tıklayarak onay işareti yazdırılabilir. Konuyla ilgili sorularınız olursa yardımcı oluruz)

DEVAMINI OKU

Günlük brifing


Mülki İdare Amirime verdiğim günlük brifingimde kullandığım form... Konulara ayrılmış sayfalardaki bilgileri ana listeden seçip süzme yapıyor ve çıktı alıyorum... Boş satırları gizleyen ve yine tekrar boş satırları gösteren iki adet makro ve düğmesi mevcut... sayfalar çoğaltılabilir ve özelleştirilebilir... Yardıma ihtiyaç duyduğunuz noktaları alttaki yorum bölümüne yazabilirsiniz...
Excel Dosyasını indirmek için tıklayınız...>>

Sağlıcakla Kalın
DEVAMINI OKU
Kaydol: Kayıtlar (Atom)