Listbox ta satıra tıklayınca o sayfadaki satırı seçsin

[heft]

Selam arkadaşlar,
Bir şekilde yaptım.(arşivinizden faydalandım) TEÞEKKÜR
Ancak eki incelerseniz şöyle bişi yapmak istiyorum.
Listboxta satır seçildiğinde aşağı ve yukarı seçileni taşımak istiyorum.
ancak bu taşıma sayfa 1 de de eş zamanlı olacak.(satırlar kendi içinde formüllü yanlız)
Ã?r:
B satırı seçilip aşağı butonuna basılınca sıralama A-C-B-D-E-F-G-H
YADA
C satırı seçilip yukarı butonuna basılınca sıralama A-C-B-D-E-F-G-H
olarak yapabilir miyiz ?

 

[heft]

ne olur
yardım lütfen

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[veyselemre]

eki incele

 

[heft]

SORUMU DEÐİÞTİRDİM
BİRDE DOSYA EKLEDİM
BİRDAHA BAKABİLİR MİSİNİZ

 

[excelvba]

Yukarı butonuna aşağıdaki kodu kopyalayın.
[vb:1:f8d9ab4de2]Private Sub CommandButton1_Click()
Rows(ListBox1.ListIndex + 2).Cut
Rows(ListBox1.ListIndex + 4).Insert Shift:=xlDown
ListBox1.RowSource = "Sayfa1!A2:E" & [a65536].End(xlUp).Row
End Sub[/vb:1:f8d9ab4de2]

Aşağı butonunada aşağdaki kodu kopyalayın.
[vb:1:f8d9ab4de2]Private Sub CommandButton2_Click()
If ListBox1.ListIndex = 0 Then Exit Sub
Rows(ListBox1.ListIndex + 2).Cut
Rows(ListBox1.ListIndex + 1).Insert Shift:=xlUp
ListBox1.RowSource = "Sayfa1!A2:E" & [a65536].End(xlUp).Row
End Sub[/vb:1:f8d9ab4de2]

 

[heft]

Çok teşekkür Süper oldu excelvba

peki burada şöyle bir durum çıkıyor yanlız.

Mesela 2 satır seçildi yukarı taşındı 1 oldu, ama seçim hala 2 de kalıyor hem sayfa1 de hemde listbox taki için satırla beraber seçimle gezebilir mi?

sağol

 

[excelvba]

Bu durumda yukarıdaki kodları aşağıdakilerle değiştirin.

[vb:1:feb036e0d0]Private Sub CommandButton1_Click()
If ListBox1.ListIndex =ListBox1.ListCount-1 Then Exit Sub 'ilave satır
Rows(ListBox1.ListIndex + 2).Cut
Rows(ListBox1.ListIndex + 4).Insert Shift:=xlDown
ListBox1.RowSource = "Sayfa1!A2:E" & [a65536].End(xlUp).Row
ListBox1.ListIndex = ListBox1.ListIndex + 1 'ilave satır
End Sub[/vb:1:feb036e0d0]

[vb:1:feb036e0d0]Private Sub CommandButton2_Click()
If ListBox1.ListIndex = 0 Then Exit Sub
Rows(ListBox1.ListIndex + 2).Cut
Rows(ListBox1.ListIndex + 1).Insert Shift:=xlUp
ListBox1.RowSource = "Sayfa1!A2:E" & [a65536].End(xlUp).Row
ListBox1.ListIndex = ListBox1.ListIndex - 1 'ilave satır
End Sub[/vb:1:feb036e0d0]

 

[heft]

Þimdi de;
ListBox1.ListIndex = ListBox1.ListIndex + 1 olan butona basınca
işlemi yapıyor ama hep listbox enüst satırı seçiyor :kafa:

ListBox1.ListIndex = ListBox1.ListIndex - 1 olan butona basılınca

"Run-time error "1004":
Application-defined or object-defined error

hatası verdi :agla:

 

[excelvba]

Muhtemelen bir yerde hata yapıyorsunuz. Ekteki dosyayı inceleyin. Bu arada üstteki koda bir satır daha ilave ettim.

 

[heft]

Gönderdiğiniz dosyayı aynen açtım
yukarı taşıma ok süper çalışıyor
ancak
aşğı taşı butonunda bi gariplik var seçilen satırı aşağıya taşıyor, 1 satır boş açıyor
ve seçilen satır aktif kalmıyor
:?

 

[excelvba]

Haklısınız kod içindeki bir satırı silmişim. Yukarıdaki eki düzelterek yeniledim. Tekrar indirebilirsiniz.

 

[heft]

ÞİMDİ SÜPER OLDU ELLERİNİZE ZİHNİNİZE SAÐLIK..

:mutlu:

 

[isaatar]

syın helf'in sorusundan çok faydalandım
fakat benim sıkıntım.Kitap1 örneğideki seçilmiş satırın başka bir sayfaya kesilip tasınması.
"ComboBox" sayfayı seçtirmek istiyorum. "CommandBoutton ile seçilen sayfaya o satırı kesip kopyalasın.
acaba bu mümkünmü ?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:dc8abc5a20]Private Sub CommandButton1_Click()
Rows(ListBox1.ListIndex + 1).Cut
sat = WorksheetFunction.CountA(Sheets(ComboBox1.Value).Columns(1))
Sheets(ComboBox1.Value).Select
Rows(sat + 1).Select
ActiveSheet.Paste
End Sub
[/vb:1:dc8abc5a20]