- Katılım
- 30 Mart 2010
- Mesajlar
- 240
- Excel Vers. ve Dili
- 2007,2010,2013
- Altın Üyelik Bitiş Tarihi
- 29-05-2021
Merhaba,
"1706 Tarihli Liste" adlı sayfa 6. sayfam yani Sayfa6 ve adı değişken bir sayfa.
Aşağıdaki kodu Sayfa6'ya göre revize etmeye çalıştım ama çalıştıramadım.
Yardımcı olur musunuz?
Teşekkürler.
"1706 Tarihli Liste" adlı sayfa 6. sayfam yani Sayfa6 ve adı değişken bir sayfa.
Aşağıdaki kodu Sayfa6'ya göre revize etmeye çalıştım ama çalıştıramadım.
Yardımcı olur musunuz?
Teşekkürler.
Kod:
Private Sub cmd_yukari_Click()
If ListBox1.ListIndex = 0 Then Exit Sub
Rows(ListBox1.ListIndex + 4).Cut
Rows(ListBox1.ListIndex + 3).Insert Shift:=xlUp
ListBox1.RowSource = "'1706 Tarihli Liste'!B4:L" & [B17].End(xlUp).Row
ListBox1.ListIndex = ListBox1.ListIndex - 1
UserForm_Initialize
End Sub