DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
kusura bakmayın istediğinizi anlayamadım.leventm' Alıntı:VBE deki tools-refences i tıklayarak işaretli olan referansları yazarmısınız.
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
For a = 1 To Cells(65536, 1).End(xlUp).Row
c = c + 1
For b = 1 To 4
ListBox1.AddItem
ListBox1.List(c - 1, b - 1) = Cells(a, b).Value
Next
Next
End Sub
Private Sub userform_initialize()
Sayfa1.[a1].Select ' sayfa1 a1 hücresini referans olarak seçsin
Range(Selection, Selection.End(xlToRight)).Select ' a1.den sağa doğru dolu hücreleri seçsin
Range(Selection, Selection.End(xlDown)).Select 'seçilenden aşağı doğru dolu hücreleri seçsin
ActiveWorkbook.Names.Add Name:="kod", RefersToR1C1:="=Sayfa1!R1C1:R6C4" 'seçilmiş hücrelere ad tanımlasın, bu adı veri alması gereken hücreleri tanımlamak için kullanacağız
With ListBox1
.ColumnCount = 4 ' 4 sütündan oluşsun
.ColumnHeads = True ' başlıklı yapsın
.ColumnWidths = 30 & ";" & 50 & ";" & 70 & ";" & 90 'veriler arasındaki boşlukları belirlesin
.RowSource = "kod" ' verileri alacağı hücreleri tanısın
End With
End Sub
Private Sub UserForm_Terminate()
ActiveWorkbook.Names("kod").Delete
End Sub
.List(.ListCount - 1, 10) = Cells(i, "l")
.List(.ListCount - 1, 11) = Cells(i, "m")