• DİKKAT

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

ListBox'a Data2 deki bilgiler gelsin ve......

A

ahatbek

Katılım
2 Nisan 2009
Mesajlar
53
Excel Vers. ve Dili
2003 Türkçe
Şimdi veriler kaydedildiğinden sonra ListBox'a Data2 deki bilgiler gelsin ve çift tıkladığımda o kişiye ait bilgiler Form2 ile birlik açılsın.
dosya ekte

Not: kaydet buttonu bir defa kaydetsin ve false olsun.

saygılar
 

Ekli dosyalar

ahatbek' Alıntı:
Şimdi veriler kaydedildiğinden sonra ListBox'a Data2 deki bilgiler gelsin ve çift tıkladığımda o kişiye ait bilgiler Form2 ile birlik açılsın.
dosya ekte

Not: kaydet buttonu bir defa kaydetsin ve false olsun.

saygılar
Genişletmek için tıkla ...

merhaba
userform1'in kod bölümüne kopyalayarak deneyiniz
Kod: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
Dim ts
ts = ListBox1.ListIndex + 1
UserForm2.TextBox4 = Sheets("Data2").Range("A" & ts).Value
UserForm2.TextBox1.Enabled = False
UserForm2.TextBox1 = Format(Now, "dd.mm.yyyy")
UserForm2.TextBox5 = Sheets("Data2").Range("C" & ts).Value
UserForm2.TextBox6 = Sheets("Data2").Range("D" & ts).Value
UserForm2.TextBox7 = Sheets("Data2").Range("E" & ts).Value
UserForm2.TextBox8 = Sheets("Data2").Range("F" & ts).Value
UserForm2.TextBox9 = Sheets("Data2").Range("G" & ts).Value
UserForm2.TextBox10 = Sheets("Data2").Range("H" & ts).Value
UserForm2.TextBox11 = Sheets("Data2").Range("I" & ts).Value
UserForm2.TextBox12 = Sheets("Data2").Range("J" & ts).Value
UserForm2.TextBox13 = Sheets("Data2").Range("K" & ts).Value
End Sub
[COLOR="Red"]Private Sub UserForm_Initialize()
If ListBox1.Tag = "Yeni" Then ListBox1.TopIndex = ListBox1.ListCount - 1
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "0;0;40;40;40;40;40"
ListBox1.RowSource = "Data2!A2:K" & Sheets("Data2").Range("A65536").End(xlUp).Row
End Sub[/COLOR]
 
ListBox'a veri çekmek ve çift tıklandığında Form2 açılması

Hocam Kod ta hata veriyor
hata resmi ekte
teşekkürler
 

Ekli dosyalar

  • Kod Hata.JPG
    Kod Hata.JPG
    44.4 KB · Görüntüleme: 7
ListBox'a veri çekmek ve çift tıklandığında Form2 açılması

hocam silince hiç listbox çalışmadı
 
ahatbek' Alıntı:
hocam silince hiç listbox çalışmadı
Genişletmek için tıkla ...

benim eklediğim kod'a ilave yapıyorsunuz sorun burda
benim eklediğim kod
Kod: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
bununla başlıyor
sizin eklediğiniz kod ise
Kod: 
Private Sub UserForm_Initialize()
bununla başlıyor sonra benim eklediğim kod'u yazmışsınız.
hata alma sebebiniz aynı kod başlığından iki tane olması ve sizin kod'un end sub ile bitmemesi

sizin dosyanızda çalışması için sadece benim eklediğim kod'u kopyalayın başka bir kod eklemeyin.
 
ComboBox'a kod yazmak

Teşekkür ederim hocam Bu konu çözüldü

ComboBox lar için UserForn da aşağıdakı kodları nasıl eklerim ki çalışsın
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Erke"
.AddItem "Kadın"
End With

With ComboBox3
.AddItem "Bir Ay"
.AddItem "İki Ay"
.AddItem "Üç Ay"
End With
End Sub

Saygılarımla
 
ahatbek' Alıntı:
Teşekkür ederim hocam Bu konu çözüldü

ComboBox lar için UserForn da aşağıdakı kodları nasıl eklerim ki çalışsın
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Erke"
.AddItem "Kadın"
End With

With ComboBox3
.AddItem "Bir Ay"
.AddItem "İki Ay"
.AddItem "Üç Ay"
End With
End Sub

Saygılarımla
Genişletmek için tıkla ...

üstteki kod'da kırmızıya boyadığım yeri
Kod: 
Private Sub UserForm_Initialize()
If ListBox1.Tag = "Yeni" Then ListBox1.TopIndex = ListBox1.ListCount - 1
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "0;0;40;40;40;40;40"
ListBox1.RowSource = "Data2!A2:K" & Sheets("Data2").Range("A65536").End(xlUp).Row
ComboBox1.AddItem "Erkek"
ComboBox1.AddItem "Kadın"
ComboBox3.AddItem "1. Ay"
ComboBox3.AddItem "2. Ay"
ComboBox3.AddItem "3. Ay"
ComboBox3.AddItem "4. Ay"
ComboBox3.AddItem "5. Ay"
ComboBox3.AddItem "6. Ay"
ComboBox3.AddItem "7. Ay"
ComboBox3.AddItem "8. Ay"
ComboBox3.AddItem "9. Ay"
ComboBox3.AddItem "10. Ay"
ComboBox3.AddItem "12. Ay"
ComboBox3.AddItem "13. Ay"
End Sub
bununla değiştirin
 
ListBox'a çift tıklama da hata

Teşekkürler hocam
yalnız listbox'a çift tıklama olayı iptal olmuş.
Bu arada size ve tüm islam alemine Ramazan şrifi tebrik ederim.
Saygılarımla
 
ahatbek' Alıntı:
Teşekkürler hocam
yalnız listbox'a çift tıklama olayı iptal olmuş.
Bu arada size ve tüm islam alemine Ramazan şrifi tebrik ederim.
Saygılarımla
Genişletmek için tıkla ...

öncelikle teşekkür ederim
kod'u yanlış kopyalamışsınız 2. mesajda verdiğim kod'da kırmızıya boyadığım yer var ora ile son verdiğim kod'u değiştireceksiniz.
yapamazsanız
Kod: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm2.Show
Dim ts
ts = ListBox1.ListIndex + 1
UserForm2.TextBox4 = Sheets("Data2").Range("A" & ts).Value
UserForm2.TextBox1.Enabled = False
UserForm2.TextBox1 = Format(Now, "dd.mm.yyyy")
UserForm2.TextBox5 = Sheets("Data2").Range("C" & ts).Value
UserForm2.TextBox6 = Sheets("Data2").Range("D" & ts).Value
UserForm2.TextBox7 = Sheets("Data2").Range("E" & ts).Value
UserForm2.TextBox8 = Sheets("Data2").Range("F" & ts).Value
UserForm2.TextBox9 = Sheets("Data2").Range("G" & ts).Value
UserForm2.TextBox10 = Sheets("Data2").Range("H" & ts).Value
UserForm2.TextBox11 = Sheets("Data2").Range("I" & ts).Value
UserForm2.TextBox12 = Sheets("Data2").Range("J" & ts).Value
UserForm2.TextBox13 = Sheets("Data2").Range("K" & ts).Value
End Sub
Private Sub UserForm_Initialize()
If ListBox1.Tag = "Yeni" Then ListBox1.TopIndex = ListBox1.ListCount - 1
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "0;0;40;40;40;40;40"
ListBox1.RowSource = "Data2!A2:K" & Sheets("Data2").Range("A65536").End(xlUp).Row
ComboBox1.AddItem "Erkek"
ComboBox1.AddItem "Kadın"
ComboBox3.AddItem "1. Ay"
ComboBox3.AddItem "2. Ay"
ComboBox3.AddItem "3. Ay"
ComboBox3.AddItem "4. Ay"
ComboBox3.AddItem "5. Ay"
ComboBox3.AddItem "6. Ay"
ComboBox3.AddItem "7. Ay"
ComboBox3.AddItem "8. Ay"
ComboBox3.AddItem "9. Ay"
ComboBox3.AddItem "10. Ay"
ComboBox3.AddItem "11. Ay"
ComboBox3.AddItem "12. Ay"
End Sub
bu kodu deneyin
 
ListBox'a çift tıklama da hata

Teşekkür ederim hocam
bu defa çift tıklamada A1 de getiriyor.
saygılar
 
ahatbek' Alıntı:
Teşekkür ederim hocam
bu defa çift tıklamada A1 de getiriyor.
saygılar
Genişletmek için tıkla ...

merhaba
userform'un kod bölümündeki kodların tamamını bununla değiştirin
Kod: 
Private Sub CommandButton2_Click()
Dim ts, kaplan, data1, data2, trabzonspor
If TextBox1 = Empty Then MsgBox "Adı Boş": TextBox1.SetFocus: Exit Sub
If TextBox2 = Empty Then MsgBox "Soyadı Boş": TextBox2.SetFocus: Exit Sub
If TextBox3 = Empty Then MsgBox "Doğum Tarihi Boş": TextBox3.SetFocus: Exit Sub
If ComboBox1 = Empty Then MsgBox "Cinsiyet Boş": ComboBox1.SetFocus: Exit Sub
If ComboBox2 = Empty Then MsgBox "Uyrugu Boş": ComboBox2.SetFocus: Exit Sub
If ComboBox3 = Empty Then MsgBox "Süre Boş": ComboBox3.SetFocus: Exit Sub
If TextBox4 = Empty Then MsgBox "Başlangıç Tarihi Boş": TextBox4.SetFocus: Exit Sub
If TextBox5 = Empty Then MsgBox "Aidat Boş": TextBox5.SetFocus: Exit Sub
trabzonspor = MsgBox("Verileri 2 Sayfaya Kaydediyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
data1 = Sheets("Data1").Range("C65536").End(xlUp).Row
data2 = Sheets("Data2").Range("C65536").End(xlUp).Row
ts = data1 + 1
kaplan = data2 + 1
Sheets("Data1").Range("C" & ts).Value = TextBox1.Value
Sheets("Data2").Range("C" & kaplan).Value = TextBox1.Value
Sheets("Data1").Range("D" & ts).Value = TextBox2.Value
Sheets("Data2").Range("D" & kaplan).Value = TextBox2.Value
Sheets("Data1").Range("E" & ts).Value = TextBox3.Value
Sheets("Data2").Range("E" & kaplan).Value = TextBox3.Value
Sheets("Data1").Range("F" & ts).Value = ComboBox1.Value
Sheets("Data2").Range("F" & kaplan).Value = ComboBox1.Value
Sheets("Data1").Range("G" & ts).Value = ComboBox2.Value
Sheets("Data2").Range("G" & kaplan).Value = ComboBox2.Value
Sheets("Data1").Range("H" & ts).Value = ComboBox2.Value
Sheets("Data2").Range("H" & kaplan).Value = ComboBox3.Value
Sheets("Data1").Range("I" & ts).Value = TextBox4.Value
Sheets("Data2").Range("I" & kaplan).Value = TextBox4.Value
Sheets("Data1").Range("K" & ts).Value = TextBox5.Value
Sheets("Data2").Range("K" & kaplan).Value = TextBox5.Value
Sheets("Data1").Range("A2") = 1: Sheets("Data2").Range("A2") = 1
Sheets("Data1").Range("A2:A" & ts).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=True
Sheets("Data2").Range("A2:A" & kaplan).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=True
MsgBox "Veriler Kaydedildi", vbInformation, "Bitiş"
CommandButton3_Click
UserForm_Initialize
End Sub
Private Sub CommandButton3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub
Private Sub CommandButton4_Click()
Unload Me
End Sub
Private Sub CommandButton5_Click()
UserForm2.Show
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = ListBox1.ListIndex + 1
UserForm2.TextBox4 = Sheets("Data2").Range("A" & ts).Value
UserForm2.TextBox1.Enabled = False
UserForm2.TextBox1 = Format(Now, "dd.mm.yyyy")
UserForm2.TextBox5 = Sheets("Data2").Range("C" & ts).Value
UserForm2.TextBox6 = Sheets("Data2").Range("D" & ts).Value
UserForm2.TextBox7 = Sheets("Data2").Range("E" & ts).Value
UserForm2.TextBox8 = Sheets("Data2").Range("F" & ts).Value
UserForm2.TextBox9 = Sheets("Data2").Range("G" & ts).Value
UserForm2.TextBox10 = Sheets("Data2").Range("H" & ts).Value
UserForm2.TextBox11 = Sheets("Data2").Range("I" & ts).Value
UserForm2.TextBox12 = Sheets("Data2").Range("J" & ts).Value
UserForm2.TextBox13 = Sheets("Data2").Range("K" & ts).Value
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
If ListBox1.Tag = "Yeni" Then ListBox1.TopIndex = ListBox1.ListCount - 2
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "0;0;40;40;40;40;40"
ListBox1.RowSource = "Data2!A1:K" & Sheets("Data2").Range("A65536").End(xlUp).Row
ComboBox1.AddItem "Erkek"
ComboBox1.AddItem "Kadın"
ComboBox3.AddItem "1. Ay"
ComboBox3.AddItem "2. Ay"
ComboBox3.AddItem "3. Ay"
ComboBox3.AddItem "4. Ay"
ComboBox3.AddItem "5. Ay"
ComboBox3.AddItem "6. Ay"
ComboBox3.AddItem "7. Ay"
ComboBox3.AddItem "8. Ay"
ComboBox3.AddItem "9. Ay"
ComboBox3.AddItem "10. Ay"
ComboBox3.AddItem "11. Ay"
ComboBox3.AddItem "12. Ay"
End Sub
 
ListBox'a çift tıklama da hata

selam hocam
herşey için teşekkür ederim bu konuda ufak bir sorun var oda listbox'a A1 de getirmesi veya bir veriye çift tıkladiğimda'da a1 getiriyor.
saygılar
 
Teşekkür

Hocam elinize sağlık dert görmesim.
diğer konular hakkında sizi rahatsız edeceğim.
şimdilik işim çıktı sonra görüşürüz.
saygılarımla
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst