[Çözüldü] Userformda Yardım

[yesilyurtlu]

Üstadım;
Ekteki dosyada yardımınıza ihtiyacım var.
Fatura Sekmesinde "Form Aç" butonuna klikleyince açılan forma Başlıkları aldırmak, Formun sol tarafına seçim yapmak için checkbox eklemeyi beceremedim.

Zamanınız varsa yardımcı olabilir misiniz?

[Bülent Öztürk]

UserForm_Initialize kodlarınızı aşağıdaki gibi değiştirip, dener misiniz;

Kod: [Seç]

Private Sub UserForm_Initialize()
Sheets("Fatura").Select
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "1;100;100;60;60;60;60;60;60"
ListBox1.RowSource = "A4:I" & [I65536].End(4).Row
ListBox1.ListStyle = fmListStyleOption
Sheets("Ödeme").Select
[B4:I600].ClearContents
End Sub


[yesilyurtlu]

Bülent Abi
Kod tamam eline sağlık. Teşekkür Ederim.
1 - userformda seçmeli olanağını çoklu yapabilir miyiz? Seçenek düğmesi yerine checkbox olabilir mi?
2 - aktar tuşu ile alt alta aktarmayı sağlayabilir miyiz? şu anda sadece 4.satırın üstüne kayıt yapıyor hep



[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

1-Çoklu yaparız. Ancak CheckBox ile olmaz, Listbox özelliğinden faydalanacağız.
2-Aktarma olayı tamam.

Kodlarınızı silip, aşağıdakileri yapıştırın;

Kod: [Seç]

Private Sub CommandButton1_Click()
Set Sayfa = Sheets("Ödeme")
Satir = Sheets("Ödeme").Range("B65530").End(3).Row
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                Satir = Satir + 1
                secilivar = True
                    For j = 0 To 7
                        Sayfa.Cells(Satir, j + 1) = .List(i, j)
                    Next
                End If
        Next i
    End With
If secilivar = False Then MsgBox "Lütfen En Az Bir Tane Kayıt Seçiniz...."
End Sub


Private Sub UserForm_Initialize()
Sheets("Fatura").Select
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 9
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.ColumnWidths = "1;100;100;60;60;60;60;60;60"
ListBox1.RowSource = "A4:I" & [B65536].End(3).Row
ListBox1.ListStyle = fmListStyleOption
Sheets("Ödeme").Select
'[A4:I600].ClearContents
End Sub



[yesilyurtlu]

Bülent Abi ;
Göstermiş olduğunuz ilgi ve alaka için Teşekkür ederim.Hakkını Helal Et

"ÇÖZÜLDÜ"