25/11/2011, 08:26
Sayfalar: 1 2
29/11/2011, 01:32
Kod:
Private Sub UserForm_Initialize()
ListBox2.Clear
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 1) = "(" Then
ListBox2.AddItem Sheets(i).Name
End If
Next
End Sub30/11/2011, 21:43
Çok teşekürler hocam. Hocam UserForm1 de veri girişi yapıp verileri aktardığım zaman A1 sutununa otomatik olarak sıra numarası verilmesi için aşağıdaki kodları değiştirirseniz sevinirim.
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
On Error Resume Next
Dim i As Integer
For i = 6 To 32000
If (ActiveSheet.Cells(i, 1) = "") Then
ActiveSheet.Cells(i, 1) = CDate(ComboBox2)
ActiveSheet.Cells(i, 2) = ComboBox3.Text
ActiveSheet.Cells(i, 3) = TextBox3.Text * 1
ActiveSheet.Cells(i, 4) = TextBox4.Text * 1
ActiveSheet.Cells(i, 5) = TextBox5.Text * 1
ActiveSheet.Cells(i, 6) = TextBox10.Text * 1
ActiveSheet.Cells(i, 7) = TextBox11.Text * 1
ActiveSheet.Cells(i, 8) = TextBox13.Text * 1
ActiveSheet.Cells(i, 9) = TextBox6.Text * 1
ActiveSheet.Cells(i, 10) = TextBox7.Text * 1
ActiveSheet.Cells(i, 11) = ComboBox1.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
ActiveSheet.Protect "123"
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
ComboBox2.Text = [L7]
UserForm_Initialize
Exit Sub
End If
Next i
End Sub
02/12/2011, 12:08
En son kaldığınız örneği eklerseniz yardımcı olarabilrim bu şekilde çok sağlıklı olmaz.
04/12/2011, 03:58
Hocam ilgilendiğiniz için çok teşekürler sorunum hal oldu.
Sayfalar: 1 2