Teşekkürler Muzaffer Ali bey .
Listbox'a verileri alırken İmleç aktif satırın A sütununda. Listbox'a almadı. Örnek dosyayı ekledim.
Önce 4 adet combobox dan veriler seçilecek. Seöildikten sonra imleç hangi kişi seçili ise o kişinin A sütunundaki hücreye konumlanıyor.
o işlemden sonra...
...ListBox1.ColumnCount = 3
For Bak = 14 To Cells(1, Columns.Count).End(xlToLeft).Column Step 3
ListBox1.AddItem Cells(1, Bak)
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(1, Bak + 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(1, Bak + 2)
Next
End Sub
Veysel Emre bey Yukarıdaki kodlar güzel çalışıyor ancak ben tümünü göstertmek için checkbox ekledim ve ona "Tümü" yazdım onu nasıl bu formüle uygulayabiliriz tümü dediğimde diğer checkboxlardaki işaretlerin kalkması gerekiyor
...listele()
With ListBox1
.List = lst
If CheckBox1.Value Or CheckBox2.Value Or CheckBox3.Value Then
For i = .ListCount - 1 To 0 Step -1
If Not ((CheckBox1.Value And .List(i, 7) = CheckBox1.Caption) Or _
(CheckBox2.Value And...
...= "YeniSayfa"
atla1:
'If Err.Number = 1004 Then MsgBox "Bilgi : " & cvlf & "Sayfa zaten mevcut. ", vbInformation, ""
For i = 0 To ListBox5.ListCount - 1
For a = 0 To ListBox5.ColumnCount - 1
With Sheets("YeniSayfa")
.Cells(i + 2, a + 1).Value = ListBox5.List(i, a)
End With
Next a, i
i =...
...= "YeniSayfa"
If Err.Number = 1004 Then MsgBox "Bilgi : " & cvlf & "Sayfa zaten mevcut. ", vbInformation, ""
For i = 0 To ListBox5.ListCount - 1
For a = 0 To ListBox5.ColumnCount - 1
With Sheets("YeniSayfa")
.Cells(i + 2, a + 1).Value = ListBox5.List(i, a)
End...
Selamlar
Arkadaşlar Listbox boş ise işlem yapmasın istiyorum.
aşağıdaki 3 seçeneği de denedim olmadı.
If Listbox1.ListCount = 0 Then Exit Sub
If Listbox1.ListCount < 0 Then Exit Sub
If Listbox1.ListCount = -1 Then Exit Sub
Denemeden yazıyorum. byfikanın gösterdiği kodda şu satırı kodların en altına taşımanız daha mantıklı olacak.
For i = 0 To Me.ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sayfa1.Range("A" & Me.ListBox1.ListIndex + 4 & ":S" & Me.ListBox1.ListIndex + 4).Delete Shift:=xlUp...
...= cbvardiya
.Range("V" & sonsat) = Now
.Range("W" & sonsat) = Environ("USERNAME")
End With
If sonsat = ListBox1.ListCount + 1 Then
tnm.Range("K2") = tnm.Range("K2") + 1
End If
kac = WorksheetFunction.Match(txtID, per.Range("A:A"), 0)...
...vbYesNoCancel + vbInformation, "BİLDİRİ")
If sor = vbNo Then Exit Sub
If sor = vbCancel Then Exit Sub
For a = 0 To lstdesimaldosya.ListCount - 1
If lstdesimaldosya.Selected(a) Then
ara = lstdesimaldosya.List(a, 0)
Sheets("DESİMALDOSYA").Range("B:B").Find(what:=ara...
...False
ListBox1.RowSource = "'personel listesi'!B5:K" & Sheets("personel listesi").[c65536].End(xlUp).Row
End If
For X = XD To ListBox1.ListCount
Sheets("personel listesi").Cells(X, 1) = X - 1
Next
If Cks <> "" Then
MsgBox "Çıkış Kaydı Tamamlandı", vbCritical
Else
MsgBox...
...yada silebilirsiniz.
Private Sub ListBox1_Click()
Dim hcr As Range
Range("B2:H132").Interior.Color = xlNone
If Me.ListBox1.ListCount = 0 Then Exit Sub
Dizi = Range("A1:I132").Value
For i = 1 To UBound(Dizi)
If Dizi(i, 1) = "" Then Dizi(i, 1) = Dizi(i - 1, 1)...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.