Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 11 Mayıs 2010, 20:45:05
-
Ü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?
-
UserForm_Initialize kodlarınızı aşağıdaki gibi değiştirip, dener misiniz;
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
-
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.]
-
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;
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
-
Bülent Abi ;
Göstermiş olduğunuz ilgi ve alaka için Teşekkür ederim.Hakkını Helal Et
"ÇÖZÜLDÜ"