ListBox ve Excel tablosuna veri aktarmak

[girdap]

Değerli Forum Uzmanlarımız
Merhaba,

Ekteki dosyada aktarmalar sort edilerek list box alınmakta ve ilgili excel sayfasında sıralanmakta. Ben sort olmadan giriş sırasına göre listbox ve tabloya veri aktarımı istersem kodları nasıl düzenlemek gerekecek? Orjinal tablo sıralaması bozulmasın..
Saygılarımla

 

[Orion1]

UserfOrm'un kod sayfasına baktım.Sort komutuna rastlayamadım.
Bu durumda A veya B sütunundaki veriler sort edilmemiş oluyor.Okey,Tamam.

 

[Orion1]

Pardon sort varmış.

 

[Orion1]

Şimdi sort etmiyor.
Ekli dosyayı inceleyiniz.

 

[girdap]

Merhaba

Teşekkür ediyorum desteğiniz için.
Ancak ben de sortu nasıl yaptığını anlayamamıştım. Değişiklik neydi gösterebilir misiniz, bir de istediğimizde sort işlemini devreye alıp istendiğinde devre dışı bırakıp orjinal sıralamaya geçiş sağlanabilir mi, nasıl?
Bir de
Bu forma "değiştir butonu" koymak istiyorum. Bunun için sütun sayısı kadar text box oluşturup değişecek satırdaki hücreleri bu textboxlara gireceğim. Değiştir butonuna bastığımda ilgili excel sayfasındaki tablonun bu satırını aşağıda dolu olan en son satırı görüp bir sonrasına bu veriyi tüm satır boyunca akatracak.
Bu işlem bitince yukarıdaki eski veri satırı tüm satırlar boyunca yukarı kayarak silme işlemini oluşturacak. Uyarı mesajı ile silme tamamlanacak.

Bu dize için gerekli kodlar nedir?
Kolay gelsin saygılarımla

 

[Orion1]

Veri girişi butonundaki aşağığıdaki satırlar sıralama yapıyormuş.Ben o satırları iptal ettim.
Diğer istedikleriniz için ekli dosyayı inceleyiniz.

 

[girdap]

Orion 2 Herşey için Çok teşekkür ederim.
Görüşmek üzere
Saygılarımla

 

[Orion1]

Orion 2 Herşey için Çok teşekkür ederim.
Görüşmek üzere
Saygılarımla

Rica ederim.
İyi çalışmalar.

 

[girdap]

Orion2 Selam

Bir şey dikkatimi çekti. Sil işlemi çok pratik işlemiyor. ComboBox a yazılan değer Sil butonuna basıldığında tablodan değeri bulup ilgili satırını seçip, "silinsin mi" uyarısı verdikten sonra silmesi daha iyi olacak. Silme işlemi de satırları yukarı kaydırarak olmalı. bu durumu oluşturabilir miyiz ya da sizce bu amaca uygun pratik çözüm nedir kod bakımından?

 

[Skorpiyon]

Sayın girdap,

"SİL" butonu altındaki kodları bu şekilde değiştirerek bir deneyin. Dilerim işinizi görür.

Saygılarımla...

Private Sub CommandButton2_Click()
Dim cevap As Variant
ActiveSheet.Unprotect "123"
If TextBox1 = "" Then
MsgBox "önce silinecek veriyi bulmalısınız"
Exit Sub
End If
If ActiveCell.Value = "Giriş" Then
MsgBox "Bu satır silinemez"
Exit Sub
End If
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate
cevap = MsgBox("Silmek istediğinizden emin misiniz ?", vbYesNo)
If cevap = 7 Then
GoTo devam
End If
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
Range("a1").Select
devam:
For sira = 1 To WorksheetFunction.CountA(Range("b1:b65536"))
Range("a" & sira + 1) = sira
Next
ActiveWorkbook.Save
ActiveSheet.Unprotect "123"
Unload Me
UserForm1.Show
End Sub