seçili satırı diğer sayfaya atmak

[Fuat Şirin]

ekteki dosyamda
userform1 deki
listboxta satırı çift tıkladığımda
bana "bu sipariş bitti olarak işaretlenecek onaylıyor musun?"
dedikten sonra o satırı biten siparişler sayfasına geçmesini istiyorum nasıl yaparız yardımcı olursanız sevinirim​

 

[Mahmut Kök]

Biten_siparişler sayfasındaki sütun başlıkları liste kutusundakileri tutmuyor. Verilerin nasıl ve nereden biten_siparişler sayfasına alınacağını pek anlayamadım ama aşağıdaki kodu deneyebilirsiniz. Bu liste kutusundaki seçili satırın verilerini aktarır.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
cevap = MsgBox("taşınsın mı?", vbYesNo)
If cevap = vbNo Then Exit Sub
sat = ListBox1.ListIndex
sonsat = Sheets("BİTEN_SİPARİŞLER").[a65536].End(3).Row + 1
Sheets("BİTEN_SİPARİŞLER").Range("a" & sonsat & ":j" & sonsat).Value = Sheets("SİPARİŞLER").Range("a" & sat + 2 & ":j" & sat + 2).Value
MsgBox "taşındı"
End Sub

 

[Fuat Şirin]

hocam siparişler sayfasından alınacak
siparişler sayfasındaki
seçilen satır silinip
biten siparişler sayfasına atılacak

 

[Fuat Şirin]

hocam bunu silip nasıl yaparız yardım etseniz

 

[Fuat Şirin]

yani aktarılan satırı

 

[AS3434]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
cevap = MsgBox("taşınsın mı?", vbYesNo)
If cevap = vbNo Then Exit Sub
sat = ListBox1.ListIndex
sonsat = Sheets("BİTEN_SİPARİŞLER").[a65536].End(3).Row + 1
Sheets("BİTEN_SİPARİŞLER").Range("a" & sonsat & ":j" & sonsat).Value = Sheets("SİPARİŞLER").Range("a" & sat + 2 & ":j" & sat + 2).Value
[COLOR=red]Sheets("SİPARİŞLER").Range("a" & sat + 2 & ":j" & sat + 2).Value.delete[/COLOR]
MsgBox "taşındı"
End Sub

Tam bilmiyorum ama yukardaki kırmızı satırı ilave edin. Birde öyle deneyin.
Kodları çalıştırmadan önce yedeğini almayı unutmayın.

 

[Mahmut Kök]

SAYIN as3434'ün verdiği ilave satırından .value kısmını çıkarıp deneyeniz. Hocamın gözünden kaçmış galiba. İyi çalışmalar dilerim.

[COLOR=#ff0000]Sheets("SİPARİŞLER").Range("a" & sat + 2 & ":j" & sat + 2)[COLOR=green].Value[/COLOR].delete[/COLOR]

 

[Fuat Şirin]

çok teşekkürler çok saolun