userform ve listbox

[maras321]

Private Sub UserForm_Initialize()
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 23
ListBox1.RowSource = "GENEL!A1:IV6000"
With UserForm2
.Height = Application.Height
.Width = Application.Width
End With

End Sub

arkadaşla bu formül ile giemiş olduğum verileri görebiliyorum benim istediğim ise en son girilen verileri görmek?
ayrıca userform5 deki textboxta ise girmiş olduğum sayıyı tekrar girmek istemiyorum örnegin 971788 bunu eger varsa kaydettiğim yerde uyarı versin istiyorum?
saygılar..

 

[Orion1]

Listbox'ta son satır listeleniyor.
İşte kodlar.

Dim son As Long
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 23
son = Cells(65536, "A").End(xlUp).Row
ListBox1.RowSource = "GENEL!A" & son & ":IV" & son
With UserForm2
.Height = Application.Height
.Width = Application.Width
End With

 

[maras321]

teşekkürler hocam

 

[Orion1]

hocam bu kodları nereye ekleyecegim

Userformun initialize olayında yazdılan kodlar bu kodlar.Sizin verdiğiniz kodları bu şekilde düzenledim.Oradaki ilgili kodları silip bunları yazınız.:cool.

 

[maras321]

peki hocam aynı userform üzerin combobox1,2,3 var bunlar excel sayfanıda açıklamaları mevcut bunları seçtiğim zaman nasıl listboxta gösteririm

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[maras321]

hocam elleriniza sağlık tam istrediğim gibi olmuş.

 

[Orion1]

hocam elleriniza sağlık tam istrediğim gibi olmuş.

Rica ederim.
iyi çalışmalar.

 

[mami67]

Sayın gizlen döktürmüşzünüz gene elinize sağlık

 

[maras321]

""sayın GİZLEN hocamın daha önce yazmış olduğunuz formuldür.""


Private Sub ComboBox5_Change()
Call maddeler_liste
End

Sub maddeler_liste()
Dim i As Long, a As Long, deg As String
ReDim myarr(1 To 1, 1 To 1)
ComboBox14.Clear
Set sv = Sheets("veriler")
For i = 2 To sv.Cells(65536, "F").End(xlUp).Row
deg = sv.Cells(i, "F").Value
If deg = ComboBox5.Value Then
a = a + 1
ReDim Preserve myarr(1 To 1, 1 To a)
myarr(1, a) = sv.Cells(i, "G").Value
End If
Next i
If a > 0 Then
ComboBox14.Column = myarr
ComboBox14.ListIndex = 0
Erase myarr
End If
Set sv = Nothing
End Sub



Hocam veriler sayfasına h sutununa açıklama ekledim user forma da bir adet TextBox ekledim açıklamayı üsteki formülle birlikte nasıl textboxta gösteririm.

 

[maras321]

olmadı hallettim dedim ama olmuyor hata veriyor neden acaba?