Excel arama yapılabilen liste kutusu

Excel arama yapılabilen liste kutusu

Excel liste kutusu

Excel list box

İçerisinde arama yapılabilen, basılan tuşlara göre veri listeleyen bir liste kutusu yapmak için temelde FİLTER fonksiyonundan yararlanıyoruz.

Türkçe ve İngilizce sürüm formül: =SIRALA(FİLTRE(B2:B99;ESAYIYSA(MBUL(FATURA!B8;B2:B99));"bulunmadı!"))

=SORT(FILTER(B7:B104;ISNUMBER(SEARCH(B1;B7:B104));"yok!"))

Office 365 gerekli. Personel verileri Tablo (table) yapılırsa yeni eklenenleri de alır.

 

https://youtu.be/m6EQmGKCQSg

 

 

 

Faruk Çubukçu - Bilgi Teknolojileri Danışmanlık www.farukcubukcu.com www.excelakademi.com

Excelde hızlanma teknikleri

Excelde işlemleri daha hızlı yapma Microsoft Excel(R) hızlanmanın en tipik çözümü kısayol tuşlarını bilmektir. Onun dışında birçok tekniği kullanabilirsiniz. Kısayol tuşları Hızlı erişim araç çubuğu Özel listeler Seçenekler (enter, intellisense, ..) Hızlı doldurma (flash fill) Tablo yapısı Ad kullanımı Formüllerin yazımı Çift tık, otomatik doldurma … Size bu yetenekleri kazandıracak diğer videolarım: Gelişmiş kullanımlar için gerekli temel videolar: Kısayol tuşları: https://youtu.be/EyUooOk5VJ8 AD TANIMLAMAK: https://youtu.be/XRtjDGyvwKM https://youtu.be/LrASIjZtJCg Tablo tanımı: https://youtu.be/9WYUWxI-8z0 https://youtu.be/kHDy_8DOoc8 https://www.youtube.com/watch?v=xKUYUFGVDis&feature=youtu.be https://youtu.be/zYZWX06nRNA Liste kutusu yapma: https://youtu.be/i3eYY0utDWc https://youtu.be/a5OAbQay11Q https://youtu.be/YXRQYGupVOQ https://youtu.be/4H0MYj3BbRU https://youtu.be/5Y1wYFx9l90 https://www.youtube.com/watch?v=xKUYUFGVDis&feature=youtu.be Dinamik alanlar: https://youtu.be/4H0MYj3BbRU https://youtu.be/Uup-NaMhw3E Koşullu biçimlendirme: https://youtu.be/CZGQHqwTll0 Pivot tablo oynatma listesi: https://www.youtube.com/watch?v=ko8VwthW0lc&list=PL3dc_-B83C8BmYZPhfcx4jeTp9DsixxF0

Excel uçucu / volatile fonksiyonlar

Excel uçucu fonksiyonlar

Excel volatile fonksiyonlar Excel ucucu işlevler ŞİMDİ(), BUGÜN(), RASTELEARADA, S_SAYÜRET HÜCRE(«dosyaadı») DOLAYLI, KAYDIR İngilizce sürümlerde: NOW(), TODAY(), RAND(), RANDBETWEEN(), CELL(“filename”), INDIRECT, OFFSET https://youtu.be/fFr6bl0jsEk

Excel kalite kontrol tablosu

Excel kontrol tablosu

Excel metni simgeye çevirmek

Excel durum değerlendirme

Özel biçim düzenlemesi için Hücreleri Biçimlendir (Format Cells) iletişim kutusunda Sayı (Number) bölümünden İsteğe Uyarlanmış (Custom) seçilir. Bu bölümde farklı veri türleri için özel karakterler kullanılarak biçimleme işlemleri yapılır.

İsteğe bağlı biçimlendirme (custom) konusunda yapılacak işlemler detaylı bir şekilde aşağıda ele alınmaktadır:

 

Temel Söz Dizimi

İsteğe uyarlanmış (custom) biçim düzenlemek için öncelikle bilmemiz gereken şey; özel biçimlemenin dört bölümden oluşan bir sözdizimi olduğudur:

 

Bu bölümlerin her biri belli türde veri için kullanılır ve aralarında noktalı virgül (;) ayracı yer alır. 

1. Bölüm	2. Bölüm	3. Bölüm
;	;	;
Pozitif Sayılar için	Negatif Sayılar için	Sıfır için
#.##0,00	-#.##0,00	0,00
[Mavi]#.##0,00_)	[Kırmızı]-(#.##0,00)	0,00
[Blue]#,##0.00_)	[Red]-(#,##0.00)	0.00
0,00_)	(0,00)
“GEÇER”	“GEÇERSİZ”	“ARADA”
“GEÇTİ”	“KALDI”
“İYİ”	“KÖTÜ”	“NORMAL”

 

Bir sütuna

1

-1

0

Yazarak durumları ifade ediyorsunuz.

Ardından özel biçimleme (Custom format) ile bu alan üzerinde;

“GEÇTİ”

“KALDI”

“ORTADA”

 

Diyorsunuz.

 

Ardından tabloda istediğiniz alanı seçip veri doğrulama (data validation) liste kutusu yapıyorsunuz. Kaynak alanı 1, -1, 0 yazan alan.

 

https://youtu.be/jyeX0nyLgAo

 

Excel kronometre

Excel kronometre

Excel vba kronometre

Excel kronometre

Excel vba ortamında bir zaman sistemi oluşturmaya çalıştım.

Geri sayım ve kronometre

Excel vba bileşenleri:

Application.OnTime (Erkenzaman, çalıştırılacak prosedür, engeçzaman, program)

 

Örnekler:

15 saniye sonra çalıştır:

Application.OnTime Now + TimeValue("00:00:15"), "kronometre"

 

Saat 16’da çalıştır:

Application.OnTime TimeValue("16:00:00"), "kronometre"

 

İşlemin iptali:

Application.OnTime EarliestTime:=TimeValue("16:00:00"), "kronometre", Schedule:=False

 

Otomatik başlatma:

Sub auto_open

Application.OnTime Now() + TimeValue("00:00:01"), "kronometre"

End sub

 

 

Yazdığım kodlar:

Sub kronometrebaslat()

Application.OnTime Now() + TimeValue("00:00:01"), "kronometre"

 

End Sub

 

Sub kronometredurdur()

Application.OnTime Now() + TimeValue("00:00:01"), "kronometre", , False

 

End Sub

 

Sub kronometre()

Sayfa2.Range("d5").Value = Time

Application.OnTime Now() + TimeValue("00:00:01"), "kronometre"

End Sub

 

 

 

Mevcut kodlar:

sub Saat_baslat()

 

Sayfa1.Range("h3").Value = 0

 

Application.OnTime Now() + TimeValue("00:00:01"), "Saatdevam"

 

End Sub

 

 

Sub Saat_durdur()

 

Application.OnTime Now() + TimeValue("00:00:01"), "Saatdevam", , False

 

End Sub

 

Sub Saatdevam()

On Error Resume Next

 

 'Application.EnableEvents = False

 

If Sayfa1.Range("e17").Value Then

 

 

   If Sayfa1.Range("d5").Value = 0 Then

   MsgBox "SÜRE BİTTİ"

   Exit Sub

   End If

  

   Sayfa1.Range("d5").Value = Range("d5").Value - TimeValue("00:00:01")

 

   Application.OnTime Now() + TimeValue("00:00:01"), "Saatdevam"

     

Else

 

  Sayfa1.Range("a1").Value = Time

  Sayfa1.Range("d5").Value = Sayfa1.Range("a1").Value

 

  Application.OnTime Now() + TimeValue("00:00:01"), "Saatdevam"

 

  Application.OnTime Now + (TimeValue("00:00:01") / 1000), "degerartir"

 

End If

 

 'Application.EnableEvents = True

 

End Sub

 

Sub degerartir()

 

' kronometre için bir artırma sistemi

 

 Sayfa1.Range("h3").Value = Sayfa1.Range("h3").Value + 1

 

End Sub

 

 

https://youtu.be/-V0P4IWE7_c