Excel vba

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

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 )

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)

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])

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

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

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

Excel sayfa koruma kodları

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

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

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

Tarihler arasına noktayı otomatik yazdırmak

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

Standart Dosya Planı Klasör Etiketi

ÖRNEK DOSYALAR CD'Sİ

Sosyal Bağlantılar

Kategoriler

Popüler Yayınlar

Rastgele