Dosya

(47) Excel de, ilgili hücreye "Evet" yazıldığında, satırda istenilen hücreler renklensin. 
(İstediğin hücre aralığıdır. "Evet" veya herhangi bir alfa numerik karakter içerik olarak kullanılabilir")
Excel/ Giriş sekmesine tıkla.

1. Adım:
Koşullu biçimlendirme/ Yeni Kural/ Biçimlendirilecek hücreleri belirlemek için formül kullan
(Hücreye tıkla= sonrasında tırnak içinde kelimeni yaz) =$A$2="Evet" Biçimlendir/ Dolgu rengi ata / Tamam.

2.Adım:
Koşullu biçimlendirme/ Kuralları yönet/ İlgili kuralı seçip, Uygulama hedefi butonuna tıkla.

Şart gerçekleştiğinde (A2 hücresine "Evet" yazıldığında), A2:F2 arası dolgu kuralı gerçekleşmesi için; İstenilen alanı seç, sonrasında seçim butonuna tıkla.

"Tamam" butonuna basarak kural güncellemesini tamamlayın.

Böylelikle, "Evet" yazılan hücre ile istenilen alanın boyanmasını sağlanır. "Evet" kelimesi silindiğinde, arka plan rengi otomatikman kalkar. 

Bu özellik, kontrol ederek ilerlenen listelerde çok büyük kolaylık ve farkındalık sağladığı, uygulanan işlem ve tecrübelerle sabittir. (Kural olarak belirlenen; Sayı, harf veya kelimelerle, istenildiği kadar hücre veya alan biçimlendirme işlemlerini gerçekleştirebilirsiniz.


(46) Excel de, Tıkladığın SATIR ve SÜTUN boyansın (İstediğin kadar hücre alanı ve Renge) 
Veri kontrol aşamasında, Satır kaydırma aşamasını minimize eder.

(Çalışma sayfası üzerinde Sağ klik/ Kod görüntüle, Açılan boş sayfaya aşağıdaki (Yeşil) kodu kopyala yapıştır. Kaydetmeden açılan sayfa ve kod sayfasını kapat.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.ColorIndex = 4
    Range(Cells(1, Target.Column), Cells(10, Target.Column)).Interior.ColorIndex = 4
End Sub

Not: Kodun sonundaki kod ile renk seçimi yapılır. Koda göre Renk kodları


(45) Excel de, Tıkladığın satır yeşile boyansın (İstediğin kadar hücre alanı ve Renge) 
Veri kontrol aşamasında, Satır kaydırma aşamasını minimize eder.

(Çalışma sayfası üzerinde Sağ klik/ Kod görüntüle, Açılan boş sayfaya aşağıdaki (Yeşil) kodu kopyala yapıştır. Kaydetmeden açılan sayfa ve kod sayfasını kapat.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone 'Renkleri temizle
    Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.ColorIndex = 4
    'Başlangıç Sütun No,Renk çubuğu uzunluğu-hücre adeti, Renk no 4(Yeşil)
End Sub

Not 1: 
Makro içermeyen çalışma kitabı olarak kaydetmeye devam etmek için, Evet tıklayın. (Evet derseniz, Excel "xlsx" olarak kaydeder. (Hayır derseniz, Dosya adı ve Kayıt türü belirir, Kayıt türünü "Makro içeren çalışma kitabı (xlsm" seçmeniz gerekir) Aradaki fark, Makro seçtiğinizde devam eden bir çalışmada yeniden defalarca kodu yapıştırma durumunda kalmazsınız. Excel formatında ise kod, her çalışmada yeniden yapıştırılmalı. 

Diğer bir husus, renklenecek satır alanı. (Kodda 3 farklı rakam bulunur.) Birinci rakam, renklendirmenin başlayacağı Sütun numarasını; İkinci rakam; renklendirmenin biteceği Sütun numarasını ifade eder. Örnek; (A dan D ye kadar renklendirmek için İlk rakam 1, ikinci rakam 4 seçilir) Kod satırındaki son rakam boyanacak rengi ifade eder. Numara değiştikçe satır rengi değişir. Renk kodları


(44) Html Renk Kodları
Html sayfa ve tablolarda kullanılabilir tüm renkler ve kodlar, aşağıdaki linktedir.

(43) Excel Makro (Gizli Sütunları göster) :
(Çalışma sayfası üzerinde Sağ klik/ Kod görüntüle, Açılan boş sayfaya aşağıdaki (Yeşil) kodu kopyala yapıştır. "F5" tuşuna bas.) Excel üzerine açılan "2" adet VB geliştirici sayfasını "x" bas kapat.
Sub GizliSutunlariGoster()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Columns.Hidden = False
    Next ws
End Sub

(42) Excel Makro (Gizli Satırları göster) :
(Çalışma sayfası üzerinde Sağ klik/ Kod görüntüle, Açılan boş sayfaya aşağıdaki (Yeşil) kodu kopyala yapıştır. "F5" tuşuna bas.) Excel üzerine açılan "2" adet VB geliştirici sayfasını "x" bas kapat.
Sub GizliSatirlariGoster()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Rows.Hidden = False
    Next ws
End Sub


(41) Excel, "Eğer, VE" ile iki mantıksal sınamalı formül;
Eğer değer "1'den büyük ve 80 den küçükse" (1-80 arasındaysa) "Fatura 1-80 TL" metnini, değilse "0" değerini yazsın.
=EĞER(VE($E2>1;$E2<80);"Fatura 1-80 TL";0)

(40) Excel, Hücrede iki aralık arasındaki kelimeleri bulma;
Örnek1 : A sütununda, A2 hücresinde bulunan, "064118-LP-279" metnin içinde, 
"-" ile başlayıp, "-" ile biten aralıkta bunan, her kelimeyi getirmesini sağlayabilirsiniz. 
=PARÇAAL(A2;MBUL("-";A2)+1;MBUL("-";A2;MBUL("-";A2)+1)-MBUL("-";A2)-1)

Teknik açıklama: 
A2 hücresindeki metinden ilk ve ikinci tire karakterleri arasındaki metni çıkarır. 
(İlk tire (-) karakterinden sonraki metin içindeki ikinci tire (-) karakterinin konumundan ilk tire karakterinin konumunu çıkarır ve 1 çıkarır. Bu işlem, ilk ve ikinci tire karakterleri arasındaki karakter sayısını verir. 

Örnek:


(39) Excel, Hücrede ilgili kelime bulma;
Örnek1 : A sütunundaki bilgiler için, A2 hücresinde bulunan, "064118-LP-279" içinde "LP" bulunanları tespit edip, formül girilen hücreye, LP (İstenilen her şey yazdırılabilir. Eşit, Mevcut vb." yazılması için;
=EĞER(MBUL("LP";A2);"LP";" ") Eşleşme yoksa, hücre boş görünür. (Son tırnak arası boş bırakıldığı için)

Örnek2 : A sütunundaki bilgiler için, A2 hücresinde bulunan, "064118-PC-279" içinde "PC" bulunanları tespit edip, formül girilen hücreye, PC (İstenilen her şey yazdırılabilir. Eşit, Mevcut vb." yazılması için;
=EĞER(MBUL("PC";A2);"PC";" ") Eşleşme yoksa, hücre boş görünür. (Son tırnak arası boş bırakıldığı için)

Örnek3 : Sonuç olumlu veya olumsuz ise metin yazdırma
=EĞER(MBUL("LP";A2);"LP";"LP bulundu"; "bulunamadı")) Sonuç varsa, "LP bulundu", sonuç bulamazsa "bulunamadı" yazar.


(38) Excel, Otomatik Sıra Numarası Ekleme;
Formül İlk Sıraya yazılıp köşesine çift tıklanır. $ simgesi (F4) tuşu ile sabitlenen hücre, Sıra no başlığı
=SATIR()-SATIR($A$1)


(37) Excel, Çubuk grafik oluşturma;
İsim, Değer, Değer kadar çubuk (Yazı font ve renk seçimleri ile, kontrol edilebilir grafik etkisi veriyor. Test edilen örnek fontlar; (Britannic Bold, Haettenschweiler, Playbill, Stencil)
=YİNELE("|";B1)



(36) Excel, Pratik Yaş Hesabı;
YILORAN iki tarih (başlangıç_tarihi ile son_tarih) arasındaki tam günlerin sayısını gösteren yıl kesrini verir. A2 değeri - D.Tarihi, Bugün - Şimdiki Tarih "3 değeri, Yılın 365 Gün olarak alınmasını sağlar."
Yaş Hücre Biçimi "Sayı", Ondalık basamak sayısı "2" olarak ayarlanmalıdır.
=YILORAN(A2;BUGÜN();3)


(35) Excel Makro (Sütun genişlikleri, hücre içeriğine göre Otomatik ayarlansın);
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.EntireColumn.AutoFit
End Sub


(34) Excel Makro (Satır genişlikleri, hücre içeriğine göre Otomatik ayarlansın);
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.EntireRow.AutoFit
End Sub


(33) Excel Makro (Kopyala, Yapıştır, Kes) engelle;
Hücre üzerinde kısa yollarla; "Kopyala, Yapıştır veya Kes" işleminin makro ortamında engellemek için.
Sub auto_open()
ActiveWorkbook.RefreshAll
Application.OnKey "^{c}", "" 'Copy
Application.OnKey "^{v}", "" 'Paste
Application.OnKey "^{x}", "" 'Cut
End Sub


(32) Excel, İç içe "Eğer" kullanımı;
Hücrede (YÜKSEK) yazılıysa 1, (ORTA) yazılıysa 2, (DÜŞÜK) yazılıysa 3 değerini al, yoksa bir şey yapma.
=EĞER(B3="(YÜKSEK)";"1";EĞER(B3="(ORTA)";"2";EĞER(B3="(DÜŞÜK)";"3";"")))


(31) Excel hücreleri içindeki kelimeleri sayma;
"N2 ile N188 hücreleri arasında "Evet" yazılmış kaç hücre var?" (Sadece dolu hücre ve "Evet" olanlar)
=ÇOKEĞERSAY(N2:N188;"Evet")


(30) Excel dosyası içindeki sayfaları, ayrı ayrı Excel dosyalarına ayırma/bölme!
"C:\" dizini altına "Bol" klasörü oluşturun. İçerisine Excel dosyasını kopyalayıp adını "Bol.xlsx" yapın. (Dosya uzantısı ve tanım yeri sabitlendiği için)

"C:\Bol\Bol.xlsx" klasörünü, çift tıklayarak çalıştırın. Excelin alt sekmelerinde bulunan Sayfalardan herhangi birisinin üzerinde Sağ klik/ Kod görüntüle, Açılan boş sayfaya aşağıdaki (Yeşil) kodu kopyala ve yapıştır. 
Sonra, klavyenin üst kısmında bulunan F5 tuşuna bas. 

İşlem bitince "Bol.xlsx" dosyası kapanır. "C:\Bol\" klasörü otomatik olarak açılarak, oluşan dosyalar görünecektir. 

Sub bol()
Dim ac
On Error Resume Next
ac = Shell("Explorer /e,/root,C:\Bol", 1)
AppActivate ac
On Error GoTo 0
Windows("Bol.xlsx").Activate
Dim Fpath As String
Fpath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Sheets
ws.Copy
Application.ActiveWorkbook.SaveAs Filename:=Fpath & "\" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
ActiveWorkbook.Save
Application.Quit
End Sub



(29) Excel -- Excel hücrelerinde yıldız koyarak bilgi gizlemek
Ortası gizli - =BİRLEŞTİR(SOLDAN(A16;2);YİNELE("*";UZUNLUK(A16)-2))
Sonu gizli - =BİRLEŞTİR(SOLDAN(A9;2);YİNELE("*";UZUNLUK(A9)-2))

(28) Excel -- Kelime veya Cümlelerin Sadece ilk harfini büyük yapma işlemleri
İlk harfi Al  "SOLDAN(A1;1)"
İlk harfi Büyük yap "BÜYÜKHARF(B1)"
İlk harf hariç sağdakilerin hepsini seç "SAĞDAN(A1;UZUNLUK(A1)-1)"
İlk büyük harf ile Sonrasını birleştir  "BİRLEŞTİR(C2;D2)"


(27) Excel belirli bir karakterden Sonrasını alma formülü. Örnek Karakter"-"
"=SAĞDAN(A1;UZUNLUK(A1)-BUL("-";A1))"
2.Yöntem;
Verinin olduğu sütun seç/ Veri/ Metni Sütunlara Dönüştür/ İleri/ Diğer seçimi ve pencere içine "-" koy/ İleri/ Son

(26) Excel belirli bir karakterden Öncesini alma formülü. Örnek Karakter"-"
"=SOLDAN(A1;BUL("-";A1)-1)"


(25) Excel - Bir metinde "" içinde geçen IP adresini alalım. 
Örnek: Veri A  Sutununda, B Sütuna ilk formül, C Sütununa ikinci formül ile sonucu alalım.
B1 hücresine; =SAĞDAN(A1;UZUNLUK(A1)-BUL("""";A1))
C1 hücresine; =SOLDAN(B1;BUL("""";B1)-1)
(İlk formülde Tırnak işaretiyle başlayan veriyi aldık, ikinci formülle ilk formülde yer alan ikinci tırnak öncesini almasını istedik. Böylelikle IP bilgisini metin ve simgelerden kurtarmış olduk.

Örnek2: 11th Gen Intel(R) Core(TM) i5-1135G7 @ 2.40GHz
İşlemci bilgisini almak istiyoruz. Tırnak boşluk i5- Tırnak
 =SAĞDAN(B2;UZUNLUK(B2)-BUL(" i5-";B2)) Sonuç: i5-1135G7 @ 2.40GHz


Ardından diğer hücre; =SOLDAN(C2;2) Sonuç: i5


(24) Excel Hücre içerik sonu hizalı ":" ekleme:
Hücre sağ klik/ Hücreleri Biçimlendir/ İsteğe Uyarlanmış/@* ":" / Tamam


(23) Tüm dosya türlerini, uzantı türüne göre klasör oluşturarak taşıma.
Dosyalarınızı arşivleyip ihtiyaç halinde de hızlıca erişmek düzen ister. Tek tek uğraşmak yerine Otomatize edin. İndirdiğiniz "bat" uzantılı dosyayı, düzenlemek istediğiniz klasörlere kopyalayıp çift tıklamanız yeterli. (Ör: jpg, xls, xlsx, bmp, txt, pptx.. gibi) Uzantılarına göre klasörler oluşturarak ilgili belgeleri klasörlere taşır. İndirmek için Tıklayın.

Veya, Bir not defteri açarak aşağıdaki kodu (yeşil) yapıştırın, uzantıyı bat olarak kaydedin. (Dosya farklı kaydet, isim fark etmez, uzantıyı "txt" silip "." dan sonra "bat" yazın. Dosya türünü, Tüm dosyalar olarak seçin) Bu bat dosyasını, hangi klasör içinde düzen istiyorsanız oraya kopyalayıp yapıştırın ve sadece çalıştırın. (Uzantılarına göre tüm dosyalar ayrı ayrı klasörlerde gruplanacaktır)

@echo off

for %%a in (".\*") do (
if "%%~xa" NEQ "" if "%%~dpxa" NEQ "%~dpx0" (
if not exist "%%~xa" mkdir "%%~xa"
move "%%a" "%%~dpa%%~xa\"
)
)


(22) Excel içeriğinde istenen kadar sayı üretmeyi sağlayan bir makro. 
"A1" hücresinde "1" değeriyle başlatıp, "D2" hücresine yazılan değer ile Ör: "10" 1 den başlayıp 10'a kadar artan bir sayı üretir. (Bu ne işimize yarar; Misal 10 adet çoğaltmak istediğimiz ya kopya değeri B1 hücresine yazınca çoğaltır) Çalışması: (D2 değerine yazılan değer kadar, A1 den A10 a sayı üretti, B1 hücresinin solunda değer olduğundan) B1 yaz köşesine çift tıklama ile, Soldaki sayı kadar aynısını çoğaltan kopya değer elde ederiz) Sonrasında oluşan değerlerimizi çalışma değerimize kopyalayabiliriz. (Bu değer üretimi, 10.000, 50.000 gibi bir değer üretme test işleminde can kurtarıcı olacaktır. Kullanımı: Makro oluştur. Makro adı "sayiYazdir" sonra kodu yapıştır. Kodu Metin olarak indirmek için Tıklayın. 
Makroyla hazırlanmış olan Excel dosyası olarak indirmek için Tıklayın.

(21) Excel içeriğindeki sayıları Metne çevir. 
Alt+F11 / Inser/ Module kodu yapıştır.
Formul olarak "yaz() hücre seçimi ile Sayıyı metne çevir. Örnek: 1234 "Bin iki yüz otuz dört"
Kodu Metin olarak indirmek için Tıklayın.

(20) Excel belgelerinin Şifresini kırma 
(Makro çalışması dosya olarak hazırlanmıştır.) İndirebilirsiniz.
Açılışta İlgili Excel dosyanızı seçmenizi ister, İşlemi gerçekleştirip Makroyu kapatır.
İlgili Excel dosyasının bir kopyasını alarak sonuna "Gün-Ay-Yıl-Saat-Dakika-Saniye" ekleyerek isimlendirir. Oluşan dosya, İşlem gerçekleştirilen Excel dosyasının bulunduğu konumdadır.

Kendimiz Makro çalışması hazırlayalım;
Yeni bir Excel sayfası açın, Excel sekmelerinden herhangi bir sayfa üzerinde sağ klik, Açılan listeden Kod görüntüle tıkla, sonra açılan sayfaya, Aşağıdaki kodu kopyalayıp (yeşil) yapıştırın. "Ctrl +S" tuşuna basın. "Farklı kaydet" sayfası açılır. Konum olarak pencere solundan "Masaüstü" tıkla, ardından Dosya ismini "Open" yaz, kayıt türü kısmında "Makro içerebilen Excel Çalışma kitabı (*.xlsm) seç ve Kaydet butonuna tıkla. Ardından, Tüm pencereleri çarpıya basarak kapat.

Masa üstündeki Open.xlsm dosyasını çift tıklayarak aç, "Alt + F8" tuşuna bas. açılan pencerede yer alan "Çalıştır" butonuna tıkla. (Yeni bir pencere açılır.) Bu seçim penceresi ile şifreli Excel dosyanızı seçin ve "Tamam" butonuna tıklayın. Pencereler kapanacaktır. Şifreli dosyanın bulunduğu klasörde, dosya  adına ek, zaman ifadesi olan Şifresi kırılmış Excel dosyası elde edilir.

Sub auto_open()
'auto_open Makro
'https://muhammedyusufolgun.blogspot.com (Deneyim)
'Open dialog box to select a file
Set DialogBox = Application.FileDialog(msoFileDialogFilePicker)
DialogBox.AllowMultiSelect = False
DialogBox.Title = "Sifreli Excel dosyasini secin"

If DialogBox.Show = -1 Then
    sourceFullName = DialogBox.SelectedItems(1)
Else
    Exit Sub
End If

'Get folder path, file type and file name from the sourceFullName
sourceFilePath = Left(sourceFullName, InStrRev(sourceFullName, "\"))
sourceFileType = Mid(sourceFullName, InStrRev(sourceFullName, ".") + 1)
sourceFileName = Mid(sourceFullName, Len(sourceFilePath) + 1)
sourceFileName = Left(sourceFileName, InStrRev(sourceFileName, ".") - 1)

'Use the date and time to create a unique file name
tempFileName = "Temp" & Format(Now, " dd-mmm-yy h-mm-ss")

'Copy and rename original file to a zip file with a unique name
newFileName = sourceFilePath & tempFileName & ".zip"
On Error Resume Next
FileCopy sourceFullName, newFileName

If Err.Number <> 0 Then
    MsgBox "Unable to copy " & sourceFullName & vbNewLine _
        & "Check the file is closed and try again"
    Exit Sub
End If
On Error GoTo 0

'Create folder to unzip to
zipFilePath = sourceFilePath & tempFileName & "\"
MkDir zipFilePath

'Extract the files into the newly created folder
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(zipFilePath).CopyHere oApp.Namespace(newFileName).items

'loop through each file in the \xl\worksheets folder of the unzipped file
xmlSheetFile = Dir(zipFilePath & "\xl\worksheets\*.xml*")
Do While xmlSheetFile <> ""

    'Read text of the file to a variable
    xmlFile = FreeFile
    Open zipFilePath & "xl\worksheets\" & xmlSheetFile For Input As xmlFile
    xmlFileContent = Input(LOF(xmlFile), xmlFile)
    Close xmlFile

    'Manipulate the text in the file
    xmlStartProtectionCode = 0
    xmlStartProtectionCode = InStr(1, xmlFileContent, "<sheetProtection")

    If xmlStartProtectionCode > 0 Then

        xmlEndProtectionCode = InStr(xmlStartProtectionCode, _
            xmlFileContent, "/>") + 2 '"/>" is 2 characters long
        xmlProtectionString = Mid(xmlFileContent, xmlStartProtectionCode, _
            xmlEndProtectionCode - xmlStartProtectionCode)
        xmlFileContent = Replace(xmlFileContent, xmlProtectionString, "")

    End If

    'Output the text of the variable to the file
    xmlFile = FreeFile
    Open zipFilePath & "xl\worksheets\" & xmlSheetFile For Output As xmlFile
    Print #xmlFile, xmlFileContent
    Close xmlFile

    'Loop to next xmlFile in directory
    xmlSheetFile = Dir

Loop

'Read text of the xl\workbook.xml file to a variable
xmlFile = FreeFile
Open zipFilePath & "xl\workbook.xml" For Input As xmlFile
xmlFileContent = Input(LOF(xmlFile), xmlFile)
Close xmlFile

'Manipulate the text in the file to remove the workbook protection
xmlStartProtectionCode = 0
xmlStartProtectionCode = InStr(1, xmlFileContent, "<workbookProtection")
If xmlStartProtectionCode > 0 Then

    xmlEndProtectionCode = InStr(xmlStartProtectionCode, _
        xmlFileContent, "/>") + 2 ''"/>" is 2 characters long
    xmlProtectionString = Mid(xmlFileContent, xmlStartProtectionCode, _
        xmlEndProtectionCode - xmlStartProtectionCode)
    xmlFileContent = Replace(xmlFileContent, xmlProtectionString, "")

End If

'Manipulate the text in the file to remove the modify password
xmlStartProtectionCode = 0
xmlStartProtectionCode = InStr(1, xmlFileContent, "<fileSharing")
If xmlStartProtectionCode > 0 Then

    xmlEndProtectionCode = InStr(xmlStartProtectionCode, xmlFileContent, _
        "/>") + 2 ''"/>" is 2 characters long
    xmlProtectionString = Mid(xmlFileContent, xmlStartProtectionCode, _
        xmlEndProtectionCode - xmlStartProtectionCode)
    xmlFileContent = Replace(xmlFileContent, xmlProtectionString, "")

End If

'Output the text of the variable to the file
xmlFile = FreeFile
Open zipFilePath & "xl\workbook.xml" & xmlSheetFile For Output As xmlFile
Print #xmlFile, xmlFileContent
Close xmlFile

'Create empty Zip File
Open sourceFilePath & tempFileName & ".zip" For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1

'Move files into the zip file
oApp.Namespace(sourceFilePath & tempFileName & ".zip").CopyHere _
oApp.Namespace(zipFilePath).items
'Keep script waiting until Compressing is done
On Error Resume Next
Do Until oApp.Namespace(sourceFilePath & tempFileName & ".zip").items.Count = _
    oApp.Namespace(zipFilePath).items.Count
    Application.Wait (Now + TimeValue("0:00:01"))
Loop
On Error GoTo 0

'Delete the files & folders created during the sub
Set FSO = CreateObject("scripting.filesystemobject")
FSO.deletefolder sourceFilePath & tempFileName

'Rename the final file back to an xlsx file
Name sourceFilePath & tempFileName & ".zip" As sourceFilePath & sourceFileName _
& "_" & Format(Now, "dd-mmm-yy h-mm-ss") & "." & sourceFileType

ActiveWorkbook.Save
Application.Quit

End Sub


(19) Bilgisayar Açılışında "Numlock tuşu" Açık Olsun
Bu ayar ile, Bilgisayarınızı açtığınızda parolanızı girerken, sayı kısmını girerken "numlock" tuşuna basmayı unutma gibi sorunlar yaşamadan, sayı tuş takımını sorunsuz kullanabilirsiniz. Detaylar için Tıklayınız.

(18) TO Do List - Excel üzerinde, şablon dosya olarak hazırlanmıştır. İndirebilirsiniz.

(17) Doğum günü / Çalışma prim günü / İki tarih arası süre hesaplama "Excel formülü"  
Konuyla ilgili açıklayıcı sayfaya ulaşmak için, Tıklayınız.
Geçen Süre ve Hedef Süre sayaçları ile ilgili bir çalışma yapıldı. Rar formatında da, indirebilirsiniz.

Doğum Günü, hesaplama
İster doğum günü, İster prim günü hesaplamak olsun. Yıl, Ay Gün hesabını kağıt kalem kullanmadan Excel formülü ile gerçekleştirebilirsiniz.
İşlem adımları:
1) Excel sayfası açın. 
2) "A1" hücresine doğum gününüzü girin. (Tarih)
3) "B1" hücresine aşağıdaki formülü kopyalayıp yapıştırın. (Bugünün Tarihi)
=ETARİHLİ(A1;BUGÜN();"Y")&" Yıl "    & ETARİHLİ(A1;BUGÜN();"YM")&" AY "   & ETARİHLİ(A1;BUGÜN();"MD") & " Gün"

İki Tarih Arası (Yıl, Ay, Gün) Çıkarma:
1) A1 Hücresine Tarihi gir. (Tarih)
2) B1 Hücresine 2.Tarihi gir (Bugünün Tarihi)
3) C1 Hücresine Formülü yapıştır.
=ETARİHLİ(A1;B1;"Y")&"Yıl "    & ETARİHLİ(A1;B1;"YM")&"Ay "   & ETARİHLİ(A1;B1;"MD") & "Gün"


(16) Mp3 Dosyalarını birleştirip Tek bir Mp3 dosyası yapmak için, Tıklayınız.

(15) Cd veya DVD leri iso olarak saklayın. - Tıklayınız.
  
(14) İso USB bellekten İso dosya oluşturma/Klasörden iso oluşturma - Tıklayınız.

(13) Excel: Garanti Takip ve Talep Belirleme Formülü. İlgili dosyayı İndirmek için Tıklayınız.

(12) Bilgisayarınızın 30 dakika sonra kapanması için, ilgili dosyayı indirin. Tıklayınız.
(11) Bilgisayarınızın 60 dakika sonra kapanması için, ilgili dosyayı indirin. Tıklayınız.
(10) Bilgisayarınızın kapanmasını iptal etmek için, ilgili dosyayı indirin. Tıklayınız.

(9) USB portlarını, "Usb flash bellek" kullanımına açmak için, "USB_Ac.reg" bağlantısına Tıklayınız.

(8) USB portlarını, "Usb flash bellek" kullanımına kapatmak için, "USB_Kapat.reg" bağlantısına, Tıklayınız.

(7) "Resime_dosya_gizle.bat" dosyasını indirmek için, Tıklayınız.
      (Daha fazla detay için tıklayın.)

(6) Windows 10'da Parola unutma, (Komut isteminde, Utilman yerine Cmd dosyası oluşturma) Bat dosyasını indirmek için, Tıklayınız.

(5) Windows 10'da Parola unutma, (Yeni kullanıcı ve şifre belirleyerek oturum açabilme) Bat dosyasını indirmek için, Tıklayınız.

(4) Cep Telefonu ile, Outlook mail ile bilgisayarınızı kilitleyin. (Windows+L) CMD komutlarıyla oturumu kilitle. Bat dosyasını indirmek için, Tıklayınız.

(3) Cüz, Hatim Takibi. Excel de hazırlanmış dosyayı indirmek için, Tıklayınız.

(2) Windows 10 Fotoğraf Görüntüleyici "viewer.reg" oluşturma. hazırlanmış dosyayı indirmek için, Tıklayınız.

(1) Origami ile Zarf  yapalım.
A4 kağıdı olması yeterli. Kesmeden yapıştırmadan, sadece katlama sanatı ile...
İçinde tüm adımlar fotoğraflandı. Zarf üzerinde ve içindeki mesajlar içinde İndirilebilir şablon oluşturuldu.  
Detaylar için Tıklayınız.