Optionbutton ile istenilen sütuna kayıt yapma

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar;
Ekli dosyam ile http://s6.dosya.tc/server6/3vy9do/KESINTILER.xls.html

Userform1 üzerinde bulunan ComboBox1 ile personel seçilip TextBox3 ile yazılan miktar kaydet bütonu ile (CommandButton3) LİSTE sayfamın AB Sütununa yazıyor. CheckBox1 işaretlendiğinde de TextBox3'e yazılan miktar bütün personele eşit yazıyor.

İsteğim Şu: OptionButtonlar seçildiğinde bu özellik X,Y,Z,AA VE AB sütunlarına yazmasını istiyorum. Şuanki mevcut kod sadece AB sütununa yazıyor. X sütunu yazılı OptionButton seçildiğinde veriler X sütununa, Y sütunu yazılı OptionButton seçildiğinde verier Y sütununa yazsın. Teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

"AB" yazan kısım kaldıysa sütun yazarak değiştirin.

Private Sub CommandButton3_Click()
    
    For i = 1 To 5
        If Controls("OptionButton" & i) = True Then
            sütun = Split(Controls("OptionButton" & i).Caption, " ")(1)
        End If
    Next i
    If sütun = "" Then
        MsgBox "Sütun Seçimi Yapmadınız!..", vbCritical
        Exit Sub
    End If
    
    If IsNumeric(TextBox3.Text) = False Then
        MsgBox "Sayısal bir değer girmelisiniz.", vbCritical, "UYARI"
        Exit Sub
    End If
    SAT = ComboBox1.ListIndex + 2
    If CheckBox1.Value = True Then
        For i = 2 To Worksheets("LİSTE").Cells(Rows.Count, "C").End(3).Row
            Sheets("LİSTE").Cells(i, "AB").Value = "#,##0.00"            
            Sheets("LİSTE").Cells(i, sütun).Value = "#,##0.00"
            Sheets("LİSTE").Cells(i, "AB").Value = TextBox3.Text * 1
            Sheets("LİSTE").Cells(i, sütun).Value = TextBox3.Text * 1
        Next
        TextBox3.Value = ""
        MsgBox "Aktarım yapıldı.", vbInformation, "DURUM"
    Else
        Sheets("LİSTE").Cells(SAT, "AB").Value = "#,##0.00"
        Sheets("LİSTE").Cells(SAT, sütun).Value = "#,##0.00"
        Sheets("LİSTE").Cells(SAT, "AB").Value = TextBox3.Text * 1
        Sheets("LİSTE").Cells(SAT, sütun).Value = TextBox3.Text * 1
        MsgBox "Aktarım yapıldı.", vbInformation, "DURUM"
    End If
    TextBox3 = ""
    UserForm_Initialize
End Sub

. . .

 

[veyselemre]

Private Sub CommandButton3_Click()
    If IsNumeric(TextBox3.Text) = False Then
        MsgBox "Sayısal bir değer girmelisiniz.", vbCritical, "UYARI"
        Exit Sub
    End If
    SAT = ComboBox1.ListIndex + 2

    If OptionButton1 Then
        sut = 24
    ElseIf OptionButton2 Then
        sut = 25
    ElseIf OptionButton3 Then
        sut = 26
    ElseIf OptionButton4 Then
        sut = 27
    Else
        sut = 28
    End If

    If CheckBox1.Value = True Then
        For i = 2 To Worksheets("LİSTE").Cells(Rows.Count, "C").End(3).Row
            Sheets("LİSTE").Cells(i, sut).Value = "#,##0.00"
            Sheets("LİSTE").Cells(i, sut).Value = TextBox3.Text * 1
        Next
    Else
        Sheets("LİSTE").Cells(SAT, sut).Value = "#,##0.00"
        Sheets("LİSTE").Cells(SAT, sut).Value = TextBox3.Text * 1
    End If
    MsgBox "Aktarım yapıldı.", vbInformation, "DURUM"
    TextBox3 = ""
    UserForm_Initialize
End Sub

 

[veyselemre]

Mükerrer post.

 

[Hacı Bayram ÖZKAN]

Merhaba Emir Hüseyin Bey; Kodunuz çalıştı ancak şöyle bir eksik oluyor, Z sütununa değer girince yani bu sütun için aynı zamanda AB Sütununada yazıyor, birde AA'ya da değer girince bunun aynısını yine AB'ye yazıyor. Bu ikisinde yanlışlık yapıyor buna bakabilir misiniz. Teşekkürler

 

[Hacı Bayram ÖZKAN]

Sayın Veysel Emre bey; sizin kodunuz bütün personele işaretleyince yapıyor ama ferdi personelde kayıt yapmıyor. Yani tek tek personele miktar gireceğim zaman yapmıyor.

 

[Emir Hüseyin Çoban]

. . .

Soruda şöyle bir kısım geçince ben hem seçilen alana hemde AB sütununa yine yazmalı diye yorumladım.

İsteğim Şu: OptionButtonlar seçildiğinde bu özellik X,Y,Z,AA VE AB sütunlarına yazmasını istiyorum.

Sheets("LİSTE").Cells(i, "AB").Value= satırlarını silebilirsiniz.

. . .

 

[Hacı Bayram ÖZKAN]

Hüseyin bey eline sağlık güzel oldu eksik olmayın efendim, birde silmek için şu

Private Sub CommandButton6_Click()
If MsgBox("EK ÖDEMEYİ SİLMEYİ ONAYLIYOR MUSUNUZ?", vbInformation + vbYesNo, "::LÜTFEN DİKKAT::..") = vbNo Then Exit Sub
Range("AB2:AB200") = ""
MsgBox "EK ÖDEME SİLİNDİ", vbInformation, "DURUM"
End Sub

kodu nasıl değiştirmem lazım
vaktiniz varsa efendim bunada bir bakar mısınız. Teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Private Sub CommandButton6_Click()
    
    For i = 1 To 5
        If Controls("OptionButton" & i) = True Then
            sütun = Split(Controls("OptionButton" & i).Caption, " ")(1)
        End If
    Next i
    If sütun = "" Then
        MsgBox "Sütun Seçimi Yapmadınız!..", vbCritical
        Exit Sub
    End If
    
    If MsgBox("EK ÖDEMEYİ SİLMEYİ ONAYLIYOR MUSUNUZ?", vbInformation + vbYesNo, "::LÜTFEN DİKKAT::..") = vbNo Then Exit Sub
    Range(sütun & "2:" & sütun & "200") = ""
    MsgBox "EK ÖDEME SİLİNDİ", vbInformation, "DURUM"
    
End Sub

. . .

 

[Hacı Bayram ÖZKAN]

Abi çok hızlısın ya... eline sağlık teşekkür ederim dua ile kal eksik olma...

 

[metince54]

banada yardımcı olur musunuz.secilen optıonbutton istediğim sayfaya yazdırsın

 

[Orion1]

banada yardımcı olur musunuz.secilen optıonbutton istediğim sayfaya yazdırsın

Örnek dosya için upload sitelerinden için link veriniz.