ComboBox verileri

[TURGAY]

Arkadaşlar Basit bir takip programında sayfa 2 deki verileri User Formada bulunan combobox a getirmek istiyorum ama olmadı. Ayrıca girilen verileri kaydedebilmek için kaydet butonuna makroyu yapamadım.yardımlarınıza ihtiyacım var TURGAY

 

[cako]

userformun initialize olayına aşağıdaki kodu yapıştırın.

[vb:1:09f07ad1d3]ComboBox1.RowSource = "Sayfa2!A3:A" & Worksheets("Sayfa2").Range("A65536").End(xlUp).Row[/vb:1:09f07ad1d3]

diğer comboboxda da uygun yerleri yani sütun adlarını değiştireceksiniz.

 

[TURGAY]

kardeş bu konuda bilgim kısıtlı. dosya üzerinde bi comboboxa sen yerleştirirsen diğerlerini ona göre ben yapabilirim ayrıca kaydet ile ilgili bir makroyada ihtiyacım var selamlar TURGAY

 

[metinozlu]

kaydet kodları:
Private Sub CommandButton6_Click()
If TextBox24.Value = "" Then
MsgBox ("Mutlaka Borçlu adını yazmalısınız"), , " YANLIÞÞÞÞÞ"
TextBox24.SetFocus

Exit Sub
Else
End If

Sheets("veri").Select
Dim bak As Range
Dim say As Integer
For Each bak In Range("y2:y2000")
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox24.Value, vbUpperCase) Then
'MsgBox "Bu isimde bir kaydınız bulundu"
Range(bak.Address).Select
MsgBox ("Belirtilen isimde kayıt var,Lütfen ismin sonuna .")
TextBox24.SetFocus

Exit Sub
End If
Next bak


On Error Resume Next

Sheets("veri").Select
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
Range("a2").Value = 1
Else

ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If

Dim m As Integer
For m = 1 To 113
ActiveCell.Offset(0, m).Value = Controls("TextBox" & m).Value
Next m
ActiveCell.Offset(0, 11).Value = ComboBox3.Value
ActiveCell.Offset(0, 12).Value = ComboBox4.Value
ActiveCell.Offset(0, 13).Value = TextBox97.Value

TextBox94.Value = ""

MsgBox ("Dosya Veri tabanına kayıt edilmiştir.")

End Sub

 

[TURGAY]

arkadaşlar burada kaldık böyle bi müslüman yokmu bu excell fakirine yardımcı olacak. LÜTFEN

 

[isakarakus]

merhaba
atamaları yaptım.
geliştirmesi senden

 

[TURGAY]

sğolasın kardeşim