Otomatik olarak sıra numarası vermek

[yavuz829]

Merhaba arkadaşlar ekli dosyamda UserForm1 de verileri aktardığım zaman A1 hücresine otomatik olarak sıra numarası eklemesini istiyorum. Birde eğer oluyorsa sayfalar korumalı olduğu halde Suz işlemi yapmama izin versin. Bu konuda yardım ederseniz sevinirim. İyi çalışmalar.

 

[İhsan Tank]

Merhaba arkadaşlar ekli dosyamda UserForm1 de verileri aktardığım zaman A1 hücresine otomatik olarak sıra numarası eklemesini istiyorum. Birde eğer oluyorsa sayfalar korumalı olduğu halde Suz işlemi yapmama izin versin. Bu konuda yardım ederseniz sevinirim. İyi çalışmalar.

Merhaba
Kaydet kodunu bununla değiştirip dener misiniz_?

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
On Error Resume Next
Dim i As Integer, ts
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
ts = Range("B" & Rows.Count).End(xlUp).Row
Range("A6") = 1
Range("A6:A" & ts).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
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

 

[yavuz829]

Çok teşekürler hocam. Hocam sayfa korumalı olduğu halde Suz işlemini aktif olsa çok iyi olur. Eğer oluyorsa.

 

[İhsan Tank]

Çok teşekürler hocam. Hocam sayfa korumalı olduğu halde Suz işlemini aktif olsa çok iyi olur. Eğer oluyorsa.

Rica ederim
Sorunuzu ayrı bir başlık altında sorunuz.
:keyif: