Makroda otomatik kod verme

[Erkan Yılmaz]

Merhaba Arkadaşlar,

Excel de kendimce bir program yapmak istiyorum. Çok fazla makro bilgim yok ama sizlerinde yardımı ile tamamlayabilirsem çok memnun olacağım aynı zamanda da makroyu öğrenmiş olacağım.

Göndermiş olduğum dosyada userform 2 de kayıt işlemi yaptığım zaman excel deki kategori sayfasına işlem yapıyor ancak ben userform2 yi açtığım zaman kategori sayfasında ki kayıta göre kodların otomatik gelmesini istiyorum.

Örnek verecek olursam ;

Userform 2 de ilk yeni kayıt atıyorsam kategori kodu 01 olarak otomatik gelsin ama excele kayıt attıysam 01 parfüm diye bir sonraki kayıtta kod otomatik olarak 02 olarak gelmesini istiyorum.

Konu hakkında yardımcı olursanız sevinirim.

http://www.dosya.tc/server14/0fu1c8/2018_Stok_Kodlari_Makro.rar.html

 

[Orion1]

Dosya linktedir.

Private Sub CommandButton1_Click()
Dim myid As Long, sonsat As Long
sonsat = Sheets("Kategori").Cells(Rows.Count, "B").End(xlUp).Row + 1
Sheets("Kategori").Cells(sonsat, "B").Value = TextBox1.Value
Sheets("Kategori").Cells(sonsat, "C").Value = TextBox2.Value
myid = CLng(WorksheetFunction.Max(Sheets("Kategori").Range("B3:B" & Rows.Count))) + 1
TextBox1.Text = myid
MsgBox ("Kayıt Tamamlandı")
TextBox2.Text = ""
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = CLng(WorksheetFunction.Max(Sheets("Kategori").Range("B3:B" & Rows.Count))) + 1
End Sub

DOSYAYI INDIR

.

 

[Erkan Yılmaz]

Dosya linktedir.

Private Sub CommandButton1_Click()
Dim myid As Long, sonsat As Long
sonsat = Sheets("Kategori").Cells(Rows.Count, "B").End(xlUp).Row + 1
Sheets("Kategori").Cells(sonsat, "B").Value = TextBox1.Value
Sheets("Kategori").Cells(sonsat, "C").Value = TextBox2.Value
myid = CLng(WorksheetFunction.Max(Sheets("Kategori").Range("B3:B" & Rows.Count))) + 1
TextBox1.Text = myid
MsgBox ("Kayıt Tamamlandı")
TextBox2.Text = ""
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = CLng(WorksheetFunction.Max(Sheets("Kategori").Range("B3:B" & Rows.Count))) + 1
End Sub

DOSYAYI INDIR

.

Sayın Orion1,

Çok Teşekkür ederim. Elinize Sağlık..

 

[Orion1]

Sayın Orion1,

Çok Teşekkür ederim. Elinize Sağlık..

Rica ederim.
İyi çalışmalar.