Soru Listboxta Kaydet Değiştir Sil

T

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
744
Excel Vers. ve Dili
2016 64 TR
Altın Üyelik Bitiş Tarihi
29-10-2026
pasif personel.jpg
[KOD]


Özel Alt KomutDüğmesi11_Click ()

Son Alt

Özel Alt KomutDüğmesi15_Click ()
CreateObject ("Shell.Application"). TextBox8.Text dosyasını açın.
Son Alt


Özel Alt KomutDüğmesi16_Click ()
CreateObject ("Shell.Application"). TextBox10.Text dosyasını açın.
Son Alt

Özel Alt KomutDüğmesi17_Click ()
CreateObject ("Shell.Application"). TextBox12.Text dosyasını açın.
Son Alt


Özel Alt Değiştir_Click ()
Eğer txtSira <> Boş O zaman


Çalışma Sayfaları ("HAVUZ") Cells.txtSira.Text = ListBox1.Column (0)
Çalışma Sayfaları ("HAVUZ") Cells.txtSicili.Text = ListBox1.Column (1)
Çalışma Sayfaları ("HAVUZ") Cells.txtAdi.Text = ListBox1.Column (2)
Çalışma Sayfaları ("HAVUZ") Cells.txtSoyadi.Text = ListBox1.Column (3)
Çalışma Sayfaları ("HAVUZ") Cells.txtRutbesi.Text = ListBox1.Column (4)
Çalışma Sayfaları ("HAVUZ") Cells.txtBurosu.Text = ListBox1.Column (5)
Çalışma Sayfaları ("HAVUZ") Cells.txtGidis.Text = ListBox1.Column (6)
Çalışma sayfaları ("HAVUZ") Cells.txtDonus.Text = ListBox1.Column (7)
Çalışma Sayfaları ("HAVUZ") Cells.txtAciklama.Text = ListBox1.Column (8)
Çalışma Sayfaları ("HAVUZ") Hücreler.TextBox8.Text = ListBox1.Column (9)
Çalışma Sayfaları ("HAVUZ") Hücreler.TextBox9.Text = ListBox1.Column (10)
Çalışma Sayfaları ("HAVUZ") Hücreler.TextBox10.Text = ListBox1.Column (11)
Çalışma Sayfaları ("HAVUZ") Hücreler.TextBox11.Text = ListBox1.Column (12)
Çalışma Sayfaları ("HAVUZ") Hücreler.TextBox12.Text = ListBox1.Column (13)
Çalışma Sayfaları ("HAVUZ") Hücreler.TextBox13.Text = ListBox1.Column (14)
UserForm_Initialize
MsgBox "Kayıt İşleminiz Tamamlandı.", VbInformation
Set bul = Hiçbir şey
Bittiğinde
Son Alt
Özel Alt Liste Kutusu1_Click ()
txtSira.Text = ListBox1.Column (0)
txtSicili.Text = ListBox1.Column (1)
txtAdi.Text = ListBox1.Column (2)
txtSoyadi.Text = ListBox1.Column (3)
txtRutbesi.Text = ListBox1.Column (4)
txtBurosu.Text = ListBox1.Column (5)
txtGidis.Text = ListBox1.Column (6)
txtDonus.Text = ListBox1.Column (7)
txtAciklama.Text = ListBox1.Column (8)
TextBox8.Text = ListBox1.Column (9)
TextBox9.Text = ListBox1.Column (10)
TextBox10.Text = ListBox1.Column (11)
TextBox11.Text = ListBox1.Column (12)
TextBox12.Text = ListBox1.Column (13)
TextBox13.Text = ListBox1.Column (14)

Son Alt

Özel Alt OptionButton2_Click ()

Son Alt

Özel Alt txtAdi_Change ()

Son Alt

Özel Alt txtAra_Change ()
Dim askm ()
Loş oğul kadar uzun
son = Range ("B" & Rows.Count) .End (3) .Row

Dim kadar uzun oturdu
Dim S Uzun
Dim bayt olarak bayt
OptionButton1.Value = True ise
sutun = 1
ElseIf OptionButton2.Value = Doğru Sonra
sutun = 2
ElseIf OptionButton3.Value = Doğru Sonra
sutun = 3
ElseIf OptionButton4.Value = Doğru Sonra
sutun = 4
ElseIf OptionButton5.Value = Doğru Sonra
sutun = 5
ElseIf OptionButton6.Value = Doğru Sonra
sutun = 6
Bittiğinde
s = 0
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
ListBox1.RowSource = Boş
ListBox1.Clear
j = 0
Cts = 2 Oğluna
Eğer LCase (Levhalar ("HAVUZ"). Hücreler (sat, sutun)) LCase'den ("*" & txtAra.Value & "*") Öyleyse
ReDim İsteği koru (0 - 14, 0 - j)
askm (0, j) = Hücreler (oturdu, 1)
askm (1, j) = Hücreler (oturdu, 2)
askm (2, j) = Hücreler (oturdu, 3)
askm (3, j) = Hücreler (oturdu, 4)
askm (4, j) = Hücreler (oturdu, 5)
askm (5, j) = Hücreler (oturdu, 6)
askm (6, j) = Hücreler (oturdu, 7)
askm (7, j) = Hücreler (oturd, 8)
askm (8, j) = Hücreler (oturdu, 9)
askm (9, j) = Hücreler (oturdu, 10)
askm (10, j) = Hücreler (sat, 11)
askm (11, j) = Hücreler (sat, 12)
askm (12, j) = Hücreler (oturdu, 13)
askm (13, j) = Hücreler (oturdu, 14)
j = j + 1
Bittiğinde
Sonraki oturdu
Eğer j> 0 ise
ListBox1.Column = askm
Bittiğinde
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
Son Alt

Özel Alt Frame2_Click ()

Son Alt

Özel Alt UserForm_Initialize ()

OptionButton2.Value = Doğru

Çarşaflı ("HAVUZ")
ListBox1.Clear
ListBox1.ColumnHeads = Doğru
ListBox1.ColumnCount = 100

Liste Kutusu1 Kolon Genişlikleri = "30; 55; 70; 70; 50; 50; 50; 50; 50; 50; 50; 50; 50; 50; 50"
ListBox1.RowSource = "HAVUZ!" & "A2: ZZ1000" ve
say = WorksheetFunction.CountA (Çalışma sayfaları ("HAVUZ"). Aralık ("A: A")) 'Sayfa1 A sütunundaki dolu hücre sayısı.
İle bitmek

Son Alt

[/ KOD]

Listboxta (Pasif Sıra Numarasından Arama) adlı userformumda ço0k uğraştım ama değiştir sil temizle komutlarını yapamadım. Yardım edebilecek varsa çok sevinirim.

KAYDET: Burada sıfırdan kayıt girilecek ve yeni satır numarası verilecek ve kaydedildi mesajı gelecek
GÜNCELLE: Listboxta çift tıkladıktan sonra texboxlara gelen verilerden texboxlarda düzenlendikten sonra Güncelle ayarlanarakca kendi satırında olacak ve günümüzde olacak
SİL: Listboxta çift tıkladıktan sonra texboxlara gelenler için sileceğimizde silinecek onaylıyor musunuz bunu sorabiliriz evet diyince silecek ve silindiğinde olacak

TEMİZLE: Temizledikten sonra texboxları temizleyerek



Yapabilen varsa çok sevinirim örnek dosyamı ve kodları ekliyorum.
 

Ekli dosyalar

T

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
744
Excel Vers. ve Dili
2016 64 TR
Altın Üyelik Bitiş Tarihi
29-10-2026
Yardım edebilecek var mı?
 
T

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
744
Excel Vers. ve Dili
2016 64 TR
Altın Üyelik Bitiş Tarihi
29-10-2026
Kod: 
Private Sub CommandButton11_Click()

End Sub

Private Sub CommandButton10_Click()
Unload Me
Yeni_Pasif_Kaydet.Show
End Sub

Private Sub CommandButton12_Click()
For Each txt In Me.Controls
If TypeName(txt) = "TextBox" Then
    txt.Text = ""
End If
Next txt
End Sub

Private Sub CommandButton14_Click()
Unload Me
AnaMenu.Show
End Sub
Private Sub CommandButton16_Click()
   CreateObject("Shell.Application").Open TextBox10.Text
End Sub

Private Sub CommandButton17_Click()
   CreateObject("Shell.Application").Open TextBox12.ul
End Sub


Private Sub CommandButton18_Click()
On Error Resume Next
 sat = Havuz.Columns("B:B").Find(What:=Me.ListBox1.List(Me.ListBox1.ListIndex, 1), LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row
sonuc = MsgBox(Me.ListBox1.List(Me.ListBox1.ListIndex, 0) & " Sıra Numaralı" & " " & Me.ListBox1.List(Me.ListBox1.ListIndex, 1) & " Sicil Sayılı" & " " & Me.ListBox1.List(Me.ListBox1.ListIndex, 4) & " " & Me.ListBox1.List(Me.ListBox1.ListIndex, 2) & " " & Me.ListBox1.List(Me.ListBox1.ListIndex, 3) & " İsimli Kayıt SİLİNECEK !!! Onaylıyor musunuz ?" & vbCrLf & vbCrLf & "Evet (sil) -- Hayır (iptal)", vbYesNo, "KAYIT SİL")

If sonuc = 6 Then
    Havuz.Rows(sat & ":" & sat).Delete Shift:=xlUp
ElseIf sonuc = 7 Then
 'hayır basılırsa
End If
ListBox1.RowSource = "HAVUZ!" & "A2:ZZ" & Sayfa3.Range("A60000").End(3).Row
End Sub

Private Sub CommandButton19_Click()
On Error Resume Next
  Dim rs, con As Object
  
  Set con = CreateObject("adodb.connection")
  Set rs = CreateObject("adodb.recordset")
  con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=NO"""
  rs.Open "INSERT INTO [" & Sayfa3.Name & "$A2:O" & Sayfa3.Range("A50000").End(3).Row & "]" & _
          "VALUES('" & Sayfa3.Range("A50000").End(3).Row + 1 & "','" & Me.txtSicili.Text & "','" & Me.txtAdi.Text & "','" & Me.txtSoyadi.Text & "','" & Me.txtRutbesi.Text & "','" & Me.txtBurosu.Text & "','" & Me.txtGidis.Text & "','" & Me.txtDonus.Text & "','" & Me.txtAciklama.Text & "','" & Me.TextBox8.Text & "','" & Me.TextBox9.Text & "','" & Me.TextBox10.Text & "','" & Me.TextBox11.Text & "','" & Me.TextBox12.Text & "','" & Me.TextBox13.Text & "')", con
 
 con.Close
 Set rs = Nothing
 Set con = Nothing
 ListBox1.RowSource = "HAVUZ!" & "A2:ZZ" & Sayfa3.Range("A60000").End(3).Row
End Sub

Private Sub Değiştir_Click()
On Error Resume Next
  Dim rs, con As Object
  
  Set con = CreateObject("adodb.connection")
  Set rs = CreateObject("adodb.recordset")
  con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=NO"""
 rs.Open "UPDATE [" & Sayfa3.Name & "$A2:O" & Sayfa3.Range("A50000").End(3).Row & "]" & _
           "SET F1 = '" & Me.txtSira.Text & "',F2 = '" & Me.txtSicili.Text & "',F3 ='" & Me.txtAdi.Text & "',F4 ='" & Me.txtSoyadi.Text & "',F5 ='" & Me.txtRutbesi.Text & "',F6 ='" & Me.txtBurosu.Text & "',F7 ='" & Me.txtGidis.Text & "',F8 ='" & Me.txtDonus.Text & "',F9 ='" & Me.txtAciklama.Text & "',F10 ='" & Me.TextBox8.Text & "',F11 ='" & Me.TextBox9.Text & "',F12 ='" & Me.TextBox10.Text & "',F13 ='" & Me.TextBox11.Text & "',F14 ='" & Me.TextBox12.Text & "',F15 ='" & Me.TextBox13.Text & "' WHERE F2='" & Me.txtSicili.Text & "'", con
 
 con.Close
 Set rs = Nothing
 Set con = Nothing
    
Exit Sub


    If txtSira <> Empty Then
      
        
    Worksheets("HAVUZ").Cells.txtSira.Text = ListBox1.Column(0)
    Worksheets("HAVUZ").Cells.txtSicili.Text = ListBox1.Column(1)
    Worksheets("HAVUZ").Cells.txtAdi.Text = ListBox1.Column(2)
    Worksheets("HAVUZ").Cells.txtSoyadi.Text = ListBox1.Column(3)
    Worksheets("HAVUZ").Cells.txtRutbesi.Text = ListBox1.Column(4)
    Worksheets("HAVUZ").Cells.txtBurosu.Text = ListBox1.Column(5)
    Worksheets("HAVUZ").Cells.txtGidis.Text = ListBox1.Column(6)
    Worksheets("HAVUZ").Cells.txtDonus.Text = ListBox1.Column(7)
    Worksheets("HAVUZ").Cells.txtAciklama.Text = ListBox1.Column(8)
    Worksheets("HAVUZ").Cells.TextBox8.Text = ListBox1.Column(9)
    Worksheets("HAVUZ").Cells.TextBox9.Text = ListBox1.Column(10)
    Worksheets("HAVUZ").Cells.TextBox10.Text = ListBox1.Column(11)
    Worksheets("HAVUZ").Cells.TextBox11.Text = ListBox1.Column(12)
    Worksheets("HAVUZ").Cells.TextBox12.Text = ListBox1.Column(13)
    Worksheets("HAVUZ").Cells.TextBox13.Text = ListBox1.Column(14)
        UserForm_Initialize
        MsgBox "Kayıt İşleminiz Tamamlanmıştır.", vbInformation
        Set Bul = Nothing
    End If
End Sub
Private Sub ListBox1_Click()
    txtSira.Text = ListBox1.Column(0)
    txtSicili.Text = ListBox1.Column(1)
    txtAdi.Text = ListBox1.Column(2)
    txtSoyadi.Text = ListBox1.Column(3)
    txtRutbesi.Text = ListBox1.Column(4)
    txtBurosu.Text = ListBox1.Column(5)
    txtGidis.Text = ListBox1.Column(6)
    txtDonus.Text = ListBox1.Column(7)
    txtAciklama.Text = ListBox1.Column(8)
    TextBox8.Text = ListBox1.Column(9)
    TextBox9.Text = ListBox1.Column(10)
    TextBox10.Text = ListBox1.Column(11)
    TextBox11.Text = ListBox1.Column(12)
    TextBox12.Text = ListBox1.Column(13)
    TextBox13.Text = ListBox1.Column(14)
    
End Sub

Private Sub OptionButton2_Click()

End Sub

Private Sub txtAdi_Change()

End Sub

Private Sub txtAra_Change()
Dim askm()
Dim son As Long
son = Range("B" & Rows.Count).End(3).Row

Dim sat As Long
    Dim s As Long
    Dim sutun As Byte
    If OptionButton1.Value = True Then
        sutun = 1
    ElseIf OptionButton2.Value = True Then
        sutun = 2
    ElseIf OptionButton3.Value = True Then
        sutun = 3
ElseIf OptionButton4.Value = True Then
        sutun = 4
        ElseIf OptionButton5.Value = True Then
        sutun = 5
        ElseIf OptionButton6.Value = True Then
        sutun = 6
    End If
    s = 0
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ListBox1.RowSource = Empty
ListBox1.Clear
j = 0
For sat = 2 To son
    If LCase(Sheets("HAVUZ").Cells(sat, sutun)) Like LCase("*" & txtAra.Value & "*") Then
        ReDim Preserve askm(0 To 14, 0 To j)
        askm(0, j) = Cells(sat, 1)
        askm(1, j) = Cells(sat, 2)
        askm(2, j) = Cells(sat, 3)
        askm(3, j) = Cells(sat, 4)
        askm(4, j) = Cells(sat, 5)
        askm(5, j) = Cells(sat, 6)
        askm(6, j) = Cells(sat, 7)
        askm(7, j) = Cells(sat, 8)
        askm(8, j) = Cells(sat, 9)
        askm(9, j) = Cells(sat, 10)
        askm(10, j) = Cells(sat, 11)
        askm(11, j) = Cells(sat, 12)
        askm(12, j) = Cells(sat, 13)
        askm(13, j) = Cells(sat, 14)
        j = j + 1
    End If
Next sat
    If j > 0 Then
        ListBox1.Column = askm
    End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

Private Sub txtAra_Enter()
txtAra = ""
End Sub

Private Sub UserForm_Initialize()

OptionButton2.Value = True
txtAra.Text = "Arama Kutusu"
With Sheets("HAVUZ")
    ListBox1.Clear
    ListBox1.ColumnHeads = True
    ListBox1.ColumnCount = 100
    
    ListBox1.ColumnWidths = "30;55;70;70;50;50;50;50;50;50;50;50;50;50;50"
    ListBox1.RowSource = "HAVUZ!" & "A2:ZZ" & Sayfa3.Range("A60000").End(3).Row
    say = WorksheetFunction.CountA(Worksheets("HAVUZ").Range("A:A"))  'Sayfa1 A sütunundaki dolu hücre sayısı.
End With

End Sub
BU kodlarda hata oluyor KAYDET ve GÜNCELLE derken yapabilecek olan var mı acaba?
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst