Excel vba

Userform ve Nesneleri, Hücre Başvurusuyla Renklendirme

2022-04-14T01:28:00.000-07:00

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

Hazineye ait İmar parselleri ve plan tadilatları

2021-07-30T06:14:00.006-07:00

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...

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

2021-01-08T10:57:00.024-08:00

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...

Denetim-Teftiş Belgeleri

2019-12-26T01:28:00.001-08:00

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)

Dosyanın adı: kurum_denetleme_formu
İndirme linki:
https://skydrive.live.com/?cid=33a8a15523cf733c#cid=33A8A15523CF733C&id=33A8A15523CF733C!6479

Günlük brifing

2017-12-05T02:35:00.001-08:00

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

Arşiv Denetleme Formu

2016-05-25T05:02:00.001-07:00

İçişleri Bakanlığı merkez ve taşra teşkilatı arşiv hizmetleri yönetmeliği?nin 12. Maddesi
Madde 12- Bakanlık merkez birimlerinin arşiv ve arşiv faaliyetleri, yılda en az bir kere kurara arşiv sorumlusu veya uzmanlarınca; taşra birimlerinin arşiv ve arşiv faaliyetleri ise aynı süre içinde Vali ve Kaymakamlar tarafından belirlenecek görevlilerce denetlenir.
Merkez ve taşra birimlerinin arşiv ve arşiv faaliyetlerinin denetlenmesi görevi, Bakanlıkça Mülkiye Müfettişlerine de verilebilir.

Dosyayı indirmek için tıklayınız…

Direk indirme Bağlantısı (Yenilendi)

Excel sayfa isimlerini kodlarla listeleme, Köprü Oluşturma

2016-05-20T12:56:00.005-07:00

Tek tek sayfaların isimlerini mesaj kutusunda gösterir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'==========================================
' Sayfa isimlerini mesaj kutusunda gösterir
'==========================================

    Dim isayfasayisi As Integer
    Dim isayfa As Integer
        isayfasayisi = ActiveWorkbook.Worksheets.Count
        For isayfa = 1 To isayfasayisi
        Worksheets(isayfa).Activate
    MsgBox Worksheets(isayfa).Name
    Next isayfa
End Sub

'==========================================
'Microsoft Visual  Basic Makro Kodu:
'Excel Çalışma Kitabındaki Sayfa İsimlerini A Sütununda Listeleme ve Köprü Oluşturma:
'==========================================

Sub ExcelceSayfaKoprule()
Rem Excelce - Öykü Karaman
For Each sayfa In ThisWorkbook.Worksheets
Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!A1", TextToDisplay:=sayfa.Name
Next sayfa
End Sub

Telefon ve Adsl Ödeme Programı

2016-05-20T12:50:00.009-07:00

Açıklama

Kendi kurumumda kullandığım excel ve birazda vba kodu kullanılrak hazırladığım Telefon ve Adsl ödemeleri için hazırlanmş excel dosyası.

Özelllikleri;

Ödeme listesi sayfasına girilen fatura listeleri otomatik sayılır ve ilgili bölüme yazılır.
Açılır Kutudan ilgili ayı seçebilirsiniz.
Fatura tutarlarını otomatik toplar
Nakit ve üzerindeki tüm bilgiler otomatik oluşturulur
Nakit üzerindeki Açıklama ve ekler bölümündeki bilgiler otomatik yazdırılır.

Dosyanın çalışması için makroları etkinleştirmeniz gerekmektedir.

Araçlar>makrolar>Güvenli>Orta>Tamam>Exceli tamamen kapatıp yeniden programı açınız

Dosyayı indirmek için tıklayınız.

Excel CheckBox’u hücre ile ilişkilendirilmesi

2016-05-20T12:46:00.006-07:00

Soru

Arkadaşlar iyi çalışmalar sitenizi yeni buldum ve incelediğim kadarıyla epey faydalı bilgi edinebileceğim bir site benim sorunum ise Sayfaya Eklediğimiz CheckBox ı hücre ile ilişkilendirme yaparak CheckBox a işaret koyduğumuzda ilişkilendirdiğimiz hücrenin içini renklendirmesi bunun gibi yada buna benzer bir makro kodu varmı varsa yardımcı olursanız memnun olurum şimdiden yardımlarınız için teşekkür ederim.

Örnek A:1 hücresinie ilişkilendireceğimiz bir CheckBox’ı işaretlediğim zaman A:1 hücresi kırmızı olacak.

Cevap

Private Sub CheckBox1_Click()

'==========================================
'Excel CheckBox’u hücre ile ilişkilendirilmesi
'==========================================

If CheckBox1.Value = True Then
    Range("A1").Interior.Color = vbRed
    Range("A1").Font.Color = vbYellow
Else
    Range("A1").Interior.ColorIndex = xlNone
    Range("A1").Font.Color = vbBlack
    End If
End Sub

Örnek dosyayı indirmek için tıklayınız.

Excel matematik fonksiyonları

2016-05-20T12:44:00.004-07:00

Matematik Fonksiyonları

Avarage(Ortalama)

Tablonuzda seçmiş olduğunuz toplu değerlerin ortalamasını hesaplattırabilirsiniz. Şimdi Mousu sonucun hesaplanacağı hücreye tıklayın. Yukarıdaki adımları izleyeren aşağıdaki pencelerin açılmasını izleyin.

Not: Daha sonraki adımlarda fonsiyonlara sürekli bu adımlarla erişebilirsiniz.
Tamam butonuna tıkladıktan sonra karşınıza aşağıdaki ekran açılacaktır. Buradan gerekli olan değerleri seçin

Bu örnekteki tablomuzda ?Ortalama Not? değerini ?A5? hücresine yazmış olduğumuz

"=AVARAGE(A2:A4)" Türkçesi = "=ORTALAMA(A2:A4)"

?formulle hesaplattık.

Count(Say) fonksiyonu

Bu fonksiyon seçilen aralıkta kaç hücrenin seçildiğinin sonucunu verir. İsterseniz birden fazla satır veya sütun seçerek hepsinin hücre toplamını bulabilirsiniz.

MACROLARLA HÜCRE DEĞERİNİN KULLANILMASI

2016-05-20T12:41:00.021-07:00

Oluşturacağınız makrolar içerisinde excel hücre değerelerini kullanacak, veya bulmuş olduğunuz bilgileri Excel hücrelerine göndereceksiniz. Şimdi bu işlemleri nasıl gerçekleştireceğinizi örneklerle açıklayalım.

A1 hücresine www.kod.gen.tr yazalım ve Tıkla isimli buton ekleyip aşağıdaki ?okuyucu? isimli makromuzu, oluşturduğumuz butona atayıp, hücre değerini mesaj kutusunda kullanıcıya iletelim.

Aşağıdaki kodu Alt + F11 ile vba yı açalım Insert > Module ile müdül ekleyelim ve aşağıdaki kodu yazalım.

Sub okuyucu()
Dim oku As String
Oku = Range(?A1?).value
MsgBox oku
End Sub

Makromuza bir satır ekleyerek, mesaj kutusundaki değeri istediğimiz hücreye yazdırabiliriz.
Bu örneğimizde mesaj kutusundaki değeri A2 hücresine yazdıralım.

Sub okuyucu()
Dim oku As String
oku = Range("A1").Value
MsgBox oku
Range("A2").Value = oku
End Sub

Aralıklar, Hücre Seçim İşlemleri

2016-05-20T12:40:00.015-07:00

Aşağıdaki ifade, aktif hücreden, aktif hücrenin 2 satır aşağısını ve 5 sütun sağındaki hücreleri seçecektir.

Range(ActiveCell, ActiveCell.Offset(2, 5)).Select

Sub aralik()

Dim Aralığım AsRange

Set Aralığım =Range(“A1”)

    Aralığım = “www.kod.gen.tr”

    Aralığım.Font.Bold = True

    Aralığım.Font.Color = vbGreen

Set Aralığım =Nothing

End Sub

Sub withkullan()


  ‘with yapısını kullanmayı öğreniyoruz


    WithRange(“a1”)

        .Font.Bold = True

        .Font.Color = vbRed

    End With

End Sub

Sub aralıklarım()

    ‘Range özelliğinin çeşitli kullanımlarınıöğreniyoruz


    ‘A1:C3 aralğını seçer. Range özelliğini bubiçimi ile _

    2 bağımsız değişken kullandık

    Range(“A1″,”C3”).Select


    ‘Aktif hücre ile b6  aralğını seçer

    Range(ActiveCell, “B6”).Select


    ‘B3:C8 aralığını seçer

    Range(“B3:C8”).Select


    ‘Belirtilen aralığa bir ad verir

    Range(“B2”, “E4”).Name= “İşlemAralığım”


    ‘ad verdiğimiz aralığı  seçtik

    Range(“İşlemAralığım”).Select

    Range(“B2”).Select


    ‘Excel c3 hücresini seçer. Excel ActiveCellözelliğiyle döndürülen _

    range nesnesini, yani B2 hücresinibaşlangıç noktası olarak kullanı.

    ActiveCell.Range(“b2”).Select


   Range(“İşlemAralığım”).Range(“A1”).Select

End Sub

Sub koleksiyonOlarakRangeKullan()

‘*****************************************************************

‘Excelin aralğıkoleksiyon olarak gören üç özelliği vardır: _

Cells özelliğihücreler koleksiyonu, Rows Özelliği satırlar _

koleksiyonunu veColumns özelliği sütunlar koleksiyonunu döndürür.

‘*****************************************************************

Dim Aralığım AsRange

‘B2:E4 aralğınıAralğım değişkenine atadır.

Set Aralığım =Range(“B2:E4”)

‘Aralğımı daha kolaygörünmesi için renklendirdik.

Aralığım.Interior.Color= vbYellow

‘aralğın ilksatırındaki dördüncü hücreyi, E2 hücreni seçtik

Aralığım.Cells(1,4).Select

‘Koleksiyonunaltıncı öğesi olan c3 hücresini seçer

Aralığım.Cells(6).Select

‘*****************************************************************

‘Bu bildiri cellsözelliğini iki kez kullanır; _

önce aralıktakihücre sayısını bulmak için, sonra _

da son hücreyiseçmek için. Aralıkta 12 hücre vardır. _

koleksiyonun 12.öğesi üçüncü satırdaki dördüncü hücredir

Aralığım.Cells(Aralığım.Cells.Count).Select

‘*****************************************************************

‘Excel Çalışmasayfasındaki en son hücreyi seçer. Cells özelliği _

önünde bir Rangenesnesi olmadan kullandığınızda (yani genel cells _

özelliğinikullandığınızda), etkin çalışma sayfasındaki tüm hücre _

koleksiyonunudöndürür. Bildiri, Çalışma sayfası üzerindeki 65536. _

hücreyi seçer.

Cells(Cells.Count).Select

‘*****************************************************************

‘Aralğımın 2. satırıolan B3:E3 aralğını seçer

Aralığım.Rows(2).Select

‘Aralğın son sütunuolan E2:E4 aralğını seçer

Aralığım.Columns(Aralığım.Columns.Count).Select

‘Genel columnsözelliği tüm çalışma sayfasını bir aralık olarak kullanır.

Columns(2).Select

‘Columns(3)

‘Columns(“D”)

‘kullanarak columnskoleksiyonundan bir öğ belirleyebilirsiniz

End Sub

Sub izle()

Dim Aralığım AsRange ‘C4:E5 aralğınıAralğım değişkenine atadı.

Set Aralığım =Range(“C4:E5”)

‘Aralğımı daha kolaygörünmesi için renklendirdik.

Aralığım.Interior.Color= vbYellow

‘(“C5:E6”)aralığını,sarı aralıktan bir hücre aşağısını seçer. Öffset _

Özelliği ikibağımsız değişken alır. İlki bavuruyu aşağı kaydırmak için _

satır sayısıdır. 2.sağa kaydırmak için sütun sayısıdır.

Aralığım.Offset(1,0).Select

‘Aralğımla aynıboyutta ve ona bitişik olan F4:H5 Aralğını seçer. _

Kendinizi aralığınsol üst hücresinde otururken düşünün. Aralığımda üç _

sütun olduğu içinileri doğru üç adım atın. Bu yeni başvuru için başlangıç _

hücresidir.

Aralığım.Offset(0,Aralığım.Columns.Count).Select

‘Excel Aralğımdan bir sütün daha geniş olan C4:F5 aralığını seçer. Resize özelliği _

yenidenboyutlandırılmış bir aralık döndürür. İlk bağmsız değişken, yöne başvurudaki _

satır sayısı,ikincisi ise sütun sayısıdır. Satır yada sütunları özgün aralıktakiyle _

aynı bırakmak için,karşılğı olan bağımsız deişkeni boş bırakın (Ama ilk bağmsız _

deişkeni boşbırakıyorsanız virgül koyun).

Aralığım.Resize(,4).Select

‘Excel özgün aralıktan her yönde bir hücredaha büyük bir dikdörtgen _

seçer. Offsetözelliği başlangıç noktasını bir hücreyukarı ve bir _

hücre sola doğrukaydırır. Resize özelliği yeni aralığı özgün olandan _

iki hücre daha uzunve iki hücre daha geniş yapar.

Aralığım.Offset(-1,-1).Resize(Aralığım.Rows.Count + 2, _

Aralığım.Columns.Count + 2).Select

‘Excel 4. satırıntümünü seçer. Aralığım değişkeni C4:E5 aralığına bir _

başvuru döndürür.Cells Özelliği, o aralığın ilk hücresini (sol üstteki), _

C4’ü döndürür.EntireRow özelliği, o başvuruyu satır 4’ün tümünü içeren _

biçimde genişletir.Zincirdeki tüm özellikler; başka bir nesneye başvuru _

döndürür. asıl işiyapan sonundaki select yönteminde ulaşana kadar _

bu böyle sürer

Aralığım.Cells(1).EntireRow.Select

‘C:E sütunlarınıntümünü seçer

Aralığım.EntireColumn.Select

‘Excel A1:D4aralığını seçer. CurrentRegion özelliği, seçimi boş hücreler _

le yada çalışmasayfasının kenarlarıyla sınırlı bir dikdörtgen oluşturmak _

üzere genişletir.

Aralığım.CurrentRegion.Select

‘EntireRow, EntireColumn ve CurrentRegion özellikleriyle beraber Offset _

ve Resize özellikleri, özgün bir başlangıç aralğına dayalı yeni Range _

nesneleri hesaplamanız için size esnek araçlar sağlar.

End Sub

‘VALUE Özelliği herzaman bir hücredeki sayının biçimlendirilmemiş _
değerini verir. Bir hücrenin, biçimlendirilmemiş değeri veren bir _
de Text özelliği vardır. Text Özelliği salt okunur çünkü value ve _
NumberFormat özelliklerinin bir birleşkesidir.

Tam otomatik ek ders çizelgesi

2016-05-20T12:36:00.003-07:00

Açıklama

Ayın ilk gününü otomatik yazar,
– Cumartesi-pazarlara X işareti otomatik yazar mesai günlerine ek dersi otomatik yazar
– İlköğretim Okullarındaki Müdürlere : 4-6-4-6-4 şeklinde otomatik ek ders yazar,
– Branş Öğretmenlerine: 4-3-4-3-4 şeklinde yazar,
– Sınıf Öğretmenlerine : 3-3-3-3- şeklinde otomatik yazar,
– Ayın son günü otomatik yazar,
– Ek ders saatlerini otomatik toplar ve rakamla toplamları yazar,
kısacası size sadece yazıcı ikonuna tıklamak kalır.

Örnek dosyayı indirmek için tıklayınız (yenilendi…)

Kullanım videosu

Alttaki dosyada ilköğretim okulları için hazırlanmış hali

Tam otomatik ek ders çizelgesi v2.0

2016-05-20T12:34:00.003-07:00

Açıklama

Ek Ders Çizelgesi programı sayesinde ayın ilk gününü, yetkili öğretmenin ve müdürün ek ders saatlerini otomatik olarak yazdırabilirsiniz.

İndirmek için tıklayın (direk link güncellendi…)

Program 2008 yılında hazırlanmıştır. Değiştirilmesini istediğiniz noktalar olursa alttaki yorum formunu kullanabilirsiniz. Elimden geldiğince zamınımın yettiğince yardımcı olmaya çalışırız…

Excel sayfa koruma kodları

2016-05-20T12:33:00.002-07:00

Sub sayfalarıkoru()
'Sadece Sayfa1 i koruyan kodlar
Dim Sayfam As Worksheet
Set Sayfam = Worksheets(1)
Sayfam.Select
Sayfam.Protect "kabatashaber", True, True, True 'Parolayı kabatashaber olarak yazdık
End Sub

Sub sayfalarıkoru1()
'tüm Sayfaları şifreleme FOR EACH döngüsünü kullanmak
Dim Sayfam As Worksheet
For Each Sayfam In Worksheets ' Set yerine FOR Each yazdık _ 'eşitti imi yerine de in yazdık parantezi ve içindeki sayıyı kaldırdık
Sayfam.Select 'Bu bildiriyi yazmaya gerek yoktur sadece yapılan işmelrin gözükmesi için yazdık
Sayfam.Protect "kabatashaber", True, True, True
Next Sayfam
End Sub

Sub Sayfakorumalarını_kaldır()
Dim Sayfam As Worksheet
For Each Sayfam In Worksheets
Sayfam.Select 'Bu bildiriyi yazmaya gerek yoktur sadece yapılan işmelrin gözükmesi için yazdık
Sayfam.Unprotect "kabatashaber"
Next Sayfam
End Sub

‘NOT FOR EACH DÖNGÜSÜ YANLIZCA BİR KOLEKSÖYONDA DÖNER İKİ PARALEL KLEKSİYONU (ÖRNEĞİN İKİ ARALIĞI ) KARŞILTIRAMAZ ‘BUNUN İÇİN (İKİ ARALIĞI KARŞILAŞTIRMA İÇİN İSE FOR NEXT DÖNGÜSÜNÜ KULLANMALIYIZ

2011 Kapalı alanda sigara içme ile kaçak içkiye uygulanacak yeni cezalar

2016-05-20T12:24:00.007-07:00

Tütün mamulleri ve alkol piyasasıyla ilgili idari para cezaları, yılbaşından itibaren yüzde 7.7?ye varan oranda artacak. İşte kapalı alanda sigara içme ile kaçak içkiye uygulanacak yeni cezalar: Tütün mamulleri ve alkol piyasasıyla ilgili idari para cezaları, yılbaşından itibaren yüzde 7.7?ye varan oranda artacak. İşte kapalı alanda sigara içme ile kaçak içkiye uygulanacak yeni cezalar:

Tütün ve Alkol Piyasası Düzenleme Kurumu?ndan (TAPDK) alınan bilgiye göre, 4207 Sayılı Tütün Mamullerinin Zararlarının Önlenmesine Dair Kanun ile 4733 sayılı Tütün ve Alkol Piyasası Düzenleme Kurumu Teşkilat ve Görevleri Hakkında Kanun uyarınca verilen para cezaları, 1 Ocak 2011 tarihinden geçerli olmak üzere Kurumca yeniden belirlendi.

Bu kapsamda, kapalı alanlarda sigara içenlerden alınan 70 liralık idari para cezası, 75 liraya çıkarıldı. Tütün ürünleriyle ilgili izmarit, paket, ağızlık, kağıt ve benzeri atıkları çevreye atanlara kesilen 25 liralık ceza da 26 lira oldu.

Yeni düzenleme sonrasında sigarayla ilgili yasakları, görsel yayın yoluyla ihlal eden, ulusal yayın yapan televizyonların halen 57 bin 232 lira ile 286 bin 160 lira arasında değişen ceza tutarı, 61 bin 638 lira ile 308 bin 194 lira arasında tespit edildi. Bu rakam, bölgesel yayın yapan televizyon kuruluşlarında 6 bin 163 lira ile 12 bin 327 lira arasında, yerel yayın yapan kuruluşlarda ise 1.232 lira ile 6 bin 163 lira arasında uygulanacak.

Sigara veya diğer tütün mamulleri paketlerinde yazılı uyarıya yer vermeyen ya da yanlış bilgi ve aldatıcı tanımlamaya neden olacak figür kullanan üreticilere de piyasaya sürülen malların piyasa değeri kadar idari para cezası verilecek. Ancak, bu cezanın miktarı, 308 bin 194 liradan az olamayacak.

Tütün mamulleri veya alkollü içkileri satış yerlerindeki raf veya standlara, her türlü teşhir ünitesine, reklam ve tanıtımına ilişkin mevzuat ile Kurum düzenlemelerine aykırılık oluşturacak şekilde yerleştirenler de 36 bin 983 lira para cezası ödeyecek.

İZİNSİZ DÖKME ALKOLLÜ İÇKİYE 246 BİN LİRA CEZA
TAPDK?dan izin almadan veya güncelleme yapmadan ana girdilerde veya ürün ambalajında değişiklik yaparak piyasaya ürün arz edenlere de 61 bin 638 lira ile 616 bin 388 lira arasında para cezası uygulanacak.

Kurumdan satış belgesi almadan tütün mamulleri, etil alkol, metanol ve alkollü içkilerin toptan satışını yapanlara verilecek para cezası miktarı, 57 bin 232 liradan 61 bin 638 liraya yükselirken, yine Kurumdan izin almadan ya da bildirimde bulunmadan dökme alkollü içkileri piyasaya arz eden, sevkıyatını yapan veya izin verilen yerlerden farklı noktalarda depolayanlara da 228 bin 928 lira yerine, 246 bin 555 lira idari para cezası kesilecek.

Photoshop programıyla açıp kendinize göre düzenleme yapabileceğiniz PSD dosyasını indirmek için tıklayınız…

Sigara içilmez, sigara yasağı psd ve sigara yasağı uyarı levhası şeklinde arama terimlerini aratmak suretiyle sitemize gelen çok sayıda ziyaretçiyle karşılaştık. Bununla ilgili yeniden bir çalışma yapıp siz değerli ziyaretçilerimiz için konuyu zenginleştirdik. Ayrıca photoshopta daire içerisine ve dışına oval yazıların nasıl yazıldığı ile ilgili bir video ekliyoruz. Umarım işinize yarayan çalışmalar olmuştur.

Photoshop programıyla açıp kendinize göre düzenleme yapabileceğiniz PSD dosyasını indirmek için tıklayınız…( Direk link )

1111 Sayılı Kanun Tebliğ Mazbata Örneği

2016-05-20T12:17:00.000-07:00

Kaymakamlıklarca oluşturulan ilçe idare kurulu’nda alınan askerlik kararlarının tebliği ile ilgili hazırlanan excel dosyası.
Program bir çok işlemi otomatik gerçekleştiriyor.
Bir çok bilgiyi bir kez girmeniz durumunda daha sonraki işlemlerde tekrardan kurtarıyor.
Programı kullanabilmek için excel makroları etkinleştirmeniz gerekiyor.
Programda ayrıca askerlik karar örneği de hazırlanıyor.
Ekran Görüntüsü

İndirmek için tıklayınız

Direk link indirmek için tıklayınız…

mazbata (farklı version tek sayfa)

Excel’de günün tarihini ve yarının tarihini yazdırmak

2016-05-20T12:16:00.002-07:00

Formül ile hücreye bugünün tarihini yazdırmak

=BUGÜN()

Hücereye yarının tarihini yazdırır

=BUGÜN()+1

Hücereye dünün tarihini yazdırır

=BUGÜN()-1

Hücereye yarının tarihini yazdırır

Sub Düğme1_Tıklat()
ActiveSheet.PageSetup.LeftHeader = Date & "-" & Date + 1
End Sub

‘belirtilen hücrelerdeki rastgele yazılan sayıları tarihe çevirir

Sub tarihecevir()

Dim aralık As Range
For Each aralık In Range("C1:C50")
formul = "=IF(OR(LEN(RC[-1])>8,LEN(RC[-1])

Tarihler arasına noktayı otomatik yazdırmak

2016-05-20T12:12:00.008-07:00

Soru:Arkadaşlar Merhaba,
Bir soruna takıldım. Excelin kendi fonksiyonlarıyla uğraştım yapamadım.
Soru şu : A1 hücresine doğum yeri ve tarihi yazılacak. Örneğin; A1 hücresine “Bursa 01011970” yazılacak. (dikkat edilirse tarihler arasına nokta koymadım) Entere basıldığı an; “Bursa 01.01.1970” şeklinde olması gerekir. Yani noktayı kendiliğinden koyacak. Acaba bunu makroyla yapmak mümkün müdür?
NOT : Doğrudan hücre içerisine yazılacağı için excelin kendi formülü çözüm teşkil etmiyor.
Hepinize saygılarımı sunuyorum…
Cevap:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
Cancel = True 
ActiveCell.Replace What:=".", Replacement:="" 
ActiveCell.Value = Mid(ActiveCell, 1, Len(ActiveCell) - 9) & " " & Left(Right(Right(ActiveCell.Value, 8), 8), 2) & "." & Left(Right(Right(ActiveCell.Value, 8), 6), 2) & "." & Right(Right(ActiveCell.Value, 8), 4) 
End Sub

Kodlar: Bülent Öztürk

Görsel Olarak (hücrede tarih gibi görünür fakat biçim olarak sayıdır) bu işlemi ilgili hücrede iken ya da birden cük hücreyi seçtikten sonra Görsel olarak bu işlemi yapmak istiyorsanız ilgili hücrede iken (yada tüm sütunu seçerek);
Biçim>hücreler>sayı>isteğe uyarlanmış sekmelerinde tür kısmına;

##\.##\.####

şeklinde yapıştırın.

Tarihler arasında işlem yaptığınızda, örneğin iki tarih arasındaki gün farkını hesaplamaya çalıştığınızda işlemin tarih formatında doğru sonuç döndürmesini için ilgili hücrede iken ya da birden cük hücreyi seçtikten sonra yine
Biçim>hücreler>sayı>isteğe uyarlanmış sekmelerinde tür kısmına;

0#\.0#\.####

şeklinde yapıştırın. Ayrıca Bakınız...

Combobox’taki değere göre diğer combobox’ların değişmesi

2016-05-20T12:09:00.001-07:00

Put your bullet list here BU DOSYA İLE;
-İlk Açılır Kutudan Seçtiğiniz Kişilerin Yakınlarını diğer açılır kutulara (combobox lara getirebilirsiniz.)
-Sadece seçtiğiniz kişi ile ilgili diğer bilgilere zahmetsizce ulaşırsınız.
-Kısaca İlk combobox tan (Açılır Kutudan) Seçtiğiniz Kişiye ait bilgileri diğer comboboklara aktırılır. Böylece Comboboxlarda veri kargaşası önlenmiş olur.

Dosyayı indirmek için tıklayın.

kaynak: excel vba örnek dosyalar cdsi

Standart Dosya Planı Klasör Etiketi

2016-05-20T11:39:00.000-07:00

Başbakanlık Devlet Arşivler Genel Müdürlüğünün 08/02/2012 tarihli ve 867 sayılı yazısına istinaden yeniden düzenlenen örnek klasör sırtı etiketini aşağıdaki linklerden indirebilirsiniz
Not: klasorsirti.xls dosyası 3 sayfadan oluşuyor… ilk açtığınızda AÇIKALAMA bölümü çıkıyor… Açıklama sayfasının sol tarafında logolu ve logosuz iki sayfa bulunuyor.

Örnek dosya excel formatındadır

Etiket üzerindeki bilgiler Ek-3 formundan alınmıştır.

Standart Dosya Planını ile ilgili genel açıklamaya ait pp sunumu klasörün içindedir

Ayrıca Ek1- ve Ek-2 Zip dosyasının içinde mevcuttur

Güncellememiz halinede burada paylaşılacaktır.

Örnek dosya logolu ve logosuz olmak üzere iki sayfadan oluşmaktadır.

Tasarım basit ve sade renklerden oluşuyor. Rahat bir şekilde kendi zevkinize göre özelleştirebilirsiniz.
İndireceğiniz dosya zip formatındadır. Ek programa gereksinim duymadan açabilirsiniz

standartdosyaplani

Hatırlatmalı senelik takvim

2016-05-20T11:36:00.000-07:00

Bu örnekte takvim ve önemli günler hatırlatan makro kullanılmadan yapılan bir çalışmadır.
Excel’in kendi fonksiyonları ile yapılmıştır.
Çalışmanın özellikleri:

– 2015 senesine kadar dini ve resmi bayramları gösterir.
– İsteğin senenin günlerini haftalarını görmek mümkün.
– Hatırlatma yazıp takip etmek mümkün.

Nasıl Çalışıyor:

– Ekranın sol tarafındaki butona basarak seneler ileri veya geri değiştirilebilir.
– Hatırlatma yazmak için takvim sayfasındaki günün yanındaki noktalı yere tıklayın gittiğiniz ekranda hatırlatmanızı yazın.
– Hatırlatma gününe ilk … gün içersine giriyorsa ekran gösterir tıpkı tatiller olduğu gibi
– Noktalı alanlar link alanlarıdır mouse tıkladığınız da ilgili tarih veya hatırlatmaya götürür

Uyarı : Lütfen dosyayı kaydederken ismini değiştirmeyin değişiklik yaptığınız taktirde Excel dosyası istenildiği gibi çalışmayacaktır.

Takvim dosyasını indirmek için tıklayınız | direk link

kaynak: http://www.makrohesap.com/index.asp?PageID=32

Hizmet Yılı Hesaplama Programı

2016-05-20T11:33:00.001-07:00

2005 yılında hazırlamış olduğumuz hizmet yılı hesaplama programı. Program excel’de hazırlanmış olup halen çalışıyor. Açılışta makrolarn etkinleştirilmesi gerekiyor.
indirme linki
https://skydrive.live.com/redir?resid=33A8A15523CF733C!7508
http://sdrv.ms/K8V07f

Personel Özlük Bilgileri veri tabanı uygulaması

2016-05-20T11:30:00.000-07:00

Excelde Veri Tabani kayitlarinin nasil yapildigina ait bilgi edinebileceginiz bir uygulama, Bu uygulama sayesinde personellerinizin veya musterilerinizin bilgilerini gorebileceginiz, silebileceginiz, yeni kayit ekleyebileceginiz, ileri ve geri tuslari sayesinde personeller arasinda dolasabileceginiz, gelismis veri tabani imkani sunan bir uygulama.
ozlukbilgileri

Kaymakam Ödeneği

2016-05-20T11:25:00.002-07:00

Konunun müştemilatı hakkında bilgilerimizi tazelemek, bazı elle yapılan işlemleri otomatikleştirerek zamandan tasarruf edilmesi, farklı uygulamaların olabileceği ve ortak uygulama oluşumuna katkı sağlayabilirmiyiz düşüncesi, görselliği ve işlevselliğini beğenecek arkadaşlarımınızın kullanmak isteyebilecekleri Kaymakam ödeneği dosyası.

Dosyayı indirmek için tıklayınız… (güncellendi)