UserForm1'de gösterilen bilgileri UserForm'2'ye çekmek.

[massgrave]

serForm1'de gösterilen bilgileri UserForm'2'ye çekmek.

User Form1'de Listbox'da seçi olan kayda tıklayınca textboxlarda kayıtları görebiliyorum.
Yalnız ben tıkladığımızda görünen kaydı bir buton ile UserForm2'deki alanlara alıp orada işlemek istiyorum.

UserForm1'deki listbox tıklama kodu:

Private Sub ListBox1_Click()
Dim say, a As Integer

For a = 0 To 11 'If listbox click ,fill the textboxes
Controls("textbox" & a + 1) = ListBox1.column(a)
Next
say = ListBox1.ListIndex + 2
Sheets("Data").Range("A" & say & ":L" & say).Select

TextBox15 = ListBox1.ListIndex + 1
End Sub

USERFORM2 BU FORMU VERİ KAYDETMEK İÇİN KULLANIYORUM.
BİLGİLERİ ÇEKEBİLİRSEK DÜZELTME İŞLEMİ İÇİN KULLANACAĞIM.

UserForm2 kodları:

Private Sub Image10_Click()
Unload Me
End Sub

Private Sub Image9_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a Name number
If Trim(Me.TextBox4.Value) = "" Then
  Me.TextBox4.SetFocus
  MsgBox "Lütfen bilgi giriniz."
  Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
ws.Cells(iRow, 7).Value = Me.TextBox7.Value
ws.Cells(iRow, 8).Value = Me.TextBox8.Value
ws.Cells(iRow, 9).Value = Me.TextBox9.Value
ws.Cells(iRow, 10).Value = Me.TextBox10.Value
ws.Cells(iRow, 11).Value = Me.cboxil.Value
ws.Cells(iRow, 12).Value = Me.TextBox12.Value

MsgBox "KAYIT YAPILDI", vbOKOnly + vbInformation, "Veri Kaydedildi"
'clear the data
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.cboxil.Value = ""
Me.TextBox12.Value = ""
Me.TextBox1.SetFocus
Unload Me
UserForm1.ListBox1.List = Sheets("Data").Range("a2:l" & [a65536].End(3).Row).Value
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()
TextBox2.Value = UCase(TextBox2.Value)
End Sub

Private Sub TextBox3_Change()
TextBox3.Value = UCase(TextBox3.Value)
End Sub

Private Sub TextBox4_Change()
TextBox4.Value = UCase(TextBox4.Value)
End Sub

Private Sub TextBox5_Change()
TextBox5.Value = UCase(TextBox5.Value)
End Sub

Private Sub TextBox6_Change()
TextBox6.Value = UCase(TextBox6.Value)
End Sub

Private Sub TextBox7_Change()
TextBox7.Value = UCase(TextBox7.Value)
End Sub

Private Sub TextBox8_Change()
TextBox8.Value = UCase(TextBox8.Value)
End Sub

Private Sub UserForm_Click()

End Sub



Private Sub UserForm_Initialize()


Dim say, a As Integer

For a = 0 To 11 'If listbox click ,fill the textboxes
Controls("textbox" & a + 1) = ListBox1.column(a)
Sheets("Data").Range("A" & say & ":L" & say).Select

cboxil.AddItem "Adana"
cboxil.AddItem "Adıyaman"
cboxil.AddItem "Afyonkarahisar"
cboxil.AddItem "Ağrı"
cboxil.AddItem "Aksaray"
cboxil.AddItem "Amasya"
cboxil.AddItem "Ankara"
cboxil.AddItem "Antalya"
cboxil.AddItem "Ardahan"
cboxil.AddItem "Artvin"
cboxil.AddItem "Aydın"
cboxil.AddItem "Balıkesir"
cboxil.AddItem "Bartın"
cboxil.AddItem "Batman"
cboxil.AddItem "Bayburt"
cboxil.AddItem "Bilecik"
cboxil.AddItem "Bingöl"
cboxil.AddItem "Bitlis"
cboxil.AddItem "Bolu"
cboxil.AddItem "Burdur"
cboxil.AddItem "Bursa"
cboxil.AddItem "Çanakkale"
cboxil.AddItem "Çankırı"
cboxil.AddItem "Çorum"
cboxil.AddItem "Denizli"
cboxil.AddItem "Diyarbakır"
cboxil.AddItem "Düzce"
cboxil.AddItem "Edirne"
cboxil.AddItem "Elazığ"
cboxil.AddItem "Erzincan"
cboxil.AddItem "Erzurum"
cboxil.AddItem "Eskişehir"
cboxil.AddItem "Gaziantep"
cboxil.AddItem "Giresun"
cboxil.AddItem "Gümüşhane"
cboxil.AddItem "Hakkâri"
cboxil.AddItem "Hatay"
cboxil.AddItem "Iğdır"
cboxil.AddItem "Isparta"
cboxil.AddItem "İstanbul"
cboxil.AddItem "İzmir"
cboxil.AddItem "Kahramanmaraş"
cboxil.AddItem "Karabük"
cboxil.AddItem "Karaman"
cboxil.AddItem "Kars"
cboxil.AddItem "Kastamonu"
cboxil.AddItem "Kayseri"
cboxil.AddItem "Kilis"
cboxil.AddItem "Kırıkkale"
cboxil.AddItem "Kırklareli"
cboxil.AddItem "Kırşehir"
cboxil.AddItem "Kocaeli"
cboxil.AddItem "Konya"
cboxil.AddItem "Kütahya"
cboxil.AddItem "Malatya"
cboxil.AddItem "Manisa"
cboxil.AddItem "Mardin"
cboxil.AddItem "Mersin"
cboxil.AddItem "Muğla"
cboxil.AddItem "Muş"
cboxil.AddItem "Nevşehir"
cboxil.AddItem "Niğde"
cboxil.AddItem "Ordu"
cboxil.AddItem "Osmaniye"
cboxil.AddItem "Rize"
cboxil.AddItem "Sakarya"
cboxil.AddItem "Samsun"
cboxil.AddItem "Şanlıurfa"
cboxil.AddItem "Siirt"
cboxil.AddItem "Sinop"
cboxil.AddItem "Sivas"
cboxil.AddItem "Şırnak"
cboxil.AddItem "Tekirdağ"
cboxil.AddItem "Tokat"
cboxil.AddItem "Trabzon"
cboxil.AddItem "Tunceli"
cboxil.AddItem "Uşak"
cboxil.AddItem "Van"
cboxil.AddItem "Yalova"
cboxil.AddItem "Yozgat"
cboxil.AddItem "Zonguldak"


Call RemoveCaption(Me)
Call CreateCmdBar

TextBox1 = Worksheets("Data").Cells(Rows.Count, "A").End(3).Row + 1
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = vbFormControlMenu Then Cancel = True
End Sub