BİLGİ GİRİŞİ

[YAMAHATO]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Herkese merhaba.
Ufak bir yardıma ihtiyacım var.
Şimdiden teşekkür ederim.
1. Userform2 her açıldığında sahibinden no kısmına kaydedilen verilerin saklandığı sahibinden sayfasında ki A sütununda bulunan en yüksek sayılı VH kodunun 1 fazlasının gelmesini nasıl sağlarız. Bu işlemi yapabilirsek kullanıcı her seferinde yeni tanımlayacağı ürün için gireceği VH kodlu sayıyı bulabilmek adına sahibinden sayfasına gidip aramayacak. Userform açıldığında otomatik olarak gelen VH koduna kaydedecek.
2.
Cells(satır, 1) = TextBox1 'SAHİBİNDEN NO
.Cells(satır, 2) = TextBox5 'MALZEME (Parça ismi)
.Cells(satır, 3) = TextBox4 'ÜRÜNÜN DURUMU
.Cells(satır, 5) = TextBox2 'ORJİNAL PARÇA NO
.Cells(satır, 6) = TextBox8 'ÜRETİCİ FİRMA PARÇA NO
Bu textboxlara herhangi bir giriş yapılmadığı zaman kayıt yapmasını engelleye bilirseniz baya güzel olur. Böylece yanlışlıkla yada hatalı kayıt olmaz. ve kayıt kodu her seferinde kaydettiği satırdan bir sonrakine kayıt yaptığı için yanlışlıkla kaydet butonuna basıldığında veya minimum bilgiler girilmediğinde oluşan satır boşluğu olmaz gibi me geliyor.
ÖRNEK DOSYA LİNKİ

JOSSEF Kayıt: 20 Haz 2020 09:02Meslek: ESNAFYaş: 39İleti: 1 Cinsiyet: BayBulunduğunuz İl / Semt: İZMİR

 

izin başlangıç ve bitiş tarihlerini bulma

Ortalama formülü

[leguminosea]

1. sorunuzun cevabı

Private Sub UserForm_Initialize()
sonsat = Sheets("SAHİBİNDEN").Cells(Rows.Count, 1).End(xlUp).Row
ReDim VH(sonsat - 1, 1)
For i = 2 To sonsat
    a = Sheets("SAHİBİNDEN").Cells(i, 1)
    b = VBA.Len(a) - 2
On Error Resume Next
    b = WorksheetFunction.Find("-", a, 1) - 3
    c = Mid(a, 3, b) * 1
    VH(i - 1, 1) = c
Next i
    d = WorksheetFunction.Max(VH) + 1
If d < 1000 Then d = "VH0" & d Else d = "VH" & d
UserForm2.TextBox1.Text = d
End Sub

 

[leguminosea]

Dosyanız ektedir.

 

[MESKO]

Dosyanız ektedir.

Harf ve sayı olarak sıra no kodları çok işime yarayacak. Arşive alınmıştır.
Çok teşekkürler.
Emeğinize sağlık.

Saygılar.

 

[YAMAHATO]

Dosyanız ektedir.

Çok teşekkür ederim. Sağolun varolun.