Farklı sütunlara alt alta kayıt yapmak

[gokbel042]

Arkadaşlar kandiliniz mübarek olsun

Çalışma sayfamda ÜRETİM sayfasında a15-c15-d15-h15-ve ı15 hücrelerine kayıt yapıyorum fakat ikinci kaydı yine aynı hücrelere yapıyor değiştiremedim bir türlü

ikinci kaydı ve diğerlerini dosyada kırmızı olan hücrelerin altına kayıt yapmalı

ayrıca userformda MÜŞTERİ EKLE formu var , ordaki son kod textboxuna müşteri veri sayfasında en son kodu yazmasını istiyorum.

Yardımlarınız için şimdiden teşekkürler,

Saygılar

 

[Necdet]

Merhaba,

Tam anlamamış olabilrim ama aşağıdaki kodları deneyiniz ya da size bir fikir verebilir.
Farklı yazım da olası.

Private Sub CommandButton1_Click()
    
    Dim SonSat As Long
    
    Sheets("ÜRETİM").Select
    
    SonSat = Cells(Rows.Count, "A").End(3).Row + 1
    If SonSat < 15 Then SonSat = 15
    Range("A" & SonSat).Select
    
    ActiveCell.Offset(0, 0).Value = TextBox1.Value
    ActiveCell.Offset(0, 2).Value = TextBox2.Value
    ActiveCell.Offset(0, 3).Value = TextBox3.Value
    ActiveCell.Offset(0, 7).Value = TextBox4.Value
    ActiveCell.Offset(0, 8).Value = TextBox5.Value
    MsgBox "Kayit islemi Tamamlandi", vbInformation
    
End Sub

ActiveCell.Offset(0, 2).Value = TextBox2.Value

yerine

Cells(SonSat, "C") = TextBox2
Cells(SonSat, "D") = TextBox3

gibi de kullanabilirsiniz.

 

[gokbel042]

Necdet bey kodlar çalıştı sağolun

ayrıca userform2 de son kod adında textbox var oraya müşteri veri sayfasında A sutunundaki son dolu hücrenin değerini form açıldığında otomatik yazılmasını istiyorum

Saygılar

 

[gokbel042]

Ayrıca verileri kaydet dedik mi kaydettikten sonra textboxları temizlesin

 

[Necdet]

Necdet bey kodlar çalıştı sağolun

ayrıca userform2 de son kod adında textbox var oraya müşteri veri sayfasında A sutunundaki son dolu hücrenin değerini form açıldığında otomatik yazılmasını istiyorum

Saygılar

Merhaba,

Userform2'nin kod sayfasına aşağıdaki kodları kopyalayınız.

Private Sub UserForm_Initialize()
    Dim SonRow  As Long 'Son Dolu Satır Numarası
    Dim sm      As Worksheet
 
    Set sm = Sheets("MÜŞTERİ VERİ")
 
    SonRow = sm.Cells(Rows.Count, "a").End(3).Row
 
    If SonRow < 2 Then SonMusteriNo = 2
 
    TextBox8.Value = sm.Cells(SonRow, "A")
 
End Sub

Kayıt yapıldıktan sonra TextBox'ları temizlemek zor değil.

TextBox1.Value = ""
TextBox2.Value = ""

gibi kullanabilirsiniz.