Sayı numarasına göre veri kaydetme

[Lokmanx]

Merhaba ,

Ekte yer alan dosyada veri kayıt ekranında kayıt numarası girdiğimde Data sayfasında yer alan ilgili isimdeki alana verileri kaydemesini istiyorum.

Daha önce veri gişi yaptığım bir alana yeni bilgiler gelince onlarıda kaydetmek maksatlı.

Yani 4536 numarasını texbox a girdiğimde karşsında yer alan ALAN12 İLE ALAN 19 arasındaki hücrelere kaydetmesi için yardımcı olabilir misiniz.

İyi çalışmalar

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub CommandButton1_Click()

    Dim Sd As Worksheet, c As Range, sat As Long, i As Byte, sut As Integer
        
    Set Sd = Sheets("Data")
    sut = 13
    
    Set c = Sd.[B:B].Find(TextBox9, , xlValues, xlWhole)
    If Not c Is Nothing Then
        sat = c.Row
    Else
        sat = Sd.Cells(Rows.Count, "B").End(xlUp).Row + 1
        Sd.Cells(sat, "B") = TextBox9
    End If
    
    For i = 1 To 8
        Sd.Cells(sat, sut + i - 1) = Controls("TextBox" & i)
    Next i
  
End Sub

 

[Lokmanx]

Teşekkür ederim Ömer Bey çalışıyor

İyi çalışmalar