Soru Otomatik kod verme ve bir koşula göre verileri başka sayfaya kaydetme

[Erkan Yılmaz]

Merhaba Üstadlarım,

Ek'te göndermiş olduğum dosyada ve ekran görüntüsü göndermiş olduğum Ödenmez Giriş Ekranı userformunda Ekstra Satış bilgileri sekmesini seçtiğim zaman excel ayarlar sayfasında ki E2 hücresinde bulunan kod sistemini referans alarak ve kayıt sırasına göre Ekstra Satış kayıt numarası vermesini istiyorum. Diğer Ödenmez bilgileri sekmesinde olduğu gibi.

Personel seçimini ve personel bilgilerini kendim userform'a getirmeyi başarabildim.

Ayrıca Ekstra satış bilgileri sekmesini seçtiğim zaman personel seçtiğim zaman personel bilgileri varsa yada adisyon numarası yazdığım zaman nasıl bir koşul olacak bilmiyorum bunlar varsa EĞER userformda ki bilgileri "satışdata" excel sayfasına kayıt etmesini istiyorum.

Konuyla ilgili desteklerinizi rica ederim.

Güncel dosya ek'tedir.

Şimdiden teşekkür ederim..

İndir

Dosyayı indir

dosya.co

İndir

Dosyayı indir

dosya.co

İndir Ekstra Satış Ödenmez Maliyetleri Güncel

Dosyayı indir Ekstra Satış Ödenmez Maliyetleri Güncel

dosya.co

 

[YUSUF44]

Dosyanızda çok fazla makro, form ve kod var. Bu nedenle tam istediğiniz sonuç mu bilmiyorum. Aşağıdaki kodları userformun initialize bölümüne ekleyip sonucu inceleyin:

Set s1 = Sheets("SatışData")
son = s1.Cells(Rows.Count, "A").End(3).Row
TextBox162.Text = "STS" & Format(son, "0000")