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
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
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.