optionbuttpn ve checkbox hakkında

[Amaxx]

günaydın arkadaşlar, optionbuttpn ve checkbox hakkında 2 sorumu ekteki dosyada form üzerine yazdım, yardımcı olursanız çok sevinirim.

 

[Orion1]

Veri kayıtlarda yoksa kayıtlara ekleme bölümü bana ait.Verinizi giriniz ve,Veri al butonuna basınız.

Private Sub CommandButton1_Click()
Dim k  As Range
If ComMusteri.Value = "" Then Exit Sub
Set k = Sheets("veri").Range("A2:A65536").Find(ComMusteri.Value, , xlValues, xlWhole)
If k Is Nothing Then
    If MsgBox("[ " & ComMusteri.Value & " ] isim kayıtlarda yok ..!!" & _
    vbLf & "Kaydetmek istiyormusunuz?", vbYesNo + vbQuestion, "KAYIT") = vbNo Then GoTo atla
    sat = Sheets("veri").Cells(65536, "A").End(xlUp).Row + 1
    If sat >= 65533 Then
        MsgBox "veri sayfası doldu.Başka kayıt yapamazsınız..!!", vbCritical, "DİKKAT"
        Exit Sub
    End If
    With Sheets("veri")
        .Cells(sat, "A").Value = ComMusteri.Value
        .Cells(sat, "B").Value = TextBox1.Value
        If CheckBox1.Value = False Then
            .Cells(sat, "D").Value = "Peşin"
            Else
            For i = 1 To 3
                If Controls("OptionButton" & i).Value = True Then
                    .Cells(sat, "E").Value = Controls("OptionButton" & i).Caption
                    Exit For
                End If
            Next i
        End If
    End With
Exit Sub
End If
atla:
End Sub

 

[Amaxx]

Evren bey ilginize teşekkürler ancak bir konuda isteğim olmadı... önce varolan kayıtlardan bir MÜŞTERİ NO seçince ve sonra VERİ AL butonuna basınca O numaraya ait bilgiler sheets("tablo") sayfasındaki ödeme seçenekleri alttaki checkbox ve optionbutonlara yansımalı.

 

[Amaxx]

ekteki dosyada tablo sayfası düzenlenmiştir

 

[Orion1]

Veri kayıtlarda yoksa kayıtlara ekleme bölümü bana ait.Verinizi giriniz ve,Veri al butonuna basınız.

Evren bey ilginize teşekkürler ancak bir konuda isteğim olmadı... önce varolan kayıtlardan bir MÜŞTERİ NO seçince ve sonra VERİ AL butonuna basınca O numaraya ait bilgiler sheets("tablo") sayfasındaki ödeme seçenekleri alttaki checkbox ve optionbutonlara yansımalı.

Yukarıda belirttiğim gibi sadece sorunuzun bir bölümünü yaptım.
Sorularınızn yanıtlanması için sorularınızı madde madde değil her seferinde bir soru sorun.

 

[Amaxx]

peki... bundan sonra ayrı ayrı sorarım....