userform textbox buton ile belirli hücrelere kaydetme

[netvolxxx]

merhaba arkadaşlar
userform da textbox a yazdğım kaydet tuşuna bastığımda sayfa1 de b12 ile b16 arasında kayıt yapmasını sırası ile kaydet yaptğımda b12 ye sonra tekrar veri girdim kaydet dedim b13 bu şekilde istiyorum başka bir hücreye kayıt yapamasın. (b12:b16)
ben uğraştım fakat şurda takıldım kayıt yapıyor istediğim hücrelere ama bu b12 ile b16 arası dolu ise kayıt yapamazsınz diye uyarı versin beceremedim..

konu ile ilgili arkadaşlardan destek bekliyorum..

 

[tugkan]

Merhaba,
Dener misiniz? Bunu yapmak için VBA kodunu şu şekilde oluşturabilirsiniz. Bu kod, B12:B16 aralığındaki hücrelerin sırasıyla dolmasını sağlar ve bu aralıktaki tüm hücreler dolu olduğunda bir uyarı mesajı verir.

Aşağıdaki kodu UserForm'unuzdaki Kaydet butonunun Click olayına ekleyin:

Private Sub btnKaydet_Click()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' Sayfa1'i ws değişkenine atayalım
    Set ws = ThisWorkbook.Sheets("Sayfa1")
    
    ' B12:B16 hücre aralığını kontrol edelim
    For i = 12 To 16
        If IsEmpty(ws.Range("B" & i).Value) Then
            ws.Range("B" & i).Value = Me.TextBox1.Value
            MsgBox "Veri başarıyla kaydedildi: " & "B" & i
            Exit Sub
        End If
    Next i
    
    ' Eğer döngü bittiyse ve boş hücre bulunamadıysa, uyarı verelim
    MsgBox "B12:B16 aralığında boş hücre yok. Yeni kayıt yapamazsınız.", vbExclamation
End Sub

Kodun Çalışma Mantığı

1. For döngüsü ile B12 ile B16 arasındaki hücreleri sırayla kontrol eder.
2. IsEmpty fonksiyonuyla, boş bir hücre bulursa, TextBox1'e girilen değeri bu hücreye kaydeder ve başarılı bir şekilde kaydedildiğini belirtir.
3. Tüm hücreler doluysa, döngü sona erdiğinde bir uyarı mesajı verir ve kaydetme işlemini durdurur.

Bu sayede B12:B16 aralığında boş hücre kalmadığında uyarı mesajı alırsınız ve yeni bir kayıt yapılmaz.