Combobox ile seçilen verilerin aktarımı

[eksiman]

Sayın Fructose'nin ekteki çalışmasında aktar butonu sayfa 1 deki bilgilerin tümünü sayfa2 ye aktarıyor. Benim istediğimse sadece Combobox ta seçilenin bilgilerinin sayfa1 den silinerek sayfa2 ye aktarılması. Þİmdiden teşekkürler...

 

[veyselemre]

[vb:1:ef2ad50551]Private Sub CommandButton2_Click()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
sat = s2.[a65536].End(3).Row + 1
s1_sat = siladı.ListIndex + 2
For b = 1 To 5
s2.Cells(sat, b) = s1.Cells(s1_sat, b)
Next
s1.Rows(s1_sat).Delete
Call UserForm_Initialize
End Sub[/vb:1:ef2ad50551]

 

[eksiman]

Teşekkürler Veyselemre ...Tam istediğim gibi..Ellerin dert görmesin...

 

[eksiman]

Veyselemre'nin yaptığı güzel çalışmada comboboxta seçilen ismin bulunduğu satır olduğu gibi siliniyor...Bu satırın sadece 10 satırını silmek mümkünmüdür?

 

[omerceri]

Veyselemre'nin yaptığı güzel çalışmada comboboxta seçilen ismin bulunduğu satır olduğu gibi siliniyor...Bu satırın sadece 10 satırını silmek mümkünmüdür?

satır mı sütun mu

 

[eksiman]

sütun tabiki...Ã?zür

 

[omerceri]

sn veyselemre nin kodlarındaki sondan üçüncü satırını aşağıdaki şekilde değiştirirsen
s1.Cells(s1_sat, 10).Delete

 

[omerceri]

acele ettim
s1.Cells(s1_sat, 10).Delete Shift:=xlUp
şeklinde olacak

 

[eksiman]

TEÞEKKÜRLER

 

[eksiman]

omerceri 'nin kodları sadece 10. sütundaki hücreyi siliyor...İsteğimiz tüm 10 sütunun silinmesi..

 

[eksiman]

doğrusunu buldum
s1.Range(Cells(s1_sat, 1), Cells(s1_sat, 10)).Delete Shift:=xlUp