Açık olan sayfanın son satırına kayıt yapsın

[ferhatgurbuz]

Arkadaşlar ekteki dosya üzerinde acıkladğım gibi userform üzerinde OptionButtonlar ile sayfaları seçiyorum. Seçtiğim sayfaya form üzerinde bilgi giriyorum ve kaydet dediğimde boş olan hücreye kayıt yapsın istiyorum. İlgilendiğiniz içim şimdiden teşekkür ederim.

 

[Orion1]

Ekli dosyayı inceleyiniz

Private Sub CommandButton8_Click()
Dim sat As Long, i As Byte
sat = Cells(40, "A").End(xlUp).Row + 1
If sat >= 39 Then Exit Sub
For i = 5 To 8
    If Controls("OptionButton" & i).Value = True Then
        Cells(sat, "A").Value = Controls("OptionButton" & i).Caption
        say = 1
    End If
Next i
If say = 0 Then
    MsgBox "Lütfen Seçeneklerden bir tanesini seçiniz..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
Cells(sat, "F").Value = TextBox22.Value
Cells(sat, "G").Value = TextBox23.Value * 1
MsgBox "Giriş Yapıldı.!", vbOKOnly + vbInformation, "Kayıt"
End Sub

 

[ferhatgurbuz]

Sayın Hocam çok teşekkür ederim. Ellerine sağlık. Çok güzel olmuş.

 

[Orion1]

Sayın Hocam çok teşekkür ederim. Ellerine sağlık. Çok güzel olmuş.

Rica ederim.
İyi çalışmalar.

 

[ferhatgurbuz]

Sayın Orion2 Hocam Yukarıda vermiş olduğunuz kodda Hangi Option Buttonu seçersem o Option Butttonun ismi A sutunundaki hücreye yazılıyor. Şöyle birşey yapabilirmiyiz. Eğer TextBox21 boş ise Aynen OptionButtonun ismini A sutunudaki hücreye yazsın, Fakat eğer TextBox21 de bilgi var ise o bilgiyi A sutunundaki hücreye yazsın. Eğer mümkün olursa çok makbule geçecek. Bazen istisnalar oluyor. elle yazmam gereken.

 

[Orion1]

Sayın Orion2 Hocam Yukarıda vermiş olduğunuz kodda Hangi Option Buttonu seçersem o Option Butttonun ismi A sutunundaki hücreye yazılıyor. Şöyle birşey yapabilirmiyiz. Eğer TextBox21 boş ise Aynen OptionButtonun ismini A sutunudaki hücreye yazsın, Fakat eğer TextBox21 de bilgi var ise o bilgiyi A sutunundaki hücreye yazsın. Eğer mümkün olursa çok makbule geçecek. Bazen istisnalar oluyor. elle yazmam gereken.

Aşağıdaki kodları kullanınız.

Private Sub CommandButton8_Click()
Dim sat As Long, i As Byte
sat = Cells(40, "A").End(xlUp).Row + 1
If sat >= 39 Then Exit Sub
If TextBox21.Value = "" Then
    For i = 5 To 8
        If Controls("OptionButton" & i).Value = True Then
            Cells(sat, "A").Value = Controls("OptionButton" & i).Caption
        End If
    Next i
    Else
    Cells(sat, "A").Value = TextBox21.Value
End If
Cells(sat, "F").Value = TextBox22.Value
Cells(sat, "G").Value = TextBox23.Value * 1
MsgBox "Giriş Yapıldı.!", vbOKOnly + vbInformation, "Kayıt"
End Sub

 

[ferhatgurbuz]

teşekkür ederim . hayırlı çalşımalar

 

[Orion1]

teşekkür ederim . hayırlı çalşımalar

Rica ederim.
İyi çalışmalar.