Listbox'tan seçilen verinin combobox'tan seçilen sayfaya aktarımı

[42konya]

Dosyamda listboxtan seçtiğim veri'nin combobox2 de seçilen sayfaya son boş satırdan devam etmek kaydıyla aktarılacak ve veri bulunduğu sayfadan silinecek. Bir kaç aktarma kodu buldum ancak uygulayamadım. Bu hususta yardımlarınızı bekliyorum. İyi çalışmalar.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Private Sub CommandButton9_Click()
 
Set Es = Sheets("" & ComboBox1.Value & "")
Set Ys = Sheets("" & ComboBox2.Value & "")
 
son = Ys.[B65536].End(3).Row + 1
sıra = TextBox19.Text + 1
 
Es.Range("B" & sıra & ":I" & sıra).Copy Ys.Range("B" & son)
Es.Rows(sıra).Delete
 
SonEs = Es.[B65536].End(3).Row
SonYs = Ys.[B65536].End(3).Row
 
Es.Range("A2") = 1: Ys.Range("A2") = 1
 
Es.Range("A2:A" & SonEs).DataSeries xlColumns, xlLinear, xlDay, 1
Ys.Range("A2:A" & SonYs).DataSeries xlColumns, xlLinear, xlDay, 1
 
End Sub

.

 

[42konya]

Üstadım ilginiz ve cevabınız için çok teşekkür ederim. İşlem tamam.

 

[assenucler]

Sayın 42konya;

Bu kodu nereye yazacağımı ve commandbutton9'ı bulamadım.

Dosyanın son halini eklemeniz mümkün mü?

Teşekkürler..

 

[kemalist]

Sayın 42konya;

Bu kodu nereye yazacağımı ve commandbutton9'ı bulamadım.

Dosyanın son halini eklemeniz mümkün mü?

Teşekkürler..

sayfa sekmesinde kod görüntüleyi tıkla formu aç formun içine kod yazılır

 

[assenucler]

Sayın kemalist;

İyi geceler..

Bilgisizliğimi mazur görün. Eklediğim resim içinde ThisWorksheet kısmına mı yoksa Module1 içine mi kodlar yazılacak, burada duraksıyorum.

İlginiz için teşekkürler..

 

[Ömer]

Resimdeki ekrana girerek UserForm1' fare ile sağ klik yapın burada "View Code" bölümüne girerek boş alana ( en sonra olabilir ) kodları yapıştırın.

.