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:

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

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.