Sorgu için arama sonuçları: listcount

  1. H

    Soru Lisboxtaki Verilerin Şartlı Aktarılması

    ...Sheets("ÖZET").Visible = True Sheets("ÖZET").Select Sheets("ÖZET").Range("C4.Z20000").ClearContents Sheets("ÖZET").Range("C4:Z" & ListBox1.ListCount + 3) = ListBox1.List MsgBox " Kayıt Aktarıldı" Else If cevap = vbNo Then MsgBox " Kayıt aktarma işlemi iptal edildi" Exit Sub End If...
  2. G

    Koşullu Listbox seçili satır güncelleme

    ...Dim Nesne As Control Dim i As Integer Dim a As Integer UserForm1.ListBox1.Clear ListBox1.AddItem ("T.C.Kimlik No") ListBox1.List(ListBox1.ListCount - 1, 1) = "Adı Ve Soyadı" ListBox1.List(ListBox1.ListCount - 1, 2) = "İzin Başlangıç Tarihi" ListBox1.List(ListBox1.ListCount - 1, 3) = "İzin...
  3. B

    Çoklu kritere göre filitre

    Çok Özür Dilerim. Geç Yanıtladım ama İşlemi Doğru Şekilde Yapıyor. tam istediğim gibi ellerinize sağlık. Şükranlarımı sunuyorum.
  4. Hakan ERDOST

    Filtre edilmiş listbox üzerinden birden fazla satır seçerek güncelleme.

    ...On Error Resume Next ' Seçili satırları selectedRows dizisine ekleyin For i = 0 To UserForm17.ListBox1.ListCount - 1 If UserForm17.ListBox1.Selected(i) Then ReDim Preserve selectedRows(selectedCount) selectedRows(selectedCount) =...
  5. Hakan ERDOST

    Filtre edilmiş listbox üzerinden birden fazla satır seçerek güncelleme.

    ...Dim i As Integer On Error Resume Next ' Seçili satırları selectedRows dizisine ekleyin For i = 0 To UserForm17.ListBox1.ListCount - 1 If UserForm17.ListBox1.Selected(i) Then ReDim Preserve selectedRows(selectedCount) selectedRows(selectedCount) = i...
  6. D

    Çoklu kritere göre filitre

    ...ListBox1.ColumnCount = 15 ListBox1.ColumnHeads = False ListBox1.Clear ListBox1.List = MyRng For i = 0 To ListBox1.ListCount ListBox1.List(i, 0) = Format(ListBox1.List(i, 0), "dd.mm.yyyy") Next i TextBox3 = Format(WorksheetFunction.Subtotal(9, s1.Columns(4)), "Currency") TextBox4 =...
  7. U

    En son dolu satıra kadar Sütuna yazdırmak

    Burayı çözemediğim için projede ilerleyemiyorum :( İyice kafam karıştı. Yardımcı olacak bir hocam olursa çok sevinirim.
  8. U

    En son dolu satıra kadar Sütuna yazdırmak

    ...çalıştıracak yani listbox6 verilerini Rapor sayfasına aktaracak. With ListBox6 S1.Cells(S1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount) = .List End With end Butona tekrar tıkladığımda msgbox uyarı mesajı verecek ("Üretim planına devam etmek istiyor musunuz")...
  9. U

    uyarı mesajına göre (vbyes - vbno) seçeneğine kayıt yapsın

    ...Then Set s1 = Sheets("Rapor") s1.Range("A5:R200").ClearContents With ListBox6 s1.Cells(s1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount) = .List End With Else With ListBox6 s1.Cells(s1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount)...
  10. U

    uyarı mesajına göre (vbyes - vbno) seçeneğine kayıt yapsın

    ...If Onay = vbNo Then Exit Sub Rem With ListBox6 S1.Cells(S1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount) = .List End With End Sub Private Sub CommandButton9_Click() Call Test End Sub end[code] Yanlız hocam ben soruyu yanlış sormuşum çok özür dilerim...
  11. U

    uyarı mesajına göre (vbyes - vbno) seçeneğine kayıt yapsın

    ...Private Sub CommandButton9_Click() Set S1 = Sheets("Rapor") With ListBox6 S1.Cells(S1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount) = .List End With End Sub end[code] Ancak aşağıdaki gibi çalışmasını istiyorum. butona tıkladığımızda Rapor sayfasında...
  12. U

    Listbox sütununda toplam almak

    Hocam teşekkürler elllerinize sağlık
  13. Korhan Ayhan

    Listbox sütununda toplam almak

    ...kendi dosyanıza göre uyarlayabilirsiniz. Private Sub CommandButton1_Click() Dim X As Long, Topla As Double For X = 0 To ListBox1.ListCount - 1 If ListBox1.List(X, 10) <> "" Then Topla = Topla + ListBox1.List(X, 10) End If Next TextBox3 =...
  14. asdsxx

    Arama Kodunda Arapça işaretler revizyonu olabilir mi?

    ...say = say + 1 Set d = .FindNext(d) Loop While Not d Is Nothing And d.Address <> FirstAddress End If End With End If If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0 TextBox6.Text = ListBox1.ListCount & " Adet" MsgBox ListBox1.ListCount & " Adet Bulundu" Else MsgBox "Hiç veri...
  15. asdsxx

    UserForm, TextBox'daki bilgileri pdf çıktı alma

    ...Bunu PDF olarak nasıl revize edebiliriz. Private Sub CommandButton1_Click() Application.ScreenUpdating = False For i = 0 To ListBox2.ListCount - 1 If ListBox2.Selected(i) = True Then j = j + 1 End If Next i If j = 0 Then MsgBox "Seçim Yapmadınız": Exit Sub 'On Error Resume Next Dim appword...
  16. Kavinsky

    Search Box (Arama Kutusundan Veri Çağırma)

    ...= "" ListBox1.Clear If Say > 0 Then ListBox1.Column = Data Label4.Caption = " Listelenen Kayıt : " & ListBox1.ListCount Else ListBox1.RowSource = "LİSTE!A3:B" & S1.Cells(Rows.Count, 1).End(3).Row Label4.Caption = " Listelenen Kayıt : " &...
  17. Kavinsky

    Search Box (Arama Kutusundan Veri Çağırma)

    ...= "" ListBox1.Clear If Say > 0 Then ListBox1.Column = Data Label4.Caption = " Listelenen Kayıt : " & ListBox1.ListCount Else ListBox1.RowSource = "LİSTE!A3:B" & S1.Cells(Rows.Count, 1).End(3).Row Label4.Caption = " Listelenen Kayıt : " &...
  18. B

    Listbox çift tıklayınca seçilen kolondaki adeti iade etme.

    ...derdimi anlatmaya çalıştım. Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Integer For i = 0 To ListBox2.ListCount - 1 If ListBox2.Selected(i) = True Then Sheets("Satışdetay").Select Sheets("Satışdetay").Range("A" & ListBox2.ListIndex + 2).Select t =...
  19. S

    listboxta Sutun Sınırlaması

    ...& "*" Then With lstMusteriler .AddItem Cells(i.Row, 1).Value .List(.ListCount - 1, 1) = Cells(i.Row, 2).Value .List(.ListCount - 1, 2) = Cells(i.Row, 3).Value .List(.ListCount -...
  20. C

    ListBox Koşullu Satır Renklendirme

    ...= 1 If DateDiff("h", Sheets("Sayfa1").Range("H" & i), Sheets("Sayfa1").Range("H" & i)) > 7 Then For i = 0 To ListBox1.ListCount - 1 If ListBox1.List(i) = "(COLOR="Red"]) Hasan (/COLOR))" Then ListBox1.Selected(i) = True End If Next i End If End Sub
Üst