Excel'de Liste kutusu yapmak

https://youtu.be/81w-02lxUPM

Liste kutusu işlemleri

' 1. değişkenlerimizi tanımlayalım.

' 2. Option Explicit

' 3. Liste kutularını dolduralım

' 4. Seçilenleri toplayalım.

' 5. Seçilenlerin gösterelim ya da bir yere yazalım.

Option Explicit

Dim Liste As String

Dim i As Integer

Dim sonsatir  As Integer

Dim SecilenEleman As String

Dim SecilenElemanlar As String

Private Sub ListeKutulariniDoldur_Click()

'  liste kutularını doldur

Dim satir As Integer

Liste1Lst.Clear

sonsatir = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row

For satir = 3 To sonsatir

Liste1Lst.AddItem Sheets("Data").Cells(satir, 1)

Next

 End Sub

Sub Kaydet()

Dim satir As Integer

   Dim i As Integer

  

' seçileni bul

         For i = 0 To Liste1Lst.ListCount - 1

          If Liste1Lst.Selected(i) Then

              SecilenElemanlar = SecilenElemanlar & Liste1Lst.list(i)

          End If

      Next i

MsgBox SecilenElemanlar

End Sub

Yeni Excel videoları

Video 2021: Liste Kutusu Yapmak - Tek ve çok seçimli, İlişkili, Activex, VBA, Çok Sütunlu
Normal liste kutusu
İlişkili Liste Kutusu
Form Liste Kutusu
Activex Liste Kutusu
Çok Seçmeli Liste Kutusu
VBA Programlama İle Doldurulan Liste Kutusu


www.excelci.com

ListBox kullanımı (ActiveX)

Lisbox'ı temizleme:

ListBox1.Clear

Eleman ekleme: Bir sayfadaki satırlardan döngü ile

For satir = 3 To sonsatir
ListBox.AddItem Sheets("Datafc").Cells(satir, 1)
Next




Seçilen elemanı bulmak:

ListBox1.Selected(i)


Seçilen elemanın sırası:

ListBox1.ListIndex

Seçimlerini temizleme:

Listbox1Value = ""

EXCEL VBA son satırı bulmak

Bir sayfanın sonuna bir satır yazacaksınız. Son dolu satır neresi? Bunu bulmak için farklı kullanımlar olabilir:

En tipik olanları şunlar:

SONSATIR = WorksheetFunction.CountA(Range("A:A"))

SONSATIR = Range("A1").End(xlDown).Row '(Bir yerden aşağı doğru sayarak)

SONSATIR = Range("A" & Rows.Count).End(xlUp).Row  ' (sayfanın en sonundan yukarı gelerek)



MsgBox SONSATIR

Excel'de bir formül en fazla 8192 karakter olabiliyormuş.

Excel'de bir formül en fazla 8192 karakter olabiliyormuş. Bunu biliyor muydunuz?

=EĞER(AND(F9>0;F9<150;B9=$A$3);F9*$B$3;EĞER(AND(F9>0;F9<150;B9=$A$4);F9*$B$4;EĞER(AND(F9>0;F9<150;B9=$A$5);F9*$B$5;EĞER(AND(F9>0;F9<150;B9=$A$6);F9*$B$6;EĞER(AND(F9>=150;B9=$A$3);(150*$B$3 ) + ((F9-150 )*$C$3   );EĞER(AND(F9>=150;B9=$A$4);( 150*$B$4   ) + ( ( F9-150  )  *$C$4   );EĞER(AND(F9>=150;B9=$A$5);(150*$B$5 )  +  ( ( F9-150 )  *  $C$5  );EĞER(AND(F9>=150;B9=$A$6);(  150*$B$6    ) + ( ( F9-150  ) *$C$6 )))))))))

=IF(AND(F9>0;F9<150;B9=$A$3);F9*$B$3;IF(AND(F9>0;F9<150;B9=$A$4);F9*$B$4;IF(AND(F9>0;F9<150;B9=$A$5);F9*$B$5;IF(AND(F9>0;F9<150;B9=$A$6);F9*$B$6;IF(AND(F9>=150;B9=$A$3);(150*$B$3 ) + ((F9-150 )*$C$3   );IF(AND(F9>=150;B9=$A$4);( 150*$B$4   ) + ( ( F9-150  )  *$C$4   );IF(AND(F9>=150;B9=$A$5);(150*$B$5 )  +  ( ( F9-150 )  *  $C$5  );IF(AND(F9>=150;B9=$A$6);(  150*$B$6    ) + ( ( F9-150  ) *$C$6 )))))))))

EĞER (IF) fonksiyonu yazamıyorsak

EĞER (İNGİLİZCE IF) Fonksiyonunu mantıksal sınamalarla işlem yapmak için mutlaka bilmemiz gereken bir fonksiyon. Şundan büyükse, şuna eşitse ya da şu aralıktaysa gibi. Ama EĞER yazılamıyorsa birçok nedeni olabilir.
1. Konuya hakim değiliz demektir. Ne durumda ne olacak onu net olarak bilmek gerekir.
2. EĞER fonksiyonunun yapısını iyi bilmememizden dolayı yazamıyoruz olabilir. Genel olarak fonksiyonları ve eğer fonksiyonunun kullanımını mümkünse Fx sihirbazından adım ve iç içe yazmayı bilmek gerekir.
3. Yazılanı test etmek.
4. Birçok konuda eğerli senaryolara hakim olmak gerekir.
5. Gerektiğinde iç içe ya da VE ile birlikte yazabilmek gerekir.