• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri Güncelleme, Düzeltme Sorunu..

I

inspirasyon

Katılım
6 Ekim 2006
Mesajlar
40
Excel Vers. ve Dili
office 2013- office 2016
Merhabalar Arkadaşlar,

1-Sizlerden istediğim eklediğim dosyada listboxtan çift tıklama ile veriyi seçip, textboxlara gelen bilgiler üzerinde düzenleme yaptıktan sonra düzeltme butonuna tıklayıp bilgiyi yeni kaydetmeden düzeltme işlemi yaptırmak.

2- Birde, sil ve kaydet işleminde "sıra no" sütunundaki sayıların sıralı bir biçimde yer almasını istiyorum ama bir türlü beceremedim.

şimdiden çok teşekkür ederim.
 

Ekli dosyalar

inspirasyon' Alıntı:
Merhabalar Arkadaşlar,

1-Sizlerden istediğim eklediğim dosyada listboxtan çift tıklama ile veriyi seçip, textboxlara gelen bilgiler üzerinde düzenleme yaptıktan sonra düzeltme butonuna tıklayıp bilgiyi yeni kaydetmeden düzeltme işlemi yaptırmak.

2- Birde, sil ve kaydet işleminde "sıra no" sütunundaki sayıların sıralı bir biçimde yer almasını istiyorum ama bir türlü beceremedim.

şimdiden çok teşekkür ederim.
Genişletmek için tıkla ...

Merhaba
Düzeltme işlemi için kod
Kod: 
Private Sub CommandButton2_Click()
Dim SOR As String, S1 As Worksheet, DÜZ As Long
If ListBox1.ListIndex >= 0 Then
SOR = MsgBox("Düzeltme İşlemi Yapıyorum Emin Misiniz_?", vbYesNo, "Onay")
If SOR = vbNo Then Exit Sub
DÜZ = ListBox1.ListIndex + 2
Set S1 = Sheets("DATA")
S1.Cells(DÜZ, "B") = TextBox1.Value
S1.Cells(DÜZ, "C") = TextBox2.Value
S1.Cells(DÜZ, "D") = TextBox3.Value
S1.Cells(DÜZ, "E") = TextBox4.Value
S1.Cells(DÜZ, "F") = TextBox5.Value
S1.Cells(DÜZ, "G") = TextBox10.Value
S1.Cells(DÜZ, "H") = TextBox6.Value
S1.Cells(DÜZ, "I") = TextBox7.Value
S1.Cells(DÜZ, "J") = TextBox8.Value
S1.Cells(DÜZ, "K") = TextBox9.Value
S1.Cells(DÜZ, "L") = TextBox15.Value
S1.Cells(DÜZ, "M") = TextBox16.Value
S1.Cells(DÜZ, "N") = TextBox11.Value
S1.Cells(DÜZ, "O") = TextBox12.Value
S1.Cells(DÜZ, "P") = TextBox13.Value
S1.Cells(DÜZ, "Q") = TextBox14.Value
MsgBox "Düzeltme İşlemi Yapıldı", vbInformation, "Bitiş"
End If
End Sub
Sıra Numarası için kod
Kod: 
Private Sub CommandButton5_Click()
Dim S1 As Worksheet, SAT As Long
Set S1 = Sheets("DATA")
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "KOYUN KEÇİ PROGRAMI")
If cevap = vbYes Then
Silinecek_Satir = ListBox1.ListIndex + 2
S1.Rows(Silinecek_Satir).Delete
End If
End If
SAT = S1.Range("B" & Rows.Count).End(xlUp).Row
S1.Range("A2") = 1
S1.Range("A2:A" & SAT).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
End Sub
Dosyanız Ekte.
 

Ekli dosyalar

Teşekkür Ederim..

Asi_Kral çok çok teşekkür ederim, ellerine sağlık...
 
Birde şu listbox header için bi çare varmı mehmet bey
 
koyun keçi dosyasından söz ediyordum başta listbox başlıklar görünüyorda arama sonrası boş kalıyor onun için bir yol ?
 
snx111' Alıntı:
koyun keçi dosyasından söz ediyordum başta listbox başlıklar görünüyorda arama sonrası boş kalıyor onun için bir yol ?
Genişletmek için tıkla ...

Aramayı nereden yapıyorsunuz. Ben sadece soruya baktığım için detaylarına bakmadım.
Neye göre yaptığınızıda bilmiyorum lütfe ayrıntılı olarak anlatın.
 
Neyse Sorun değil .... Farklı başlıkta incelenmeli
 
Evet haklısınız Sinan Bey, listboxla ilgili sorun var.. hepsini bir seferde söylemek istememiştim ama bahsi geçmişken eğer çözülebiliyorsa çok sevinirim.
asi_kral beyde eğer dosyaya tekrar bakıp yardım edebilirse çok memnun olurum.

option buton ile arama kriteri seçilip arama yapıldığında listbox başlıkları kayboluyor, ve arama işlemi bittikten sonra listboxun eski halini göremiyorum (tüm listenin hepsini).
Şimdiden teşekkür ederim..
 
inspirasyon' Alıntı:
Evet haklısınız Sinan Bey, listboxla ilgili sorun var.. hepsini bir seferde söylemek istememiştim ama bahsi geçmişken eğer çözülebiliyorsa çok sevinirim.
asi_kral beyde eğer dosyaya tekrar bakıp yardım edebilirse çok memnun olurum.

option buton ile arama kriteri seçilip arama yapıldığında listbox başlıkları kayboluyor, ve arama işlemi bittikten sonra listboxun eski halini göremiyorum (tüm listenin hepsini).
Şimdiden teşekkür ederim..
Genişletmek için tıkla ...

Merhaba
Combobox1'deki kodu bununla değiştirin.
Kod: 
Private Sub ComboBox1_Change()
Dim SÜT As Variant, BUL As Range, SAB As Variant, S1 As Worksheet
Dim SAY As Long, sutun As Long, LSAY As Long, X As Long
On Error Resume Next
If ComboBox1 <> Empty Then
ListBox1.RowSource = ""
ListBox1.ColumnCount = 0
If OptionButton1 = True Then SÜT = "B"
If OptionButton2 = True Then SÜT = "C"
If OptionButton3 = True Then SÜT = "D"
With WorksheetFunction
Set S1 = Sheets("DATA")
LSAY = 0
sutun = S1.Cells(1, Columns.Count).End(1).Column
ListBox1.ColumnCount = sutun
ListBox1.AddItem
For SAY = 1 To sutun
ListBox1.List(LSAY, SAY - 1) = S1.Cells(1, SAY)
Next
ListBox1.ColumnHeads = True
Set BUL = S1.Range(SÜT & ":" & SÜT).Find(ComboBox1, , , xlWhole)
If Not BUL Is Nothing Then
SAB = BUL.Address
Do
ListBox1.AddItem
X = 0
For SAY = 1 To sutun
ListBox1.List(LSAY + 1, X) = S1.Cells(BUL.Row, SAY).Value
X = X + 1
Next
LSAY = LSAY + 1
Set BUL = S1.Range(SÜT & ":" & SÜT).FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> SAB
End If
End With
Else
UserForm_Initialize
End If
End Sub
 
Teşekkürler..

Çok ama çok teşekkür ederim, ellerinize sağlık.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst